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

[转贴] ping某个网段的VBS脚本

  1. '这是一个关于ping某个网段的程序
  2. strSubNet = "192.168.21."   '定义一个网段
  3. Set objFSO= CreateObject("Scripting.FileSystemObject")   '创建objFOS文件对象
  4. Set objTS = objfso.CreateTextFile("c:\PingResult.txt")   '由文件对象objfos创建objts这个文件
  5. For i = 1 To 254     '定义从1开始到254结束的IP地址段
  6.     strComputer = strSubNet & i  '定义一个IP地址的标准文本
  7.     blnResult = Ping(strComputer)  '调用自定义Ping函数来试试上面的IP的机器是否开机,返回一个布尔值,前提是对方机器没有防火墙等限制.
  8.         If blnResult = True Then      '如果通则把结果写入文件对象流中.
  9.             objTS.WriteLine "Ping " & strComputer & " success!"
  10.         End If
  11. Next
  12. objTS.Close    '文件对象流关闭
  13. wScript.Echo "Done!"   '提示任务完成
  14. '如下是一个标准的ping 应用程序,可在MS vbedit中找到文本
  15. Function Ping(strComputer)
  16.     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  17.     Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address='" & strComputer & "'")
  18.     For Each objItem In colItems
  19.         Select case objItem.StatusCode
  20.                     Case 0
  21.                           Ping = True
  22.                     Case Else
  23.                           Ping = False
  24.          End select
  25.          Exit For
  26.     Next
  27. End Function
复制代码

http://xyg23456.blog.51cto.com/230495/351050

返回列表