批處理獲取IP生成TXT文本的bat代碼
更新時間：2011年01月30日 23:38:42 作者：
以下代碼是批處理獲取IP同時生成TXT文本,同時腳本之家給大家一個更簡單的獲取當(dāng)前ip地址的批處理。
第一種方法:
@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
復(fù)制代碼 代碼如下:
@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代碼
復(fù)制代碼 代碼如下:
@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
相關(guān)文章
硬盤“邏輯鎖”的解決辦法...2007-03-03
dos命令行中cd命令用法，需要的朋友可以參考下2012-06-06
Call 從一個批處理程序調(diào)用另一個批處理程序，并且不終止父批處理程序。
Call 從一個批處理程序調(diào)用另一個批處理程序，并且不終止父批處理程序。...2007-09-09
迅雷快車旋風(fēng)下載專用鏈轉(zhuǎn)換批處理代碼
將下面所附代碼保存為.BAT或.CMD格式的批處理文件，雙擊運(yùn)行。2011-01-01
給女兒照的相片越來越多，沒有時間一個個的按內(nèi)容命名，所以我想都用日期時間來命名2012-04-04
第一次執(zhí)行WMIC命令時，Windows首先要安裝WMIC，然后顯示出WMIC的命令行提示符。在WMIC命令行提示符上，命令以交互的方式執(zhí)行2014-05-05
批處理的高級運(yùn)用??！小技巧哦2007-03-03
用批處理一鍵安裝兩種擴(kuò)展名的Windows系統(tǒng)補(bǔ)丁
每次安裝好操作系統(tǒng)后花費(fèi)時間最長的就是下載補(bǔ)丁安裝補(bǔ)丁了，面介紹一種針對這兩種擴(kuò)展名的系統(tǒng)補(bǔ)丁快速安裝的辦法，需要的朋友可以參考下2014-01-01
將批處理文件注冊成服務(wù)在系統(tǒng)啟動的時候自動調(diào)用
如何將批處理文件注冊成服務(wù)，在系統(tǒng)啟動的時候就自動調(diào)用startagent.bat腳本,下面是具體的實現(xiàn)過程，需要的朋友可以參考下2014-04-04
學(xué)過匯編或C的朋友，肯定都知道call指令表示什么意思，其實，在這里它的意思也是一樣的，在批處理腳本中，call命令用來從一個批處理腳本中調(diào)用另一個批處理腳本，本文給大家詳細(xì)介紹下批處理命令call和start知識，感興趣的朋友一起看看吧2022-08-08