VAC测试脚本

     Dim xmldata
    Dim docSubmit
    Dim poster   
xmldata = "<?xml version=""1.0"" encoding=""UTF-8""?>"
xmldata = xmldata + "<soapenv:Envelope xmlns:soapenv ="" http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsd ="" http://www.w3.org/2001/XMLSchema"" xmlns:xsi ="" http://www.w3.org/2001/XMLSchema-instance"" >"
xmldata = xmldata + "<soapenv:Body>"
xmldata = xmldata + "<ns1:orderRelationUpdateNotify soapenv:encodingStyle ="" http://schemas.xmlsoap.org/soap/encoding/"" xmlns:ns1="" http://soap.bossagent.vac.unicom.com"" >"
xmldata = xmldata + "<orderRelationUpdateNotifyRequest href =""#id0"" />"
xmldata = xmldata + "</ns1:orderRelationUpdateNotify>"
xmldata = xmldata + "<multiRef id =""id0"" soapenc:root =""0"" soapenv:encodingStyle ="" http://schemas.xmlsoap.org/soap/encoding/"" xsi:type =""ns2:OrderRelationUpdateNotifyRequest"" xmlns:soapenc ="" http://schemas.xmlsoap.org/soap/encoding/"" xmlns:ns2="" http://req.sync.soap.bossagent.vac.unicom.com"" >"
xmldata = xmldata + "<recordSequenceId xsi:type =""soapenc:string"" >201001250922360043</recordSequenceId>"
xmldata = xmldata + "<userIdType href =""#id1"" />"
xmldata = xmldata + "<userId xsi:type =""soapenc:string"" >861860231111</userId>"
xmldata = xmldata + "<serviceType xsi:type =""soapenc:string"" >90</serviceType>"
xmldata = xmldata + "<spId xsi:type =""soapenc:string"" >74891</spId>"
xmldata = xmldata + "<productId xsi:type =""soapenc:string"" >9083066105</productId>"
xmldata = xmldata + "<updateType href =""#id2"" />"
xmldata = xmldata + "<updateTime xsi:type =""soapenc:string"" >201001250922360043</updateTime>"
xmldata = xmldata + "<updateDesc xsi:type =""soapenc:string"" >10621111</updateDesc>"
xmldata = xmldata + "<linkId xsi:type =""soapenc:string"" >2131221321312313131</linkId>"
xmldata = xmldata + "<content xsi:type =""soapenc:string"" >M</content>"
xmldata = xmldata + "<effectiveDate xsi:type =""soapenc:string"" >201100125000000</effectiveDate>"
xmldata = xmldata + "<expireDate xsi:type =""soapenc:string"" >201100125000000</expireDate>"
xmldata = xmldata + "<time_stamp xsi:type =""soapenc:string"" >0318162236</time_stamp>"
xmldata = xmldata + "<encodeStr xsi:type =""soapenc:string"" >1</encodeStr>"
xmldata = xmldata + "</multiRef>"
xmldata = xmldata + "<multiRef id =""id2"" soapenc:root =""0"" soapenv:encodingStyle ="" http://schemas.xmlsoap.org/soap/encoding/"" xsi:type =""soapenc:int"" xmlns:soapenc ="" http://schemas.xmlsoap.org/soap/encoding/"" >1</multiRef>"
xmldata = xmldata + "<multiRef id =""id1"" soapenc:root =""0"" soapenv:encodingStyle ="" http://schemas.xmlsoap.org/soap/encoding/"" xsi:type =""soapenc:int"" xmlns:soapenc ="" http://schemas.xmlsoap.org/soap/encoding/"" >1</multiRef>"
xmldata = xmldata + "</soapenv:Body>"
xmldata = xmldata + "</soapenv:Envelope>"
    Set docSubmit = CreateObject("Microsoft.XMLDOM")
        docSubmit.async = False
        docSubmit.loadXML xmldata
    Set poster = CreateObject("Microsoft.XMLHTTP")
        poster.Open "POST", " http://10.10.12.18:8090/VAC/LtVac.aspx", False          '发送的地址
        poster.Send docSubmit
       Status = poster.responseText
    MsgBox Status
保存在文件，命名为vbs文件即可！