第一种方法:
@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.documentElement.innerText
set re = New RegExp
re.Pattern="(d+).(d+).(d+).(d+)"
For Each m in re.Execute(s)
WScript.Echo m
Next
第二种方法:都是利用vbs代码
@echo off
echo 正在连接，请稍等...
>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.documentElement.outerText:Set oDOM=nothing
for /f "tokens=2,* delims=：" %%i in ('"cscript //nologo Getip.vbs"') do echo 你的IP地址是: %%i %%j>ip.txt
del Getip.vbs
您可能感兴趣的文章:
获取外网IP地址的批处理代码批处理获取网卡名称的代码（附修改IP、网关、DNS脚本）批处理bat命令 获取当前盘符和当前目录和上级目录的代码批处理（bat）实现全盘搜索指定文件获取其完整路径方法大全批处理获取文件夹下面txt文件行数并添加到文件名后
