第一種方法:
復制代碼 代碼如下:
@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
您可能感興趣的文章:- 批處理bat設置固定IP地址和自動IP地址
- bat腳本顯示本機IP地址的兩種方法(內(nèi)網(wǎng)ip)
- BAT批處理判斷IP地址并自動禁用啟用網(wǎng)卡
- 一鍵自動更改本機IP地址BAT執(zhí)行腳本 非常好用
- bat 選項之修改ip的腳本代碼(讓用戶可以選擇操作并進行判斷執(zhí)行)
- IP動態(tài)切換bat腳本
- 顯示自己的IP的批處理bat文件
- 用bat文件修改ip
- 自動修改本機IP地址的bat代碼