擷取外網IP地址的批處理代碼

複製代碼 代碼如下:::==========================================
:: 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:Temp=oDOM.documentElement.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