Script for Pinging multiple servers

[Hari Kumar]

    VBS Programming

'===============================================================================​========================================================
'===============================================================================​========================================================
' Ping.vbs
' 
' Title................ : Script to Ping Machines
' 
'===============================================================================​========================================================
'===============================================================================​========================================================
'Option Explicit
 
 
dim strMsg
dim DateM,DateD,DateY,DateH,DateMi
dim arrySecurityDescriptor
dim objFSO, objTSL,objTSR,objTSN
dim intTargetCnt
dim strComputer,strResult
dim vErrText
dim strListPath,strResultPath
 
strListPath = ""     
 
strResultPath = ""    
 
 
On Error Resume Next
 
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTsL = objFso.OpenTextFile(strListPath & "computers.txt",1)                    ''''File to get the machine list.
Call ErrHandle("Opening List of Computers - " & strListPath & "computers.txt")   ''''Error handling if the file is unable to open.
Set objTsR = objFso.CreateTextFile(strResultPath & "Alive.txt",2)                      '''''File to store the results for later review.
Call ErrHandle("Opening Result File - " & strResultPath & "Alive.txt")                 '''''Error handling if the file is unable to open.
Set objTsN = objFso.CreateTextFile(strResultPath & "NotAlive.txt",2)                 '''''File to store the results for later review.
Call ErrHandle("Opening Result File - " & strResultPath & "NotAlive.txt")            '''''Error handling if the file is unable to open.
 
 
 
intTargetCnt = 0          '''''To Check the number of machines processed.
 
Do Until objTsL.AtEndOfStream
 strComputer = objTsL.ReadLine        '''''Getting the computer name.
 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 Set colItems = objWMIService.ExecQuery _
     ("Select * from Win32_PingStatus " & _
            "Where Address = '" & strComputer & "'")
 For Each objItem in colItems
     If objItem.StatusCode = 0 Then
         'WScript.Echo "Reply received."         
  'objTsR.WriteLine ()
  objTsR.WriteLine (strComputer)
  'objTsR.WriteLine ()
              Else
   'WScript.Echo "No Reply received."         
  'objTsN.WriteLine ()
  objTsN.WriteLine (strComputer)
  'objTsN.WriteLine ()
             End If  
 Next
 
Loop
 
 
Sub ErrHandle(vActivity)        '''''Subroutine for handling the error in file operations.
 If err <> 0 Then
  vErrText = "There has been a problem with " & vActivity
  wscript.echo  vErrText & vbcrlf & string(Len(vErrText),"-") & vbcrlf & "Error Number : " & err.number & vbcrlf & " Error Description : " & err.description
  CleanUpAndGo
 End If
End Sub

-------------------------------------------------------
Save this script in C:\ping folder.
Copy the computer name for which you need to know the ping results in computers.txt file.
Double click on the script .
You will see 2 txt file created in same folder.
One is Alive.txt - Pinging servers
Other one Not- Alive.txt - Not pinging servers

[Nilpo]

Thank you for your contribution! As a side note, the Win32_PingStatus class is only available on Windows XP and newer.