VBS gets the implementation code of the extranet IP _vbs

Copy Code code as follows:

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

Original: http://www.enun.net/?p=1188