批处理把外网ip保存在记事本里

2025-02-25 09:20:19

推荐回答（2个）

回答1：

@echo off
set "URL=http://www.ip138.com/ip2city.asp"
>%temp%/download.vbs echo Set objDOM = 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%>1.txt
pause

保存为bat格式，运行后会将外网IP保存在1.txt文件里

回答2：

14
15
@echo off
>Getip.vbs (
echo Set oDOM = WScript.GetObject("http://iframe.ip138.com/ic.asp"^)
echo do until oDOM.readyState = "complete"
echo WScript.sleep 200
echo loop
echo s=oDOM.documentElement.innerText
echo set re = New RegExp
echo re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
echo For Each m in re.Execute(s^)
echo WScript.Echo m
echo Next
)
for /f "delims=" %%i in ('cscript //nologo Getip.vbs') do echo 外网 IP 是: %%i >>d:\ip.txt
del Getip.vbs