‘============================================================= ‘ NAME: XMLPost.vbs ‘ AUTHOR: Neal Walters ‘ DATE : 3/26/2005 ‘ http://VBScript-Training.com ‘============================================================= Dim xmlHttp Dim doc Dim strQuery Dim strURL Dim strPostBody Dim xmlFileName ‘allow drag/drop of filename onto this VB/Script if WScript.Arguments.Count > 0 then xmlFileName = WScript.Arguments(0) else xmlFileName = “D:\Vish\Altura\XML\CC71628_0309052202_4items.xml” xmlFileName = “D:\Vish\Altura\XML\CC71628_0309052202_4items_TestCreditCard.xml” end if set xmlHttp = CreateObject(“Microsoft.xmlHttp”) [...]