stealsoapmsg.vbs

You may have heard the Latest Brief web service on CodeProject.com. It provides several methods for

Option Explicit
on error resume next

Dim clt
Set clt = CreateObject("MSSOAP.SoapClient30")
clt.MsSoapInit "http://localhost/LatestBrief/latest.wsdl"

clt.GetLatestArticleBrief 20
'clt.GetLatestLoungeBrief 10
'clt.GetLatestCommentsBrief 10
'clt.GetNewsflash

Set clt = nothing