VBS 獲取外網(wǎng)IP的實現(xiàn)代碼

    代碼如下:
    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