CopyCodeThe Code is as follows ::: ========================================================== =
: IP. bat
: V0.1
: Jinminghou.cn @ 2009-12-22
:: ========================================================== =
@ Echo off
Title getip
Set IP = unknown
Echo on error resume next: Set Odom = wscript. GetObject ("http://www.jinminghou.cn /? APP = IP & flag = client & temp = "^ & now (): dim I: for I = 1 to 50: If
Odom. readystate = "complete" then exit for: end if: wscript. sleep 200: Next: dim temp: temp1_odom.doc umentelement. outertext: Set Odom = nothing: temp = mid (temp, instr
(Temp, "[") + 1, instr (temp, "]")-instr (temp, "[")-1): wscript. echo temp> "% Temp % \ getip. vbs"
For/F "tokens = 1, * delims =:" % I in ('"cscript // nologo ^" % Temp % \ getip. vbs ^ "') do set IP = % I
If exist "% Temp % \ getip. vbs" Del "% Temp % \ getip. vbs"> 2> NUL
Echo your IP: [% IP %]
Pause> 2> NUL