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

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2016-12-27 08:45 | 只看该作者

[网络连接] [暂解决-待测试]批处理如何实现对两个指定服务器检测能否ping通并弹出提示对话框

本帖最后由 ygqiang 于 2016-12-29 21:36 编辑

[暂解决-待测试]先后分别ping测试这2个服务器，看看能否ping通。

请直接跳转到12楼


1、如果同时ping通aa服务器和bbb服务器，就继续运行:next后续代码
2、如果有1个ping不通或者2个都ping不通，就弹出提示对应窗口（比如提示aa服务器网络不通或者bbb服务器网络不通）。
（最好可以设置倒计时10秒后，提示窗口自动关闭）。然后继续分别ping这2个服务器
  1. set yktserv=10.10.11.16

  2. echo aa服务器

  3. 

  4. set ywserv=192.168.11.119

  5. echo bbb服务器

  6. 

  7. 

  8. echo ————————————————————————————  >nul 2>nul

  9. echo aa服务器

  10. :netykt

  11. ping %yktserv% -n 1

  12. echo %errorlevel%

  13. if %errorlevel% equ 1 goto :netykt

  14. 

  15. ping 127.0.0.1 -n 2

  16. 

  17. 

  18. 

  19. 

  20. echo ————————————————————————————  >nul 2>nul

  21. echo bbb服务器

  22. :netyw

  23. ping %ywserv% -n 1

  24. echo %errorlevel%

  25. if %errorlevel% equ 1 goto :netyw

  26. 

  27. ping 127.0.0.1 -n 2

  28. 

  29. 

  30. 

  31. :next

  32. 后续代码
复制代码
收藏 分享

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
2楼
发表于 2016-12-27 09:20 | 只看该作者 
  1. @echo off

  2. :r

  3. set /a n=0

  4. set a=10.10.11.16

  5. set b=192.168.11.119

  6. ping %a% -n 1 >nul 2>nul && set /a n+=1||call:msg %a%

  7. ping %b% -n 1 >nul 2>nul && set /a n+=1||call:msg %b%

  8. if %n% geq 2 goto next

  9. goto r

  10. 

  11. :msg

  12.     mshta vbscript:createobject("wscript.shell").popup("服务器 %1 请求超时...",10,"提示",4096)(window.close)

  13. goto :eof

  14. 

  15. :next

  16.     echo ok!
复制代码

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
3楼
发表于 2016-12-27 09:34 | 只看该作者
回复 2# Nsqs


    多谢。。。能否修改下。

2、如果有1个ping不通或者2个都ping不通，就弹出提示对应窗口。
需要提示下面3种情况：（aa服务器网络不通、bbb服务器网络不通）、（aa服务器网络通、bbb服务器网络不通）（aa服务器网络不通、bbb服务器网络通）
而且要求（）内的内容，同时显示在提示窗口内。

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
4楼
发表于 2016-12-27 09:37 | 只看该作者
回复 3# ygqiang


    一般严格来讲这种功能已经超出bat处理范围内了,因为bat不支持多线程处理,要同时ping这个问题几乎是不可能的

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
5楼
发表于 2016-12-27 09:42 | 只看该作者
回复 4# Nsqs

不是同时ping，是先后ping，如果至少有一个ping不通，就弹出提示窗口。

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
6楼
发表于 2016-12-27 10:14 | 只看该作者
回复 5# ygqiang


    有个小问题。
这个弹出的提示框，能否设置长度、宽度大一些？

TOP

GNU

Rank: 5Rank: 5

帖子
742 
积分
1455 
技术
63  
捐助
30  
注册时间
2010-4-5 
7楼
发表于 2016-12-27 13:12 | 只看该作者
回复 7# ygqiang


查了一下文档，popup没有这样的参数。
intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
8楼
发表于 2016-12-27 14:05 | 只看该作者
回复 8# GNU 
  1.     @echo off

  2. :r

  3. set /a n=0

  4. set a=10.10.11.16

  5. set b=192.168.11.119

  6. ping %a% -n 1 >nul 2>nul && set /a n+=1||call:msg %a%

  7. ping %b% -n 1 >nul 2>nul && set /a n+=1||call:msg %b%

  8. if %n% geq 2 goto next

  9. goto r

  10. 

  11. :msg

  12.     start mshta vbscript:createobject("wscript.shell").popup(string(5,chr(13))^&string(40,chr(32))^&"服务器 %1 请求超时..."^&string(60,chr(32))^&string(5,chr(13)),10,"提示",4096)(window.close)

  13. goto :eof

  14. 

  15. :next

  16.     echo ok!
复制代码
宽度

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
9楼
发表于 2016-12-28 10:20 | 只看该作者
搞定了。
  1. @echo off

  2. echo 让弹出的窗口，分成上下2行显示

  3. 

  4. :start1

  5. 

  6. 

  7. set /a n=0

  8. set a=192.168.11.16

  9. set aa=aa服务器

  10. set b=192.168.11.119

  11. set bb=bbb服务器

  12. 

  13. 

  14. 

  15. 

  16. ping %a% -n 1 >nul 2>nul && set /a n+=1 && goto :aaa||goto :bbb

  17. 

  18. 

  19. :aaa

  20. ping %b% -n 1 >nul 2>nul && set /a n+=1 && goto :nextok||call:msg1

  21. 

  22. if %n% geq 2 goto :nextok

  23. goto :start1

  24. 

  25. 

  26. :bbb

  27. ping %b% -n 1 >nul 2>nul && set /a n+=1 && call:msg2||call:msg3

  28. 

  29. 

  30. if %n% geq 2 goto :nextok

  31. goto :start1

  32. 

  33. 

  34. 

  35. 

  36. 

  37. :msg1

  38.     mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络正常"^&vbCrLf^&"%bb%%b%网络不通...",10,"提示",4096)(window.close)

  39. goto :eof

  40. 

  41. :msg2

  42.     mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络不通"^&vbCrLf^&"%bb%%b%网络正常...",10,"提示",4096)(window.close)

  43. goto :eof

  44. 

  45. :msg3

  46.     mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络不通"^&vbCrLf^&"%bb%%b%网络不通...",10,"提示",4096)(window.close)

  47. goto :eof

  48. 

  49. 

  50. 

  51. :nextok

  52.     echo ok!

  53. mshta vbscript:createobject("wscript.shell").popup("%aa%%a%网络正常"^&vbCrLf^&"%bb%%b%网络正常...",2,"提示",4096)(window.close)

  54. 

  55. goto :eof
复制代码

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
10楼
发表于 2016-12-28 12:46 | 只看该作者
回复 9# ygqiang

win7下弹出的提示对话框会自动关闭么

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
11楼
发表于 2016-12-28 15:57 | 只看该作者
回复 10# pcl_test


    可以的。

TOP

ygqiang

Rank: 5Rank: 5

帖子
1230 
积分
644 
技术
11  
捐助
50  
注册时间
2010-4-18 
12楼
发表于 2016-12-29 20:03 | 只看该作者
本帖最后由 pcl_test 于 2016-12-29 21:43 编辑

回复 8# Nsqs
回复 7# GNU

请教下：

ping某个ip，如果ping通畅，就继续下面代码。
如果不通畅，就间隔20秒一直ping。
然后20分钟后，还是不通，就退出

如果用for循环，可以实现20分钟间隔。
但是ping通畅，也跟着在for循环里面一直ping了。。如何解决？



暂时解决。。。待测试。
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. 

  4. set tf=0

  5. 

  6. echo 循环执行

  7. 

  8. for /l %%a in (1,1,5) do (

  9. 

  10. if !tf! equ 1 echo OKtuichu && exit/b

  11. 

  12. call :start1

  13. ping 127.0.0.1 -n 5 >nul 2>nul

  14. 

  15. 1pause

  16. )

  17. 

  18. echo neterror

  19. 1pause

  20. echo 如果网络error，循环检测几次后，就直接退出。

  21. 

  22. exit

  23. 

  24. 

  25. 

  26. :nextok

  27. mshta vbscript:createobject("wscript.shell").popup("!aa!%a%——————网络正常——————"^&vbCrLf^&"%bb%%b%——————网络正常——————",2,"提示",4096)(window.close)

  28. echo netok

  29. 1pause

  30. 

  31. set /a tf=1

  32. goto :eof

  33. 

  34. 

  35. :start1

  36. 

  37. set /a n=0

  38. set a=192.168.0.8

  39. set aa=aa服务器

  40. set b=192.168.0.1

  41. set bb=bbb服务器

  42. 

  43. ping %a% -n 1 >nul 2>nul && set /a n+=1 && goto :aaa||goto :bbb

  44. 

  45. :aaa

  46. ping %b% -n 1 >nul 2>nul && set /a n+=1 && goto :nextok||call:msg1

  47. 

  48. if %n% geq 2 goto :nextok

  49. goto :eof

  50. 

  51. :bbb

  52. ping %b% -n 1 >nul 2>nul && set /a n+=1 && call:msg2||call:msg3

  53. goto :eof

  54. 

  55. :msg1

  56.     mshta vbscript:createobject("wscript.shell").popup("%aa%%a%——————网络正常——————"^&vbCrLf^&"%bb%%b%!===========网络故障===========",10,"提示",4096)(window.close)

  57. goto :eof

  58. 

  59. :msg2

  60.     mshta vbscript:createobject("wscript.shell").popup("%aa%%a%!===========网络故障==========="^&vbCrLf^&"%bb%%b%——————网络正常——————",10,"提示",4096)(window.close)

  61. goto :eof

  62. 

  63. :msg3

  64.     mshta vbscript:createobject("wscript.shell").popup("!aa!!a!===========网络故障==========="^&vbCrLf^&"!bb!!b!===========网络故障===========",10,"提示",4096)(window.close)

  65. goto :eof
复制代码

TOP

返回列表