Hi Eric,
Thank You for replying so fast.
This is the code-
'Set and instantiate our working objects
Dim Req As Object
Dim sEnv As String
Dim Resp As Object
'Dim Resp As New MSXML2.DOMDocument60
'Dim Resp As Object
Req = CreateObject("MSXML2.XMLHTTP")
Resp = CreateObject("MSXML2.DOMDocument.6.0")
Req.Open ("Post", RequestURL, False, AuthenticationUsername, AuthenticationPassword)
Req.setRequestHeader ("Content-Type", "application/soap+xml;charset=UTF-8;action="""")
Req.setRequestHeader ("username", AuthenticationUsername)
Req.setRequestHeader ("password", AuthenticationPassword)
sEnv = ""
' we create our SOAP envelope for submission to the Web Service
sEnv = sEnv & "<soap:Envelope xmlns:soap = ""http://www.w3.org/2003/05/soap-envelope"" xmlns:req = "">"
Soap Query
sEnv = sEnv & "</soap:Envelope>"
'MsgBox(sEnv)
' Send SOAP Request
Req.send (sEnv)
' Display results in MessageBox
responseText = Req.responseText
'clean up code
Req = Nothing
Resp = Nothing
I am using ->System.Xml.Serialization,System.Collections.Generic,System.Net,text,webservice,IO,etc name spaces
------------------------------
Yugal Pratap Singh
Associate Consultant
Capgemini
------------------------------