使用WINDOWS脚本访问WEB SERVICES

@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#
@#Modiay by X
@# 2003-12-30
@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#
Const ForReading = 1, ForWriting = 2, ForAppending = 8 @#文件操作常量
@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#
WebServiceURL = "http://www.chefbj.net/WEBSERVICES/school.asmx" @#调用URL（URI）
WebMethodName = "http://www.chefbj.com/show_school" @#调用方法名

@#soap请求，需要根据具体WEB SERVICES web方法更改
sentRequest="<?xml version=@#1.0@# encoding=@#utf-8@#?>"_
& "<soap:Envelope xmlns:xsi=@#http://www.w3.org/2001/XMLSchema-instance@# "_
& "xmlns:xsd=@#http://www.w3.org/2001/XMLSchema@# "_
& "xmlns:soap=@#http://schemas.xmlsoap.org/soap/envelope/@#>"_
& "<soap:Body>"_
& "<show_school xmlns=@#http://www.chefbj.com@#>"_
& "<password>chef</password>"_
& "</show_school>"_
& "</soap:Body>"_
& "</soap:Envelope>"

responsefile="request.xml" @#应答文件
@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#

Set requestHTTP = CreateObject("Microsoft.XMLHTTP")

requestHTTP.open "POST", WebServiceURL, false

requestHTTP.setrequestheader "Content-Type", "text/xml"
requestHTTP.setrequestheader "charset", "utf-8"
requestHTTP.setrequestheader "SOAPAction", WebMethodName

requestHTTP.Send sentRequest

MsgBox("请求已经送出. HTTP request status= " & requestHTTP.status)


@#将应答记录入文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(responsefile, True,true)


objTextFile.Write(requestHTTP.responsexml.xml)

objTextFile.Close

原文转自：http://www.ltesting.net