[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
悬崖之树

Rank: 5Rank: 5

帖子
226 
积分
1298 
技术
9  
捐助
0  
注册时间
2012-7-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2013-7-10 21:58 | 只看该作者

[网络连接] 批处理如何获取自己电脑的外网ip？

我有个想法，就是用浏览器访问 www.ip138.com，在得到的页面里就可以截取到ip了，但是不知道如何用批处理实现。
收藏 分享
时光荏苒||新陈代谢&&涛声依旧||本性难移

Python

Rank: 6Rank: 6

帖子
225 
积分
2218 
技术
23  
捐助
0  
注册时间
2012-2-17 
2楼
发表于 2013-7-10 22:43 | 只看该作者
http://bbs.bathome.net/thread-2870-1-1.html
http://bbs.bathome.net/thread-4978-1-1.html

TOP

522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
3楼
发表于 2013-7-10 23:46 | 只看该作者
本帖最后由 pcl_test 于 2017-6-15 19:42 编辑 
  1. @echo off

  2. more /e +12 %0 >"%temp%\down.vbs"

  3. wscript //b "%temp%\down.vbs" "http://1212.ip138.com/ic.asp" "%temp%\ip.txt"

  4. if not errorlevel 99 echo vbs错误 & goto end

  5. FOR /F "usebackq tokens=2 delims=[]" %%i in ("%temp%\ip.txt") do (if "%%i"=="" (set "ip=ip138.com源码已变更。") else (set ip=%%i))

  6. for /f "usebackq tokens=2 delims=]" %%a in ("%temp%\ip.txt") do (for /f "delims=<" %%b in ("%%a") do set "ad=%%b")

  7. echo.%ad% %ip%

  8. del /q "%temp%\ip.txt"

  9. :end

  10. del /q "%temp%\down.vbs"

  11. pause&exit

  12. 

  13. With CreateObject("msxml2.Serverxmlhttp")

  14.     .open "get",WScript.Arguments.Item(0),False

  15.     .send

  16.     temp = .responseBody

  17. End With

  18. With CreateObject("adodb.stream")

  19.     .Type = 1:.Mode = 3

  20.     .Open()

  21.     .Write(temp)

  22.     .SaveToFile WScript.Arguments.Item(1),2

  23.     .Close

  24. End With

  25. Wscript.Quit (99)
复制代码

TOP

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
0  
注册时间
2008-2-25 
4楼
发表于 2013-7-11 01:03 | 只看该作者
仅获取外网ip的话 一样用
  1. @echo off

  2. <"%~f0" more +3 >Getip.vbs

  3. for /f "tokens=2" %%i in ('cscript //nologo Getip.vbs') do echo 外网%%i&del Getip.vbs&pause&exit

  4. Set oDOM=WScript.GetObject("http://www.ip.cn/getip.php?action=getip&ip_url=")

  5. Do Until oDOM.readyState="complete"

  6. WScript.sleep 100

  7. Loop

  8. WScript.echo oDOM.documentElement.outerText
复制代码

TOP

PowerShell

Rank: 5Rank: 5

帖子
437 
积分
1319 
技术
27  
捐助
0  
注册时间
2013-6-30 
5楼
发表于 2013-7-11 09:28 | 只看该作者
powershell 版的在此
http://www.bathome.net/thread-13177-1-2.html
脚本是写给人看的,是写给用户看的,而不是写给机子看的
用户能看懂、会修改的脚本,才是好脚本。
写易懂的powershell脚本帮人解决问题,进而让用户学会自渔,吾所愿也

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18837 
技术
980  
捐助
100  
注册时间
2010-10-9 
6楼
发表于 2013-7-11 19:09 | 只看该作者
非局域网可以直接用 ipconfig，不然可以这样：
  1. @echo off

  2. down http://iframe.ip138.com/ic.asp ip.txt >nul

  3. for /f "tokens=2delims=[]" %%a in (ip.txt) do set ip=%%a

  4. echo 外网ip=%ip%

  5. pause
复制代码
第三方 down.exe 可以改用 curl 或 wget 或 vbs 脚本什么的
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

wskwfkbdn

Rank: 4

帖子
247 
积分
341 
技术
15  
捐助
0  
注册时间
2012-9-21 
7楼
发表于 2013-7-13 23:44 | 只看该作者
@echo off
curl -o searchip.asp "http://ip.qq.com/">nul 2>nul
for /f "tokens=3 delims=>" %%i in ('type searchip.asp^|find "您当前的IP为"') do set xiao=%%i
echo 您当前的外网IP为：%xiao:~0,-6%
pause

需附带CURL命令行 http://pan.baidu.com/share/link?shareid=2792761129&uk=2164395479

TOP

返回列表