Hello.
I've just coded a VBScript SOAP Client to send requests to a web
service in our intranet. It's working and we'll use it in a DTS cuz we
have not implemented SQL Server 2005 yet. Anyway. I need some more
functionality. For example with the script below I'm able to get the
Session ID Token from our web service and save the full SOAP xml
Envelope to a file. But What if for example I want to save certain
nodes I receive in the response?? I set it up so that I can use DOM,
been trying to do that but I'm getting errors.

If you have any tips they will be much appreciated.

Regards.

Martin
monsalvo@g...

Option Explicit

'Variables for the SOAP Call
Dim xmlhttp
Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
Dim xmldoc
Set xmldoc = CreateObject("Msxml2.DOMDocument.4.0")
Dim strUrl, strRequest
strUrl = "http://nn.nn.com/nn"

'Variables for saving the Session ID
Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText
strDirectory = "C:\Sample"
strFile = "\LoginSessionID.txt"


strRequest = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
          "<soapenv:Envelope xmlns:xsi=""http://www.w3.org/2001/
XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema""
xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/""
xmlns:ser=""http://nn.nn.nn.com"">" & _
          "<soapenv:Header/>" & _
          "<soapenv:Body>" & _
          "<ser:login soapenv:encodingStyle=""http://
schemas.xmlsoap.org/soap/encoding/"">" & _
          "<version xsi:type=""xsd:string"">63</version>" & _
          "<user xsi:type=""xsd:string"">nn_test</user>" & _
          "<password xsi:type=""xsd:string"">nn_Pwd</password>" & _
          "</ser:login>" & _
          "</soapenv:Body>" & _
          "</soapenv:Envelope>"



With xmlhttp
     .Open "post", strUrl, False
     .setRequestHeader "content-type", "text/xml; charset=utf-8"
     .setRequestHeader "SOAPAction", "http://nn.nn.nn.com/login"
     .send strRequest

        'Here I echo out the response for testing porpuses - it's
working ok

wscript.echo  .responseXML.xml

        'Here I place the reponse in the variable strText - it's
working ok - But what if I want to place  just one element of the SOAP
envelope in the variable, for example the session ID number with
getting rid of all xml tags?

strText = .responseXML.xml

End With



'The rest of the script is working ok. I mean it saves the Web Service
XML response to a file.


' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check that the strDirectory folder exists
If objFSO.FolderExists(strDirectory) Then
   Set objFolder = objFSO.GetFolder(strDirectory)
Else
   Set objFolder = objFSO.CreateFolder(strDirectory)
   WScript.Echo "Just created " & strDirectory
End If

If objFSO.FileExists(strDirectory & strFile) Then
   Set objFolder = objFSO.GetFolder(strDirectory)
Else
   Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
   Wscript.Echo "Just created " & strDirectory & strFile
End If

set objFile = nothing
set objFolder = nothing
' OpenTextFile Method needs a Const value
' ForAppending = 8 ForReading = 1, ForWriting = 2
Const ForAppending = 8

Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, ForAppending, True)

' Writes strText
objTextFile.WriteLine(strText)
objTextFile.Close

' I'll remove this part after we finish prototyping
If err.number = vbEmpty then
   Set objShell = CreateObject("WScript.Shell")
   objShell.run ("Explorer" &" " & strDirectory & "\" )
Else WScript.echo "VBScript Error: " & err.number
End If

WScript.Quit

' End of VBScript