Method 1:
CopyCode The Code is as follows: @ echo off
<"% ~ F0 "More + 5> TMP. vbs
Cscript // nologo/E: VBScript TMP. vbs % 1> ip.txt
Echo> NUL & del TMP. vbs
Goto: EOF
Set Odom = wscript. GetObject ("http://www.duosc.com/ip.aspx ")
Do until odom. readystate = "complete"
Wscript. Sleep 200
Loop
S=odom.doc umentelement. innertext
Set Re = new Regexp
Re. pattern = "(\ D +) \. (\ D + )"
For each m in re. Execute (s)
Wscript. Echo m
Next
Method 2: Use vbs codeCopy codeThe Code is as follows: @ echo off
ECHO is connecting. Please wait...
> Getip. vbs echo set Odom = wscript. getObject ("http://www.ip138.com/ip2city.asp"): Do until Odom. readystate = "complete": wscript. sleep 200: loop: wscript. echo odom.doc umentelement. outertext: Set Odom = nothing
For/F "tokens = 2, * delims =:" % I in ('"cscript // nologo getip. vbs "') Do ECHO: % I % j> ip.txt
Del getip. vbs
