' This sample shows how to call the ping method at weblogs.com 
' to tell it your weblog has changed
' see http://www.soapware.org/weblogsCom
'
' usage cscript weblogsdotcom.vbs blogName, blogURL
' e.g cscript weblogsdotcom.vbs "Simon's SOAP Scratchpad", "http://simonfell.manilasites.com"


if wscript.Arguments.count <> 2 then
	wscript.echo "Usage"
	wscript.echo "cscript weblogsdotcom.vbs blogName, blogURL"
else
	dim e, t
	set e = CreateObject("pocketSOAP.Envelope.2")
	e.methodName= "ping"
	e.parameters.create "weblogname", wscript.Arguments(0)
	e.parameters.create "weblogurl",  wscript.Arguments(1)
	
	set t = CreateObject("pocketSOAP.HTTPTransport")
	' add a call to t.SetProxy here if you use a proxy Server
	t.send "http://rpc.weblogs.com/weblogUpdates", e.serialize
	e.parse t
	
	if e.parameters.item(0).nodes.itembyName("flerror").value then
		wscript.echo "Error : " & e.parameters.item(0).nodes.itembyName("message").value
	else
		wscript.echo "Done"
	end if
end if