获取外网ip.bat

来自「高手lxmxn收集的批处理。包括了批处理教程和他写的几十个很经典的代码。」· Batch 代码 · 共 16 行

::获取外网IP
::From bbs.cn-dos.net

@echo off
<"%~f0" more +8 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1
del tmp.vbs&&pause
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/")

do until oDOM.readyState = "complete"
WScript.sleep 200
Loop

s=oDOM.all(51).innerText
WScript.Echo Right(s,Len(s)-8)