dim f, p
set f = CreateObject("pocketXMLRPC.Factory")
set p = f.Proxy("http://rpc.weblogs.com/RPC2", "weblogUpdates.")
set r = p.ping ("It's Just Code!", "http://www.pocketsoap.com/weblog/")
wscript.echo r.message