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