Connector=CREATEOBJECT("mssoap.HttpConnector")
Connector.Property["EndPointURL"] = "URL"
Connector.Connect()
Connector.Property ["SoapAction"] = "URL"
Connector.BeginMessage()
Serializer=CREATEOBJECT("mssoap.SoapSerializer")
Serializer.Init(Connector.InputStream)
 Serializer.startEnvelope("","","")
   Serializer.startBody("")
   Serializer.startElement("isuseronline","uri:allesta-YahooUserPing","","m")
   Serializer.startElement("username","","","")
   Serializer.writeString("laghari78")
   Serializer.endElement()
   Serializer.endElement()
   Serializer.endBody()
   Serializer.endEnvelope()
Connector.EndMessage()
Reader=CREATEOBJECT("mssoap.SoapReader")
Reader.Load(Connector.OutputStream)
?Reader.RPCResult.text

URL请改为WebService 地址

代码还没测试。