set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 if oDOM.readyState = "complete" then flag=1 exit for end if WScript.sleep 500 next if flag=0 then WScript.Echo "timeout ..." wscript.quit end if s=oDOM.documentElement.innerText Set Re = New RegExp Re.Pattern="(/d+)/.(/d+)/.(/d+)/.(/d+)" for each r in Re.Execute(s) res=r exit for Next WScript.Echo "IPAddress: " & res
