灯火互联
管理员
管理员
  • 注册日期2011-07-27
  • 发帖数41778
  • QQ
  • 火币41290枚
  • 粉丝1086
  • 关注100
  • 终身成就奖
  • 最爱沙发
  • 忠实会员
  • 灌水天才奖
  • 贴图大师奖
  • 原创先锋奖
  • 特殊贡献奖
  • 宣传大使奖
  • 优秀斑竹奖
  • 社区明星
阅读:1377回复:0

获取外网IP地址的批处理代码

楼主#
更多 发布于:2013-06-03 11:15
命令行获取外网IP地址,主要是利用批处理获取网页中的ip数据。

 
复制代码 代码如下:

::========================================== 
:: IP.bat 
:: v0.1 
:: jinminghou.cn@2009-12-22 
::========================================== 
@echo off 
title GetIP 
set ip=unknown 
echo On Error Resume Next:Set oDOM=WScript.GetObject("http://www.jinminghou.cn/?app=ip&flag=client&temp="^&now()):Dim i:For i = 1 To 50:If 
oDOM.ReadyState="complete" Then Exit For:End If:WScript.Sleep 200:Next:Dim Temp:Temp=oDOM.documentElement.outerText:Set oDOM=Nothing:Temp=Mid(Temp, Instr 
(Temp, "[")+1, Instr(Temp, "]")-Instr(Temp, "[")-1):WScript.Echo Temp>"%temp%\GetIP.vbs" 
for /f "tokens=1,* delims=:" %%i in ('"cscript //nologo ^"%temp%\GetIP.vbs^"') do set ip=%%i 
if exist "%temp%\Getip.vbs" del "%temp%\Getip.vbs">2>nul 
echo Your IP: [%ip%] 
pause>2>nul

喜欢0 评分0
游客

返回顶部