批處理獲取IP生成TXT文本的bat代碼
更新時(shí)間：2011年01月30日 23:38:42 作者：
以下代碼是批處理獲取IP同時(shí)生成TXT文本,同時(shí)腳本之家給大家一個(gè)更簡單的獲取當(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)文章
重命名administrator賬號(hào)的批處理文件...2007-08-08![命令行下通過sc刪除服務(wù)提示[SC] OpenService FAILED 1060處理方法](http://img.jbzj.com/images/xgimg/bcimg1.png)
命令行下通過sc刪除服務(wù)提示[SC] OpenService FAILED 1060處理方法
dos刪除系統(tǒng)服務(wù)引發(fā)的報(bào)錯(cuò)：[SC] OpenService FAILED 1060處理方法,需要的朋友可以參考下。2011-06-06
批處理實(shí)現(xiàn)的網(wǎng)絡(luò)巡檢腳本（PING與端口掃描）
為了假期檢查方便，寫了個(gè)巡檢腳本，可在腳本的report段添加一些報(bào)告機(jī)制，然后添加到計(jì)劃任務(wù)作自動(dòng)檢查。沒作太多描述，寫過腳本的應(yīng)該都懂的。portqry 可以到微軟網(wǎng)站下載。 自動(dòng)化的性能監(jiān)控和報(bào)警，推薦SCOM2012-05-05
前面的教程中介紹過，刪除文件用的是del命令，那么，是不是像ren命令通吃文件和文件夾一樣，del是不是也可以刪除文件夾呢？2009-04-04
你手頭是否有幾本chm格式的電子書？你是否有過滿世界搜索反編譯chm軟件的痛苦經(jīng)歷？你是否抱怨過這些軟件有這樣或那樣的限制？然而，你是否意識(shí)到，就在你的系統(tǒng)里，微軟已經(jīng)為你準(zhǔn)備好了小巧而強(qiáng)悍的反編譯程序2020-05-05
枚舉顯示批處理bat...2007-08-08
創(chuàng)建文件夾使用的是md命令，它的另一個(gè)寫法為mkdir（由MakeDirectory演變而來），格式為：md 文件夾名，其中，文件夾名可以使用帶路徑的格式。例如：md d:\test，也可以用 md test 在當(dāng)前路徑下建立test文件夾。2009-04-04
這里分享的主要是通過批處理中先判斷進(jìn)程是否存在，然后再做出操作的實(shí)現(xiàn)代碼，需要的朋友可以參考下2013-01-01
批處理完美實(shí)現(xiàn)FTP遠(yuǎn)程備份數(shù)據(jù)
本文給大家分享的是實(shí)現(xiàn)使用FTP遠(yuǎn)程備份數(shù)據(jù)到本地的批處理腳本，非常的簡單實(shí)用，有需要的小伙伴可以參考下。2015-09-09
dos下獲取系統(tǒng)時(shí)間的實(shí)現(xiàn)代碼，需要的朋友可以參考下2013-07-07