Set GetIP=Wscript.GetObject("http://www.ip138.com/ip2city.asp")
Do Until GetIP.readyState="complete"
Wscript.Sleep 100
Loop
Wscript.Echo GetIP.documentElement.outerText
Set GetIP=nothing