获取外网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

【方案一】BAT + VBS

复制代码 代码如下:
@echo off
set "URL=http://www.ip138.COM/ip2city.asp"
> %temp%/download.vbs echo Set ob@R_69_2304@ = WScript.GetObject(WScript.arguments(0))
> > %temp%/download.vbs echo Do Until objDOM.ReadyState = "complete"
> > %temp%/download.vbs echo WScript.Sleep 100
> > %temp%/download.vbs echo Loop
> > %temp%/download.vbs echo WScript.Echo objDOM.DocumentElement.OuterText
for /f "tokens=2 delims=[]" %%a in ('cscript //nologo //e:vbscript %temp%/download.vbs "%URL%"') do (
    set "PublicIP=%%a"
)
echo,%PublicIP%
pause

【方案二】BAT + wget.exe(GNU)

复制代码 代码如下:
@echo off
set "URL=http://www.ip138.com/ip2city.asp"
for /f "tokens=2 delims=[]" %%a in ('wget -q "%URL%" -O -') do (
    set "PublicIP=%%a"
)
echo,%PublicIP%
pause

【方案三】BAT + curl.exe(GNU)

复制代码 代码如下:
@echo off
set "URL=http://www.ip138.com/ip2city.asp"
for /f "tokens=2 delims=[]" %%a in ('curl -s "%URL%"') do (
    set "PublicIP=%%a"
)
echo,%PublicIP%
pause

• 批处理经典入门教程！(从不懂到高手)
• windows批处理命令教程
• bat批处理 if 命令示例详解
• 批处理 Set 命令详解 让你理解set命令
• BAT批处理中的字符串处理详解(字符串截取)
• 批处理命令Start的使用介绍
• 批处理bat设置固定IP地址和自动IP地址
• Windows下用命令行修改IP地址的方法详解(附批处理文件)
• 批处理获取网卡名称的代码（附修改IP、网关、DNS脚本）
• 批处理、VBS实现自动设置IP、默认网关、DNS、WINS、IE代理(全)
• IP地址自动设置的批处理代码分享

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！