$Server="ims.csiro.au"
$Path="/WebService/Service.asmx?wsdl"

$SoapParameters = CreateObject("Scripting.Dictionary")
$SoapParameters.Add("XmlDoc", $XmlDoc.xml)
$SoapParameters.Add("uniqueids", $aUniqueid)
$SoapParameters.Add("Client", "Windows")
$SOAP = WebMethod($Server, $Path, "ProcessXmlDataSet", $SoapParameters)

Function WebMethod($Server, $Path, $MethodName, $SoapParameters)

	Dim $Data,$Parameter,$Value,$oHttp,$Envelope,$Response,$Ticks
	For Each $Parameter in $SoapParameters.Keys
		$Data = $Data + '<'+ $Parameter + '>'
		$Value = $SoapParameters.Item($Parameter)
		If VarType($Value) & 8192
			$Data = $Data + '<string>' + Join($Value, '</string><string>') + '</string>'
		Else
			$Data = $Data + $Value
		EndIf
		$Data = $Data + '</' + $Parameter + '>'
	Next
	; create an XmlHttp instance
	$oHttp = CreateObject("Msxml2.XMLHTTP")
	; Create the SOAP Envelope
	$Envelope = 	'<?xml version="1.0" encoding="UTF-8" standalone="no"?>' +
					'	<soap:Envelope ' +
					'	xmlns:xsd="http://www.w3.org/2001/XMLSchema"' +
					'	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' +
					'	xmlns:enc="http://schemas.xmlsoap.org/soap/encoding/"' +
					'	xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">' +
					'	<soap:Body>' +
            		'    <' + $MethodName + ' xmlns="http://' + $Server + '/">' +
							$Data +
            		'    </' + $MethodName + '>' +
					'	</soap:Body>' +
					'</soap:Envelope>'

	; send the POST to the Web service
	$oHttp.open("POST", "http://" + $Server + $Path, Not 1)
	$oHttp.setRequestHeader("SOAPAction", '"http://' + $Server + '/' + $MethodName + '"')
	$oHttp.setRequestHeader("Content-Type", 'text/xml; charset="utf-8"')
	$oHttp.setRequestHeader("Connection", "close")
	$oHttp.send($Envelope)
	$Ticks=@TICKS
	; a readyState of 4 means we're ready to use the data returned by XMLHTTP
	While $oHttp.readyState<>4
		If @TICKS-$Ticks>3000 Exit 1 EndIf
	Loop
	$Response = $oHttp.responseBody
	If InStr($Response,'<' + $MethodName + 'Result>') And InStr($Response,'</' + $MethodName + 'Result>')
		$Response = SubStr($Response, InStr($Response,'<' + $MethodName + 'Result>') + Len('<' + $MethodName + 'Result>'))
		$WebMethod = Left($Response, InStr($Response,'</' + $MethodName + 'Result>') - 1)
	EndIf
	
EndFunction