[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. lists = "SERVER;PENYAN;Caiwu;andysky"
  2. aMachines = split(lists,";")
  3. For Each machine in aMachines
  4.     Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
  5.         ExecQuery("select * from Win32_PingStatus where address = '"& machine & "'")
  6.     For Each objStatus in objPing
  7.         If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
  8.           s1 = s1 &vbcr&  machine
  9.         Else
  10.           s2 = s2 &vbcr&  machine
  11.         End If
  12.     Next
  13. Next
  14. Set fso=CreateObject("Scripting.Filesystemobject")
  15. Set f=fso.CreateTextFile("d:\ping_log",True)
  16. f.Write "ping通:"&vbCrLf&s2
  17. f.close
  18. WScript.Echo("保存为d:\ping_log.txt")
复制代码
---学无止境---

TOP

返回列表