asked on

Ping machines in a txt file and save results in 2 ways.

Hi,

Ping machines in a txt file and save results in 2 ways.
I will have machine names in the txt file
Need to ping and get the ip address and then ping ip with -a and get the machine name

reason is many machines show wrong machine names when pinged so need this report.

Any help is great use

regards
raja

GlobaLevel

Some vbscripts:
The attached script found online

http://www.wisesoft.co.uk/scripts/vbscript_ping_all_computers_in_the_domain.aspx

"John Lumadue" <jlumadue@xxxxxxxxxxx> wrote in message 
news:u56aHWXrFHA.1236@xxxxxxxxxxxxxxxxxxxxxxx 
> This is one of Microsoft's examples to ping multiple machines via an 
> Array(): 
> 
> On Error Resume Next 
> 
> arrTargets = Array("pcname1", "pcname2") 
> For Each strTarget In arrTargets 
> Set objShell = CreateObject("WScript.Shell") 
> Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget) 
> strPingResults = LCase(objExec.StdOut.ReadAll) 
> If InStr(strPingResults, "reply from") Then 
> WScript.Echo VbCrLf & strTarget & " responded to ping." 
> Set objWMIService = GetObject("winmgmts:" _ 
> & "{impersonationLevel=impersonate}!\\" & strTarget & "\root\cimv2") 
> Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM " & _ 
> "Win32_ComputerSystem") 
> For Each objCompSystem In colCompSystems 
> WScript.Echo "Host Name: " & LCase(objCompSystem.Name) 
> Next 
> Else 
> WScript.Echo VbCrLf & strTarget & " did not respond to ping." 
> End If 
> Next 
> 
> 
> The problem I have is that I have over 450 machines to resolve and I am not 
> about to add each one in the Array, separated by quotes. Is there any way 
> of having this script use a text file with the machine names listed instead? 
> It is much easier to paste machines into a text file anytime I want to ping 
> unknown hosts. 
> 
> Thanks! 
> 
> John 


This sample script should help you: 
http://www.microsoft.com/technet/scriptcenter/scripts/misc/input/msinvb03.mspx

The script reads each line of a text file and then adds the line to a Dictionary 
(similar to a collection). Then it loops through each item in the Dictionary.
In the sample script, just replace these 3 lines with your script: 

Set colServices = GetObject("winmgmts://" & objDictionary.Item(objItem) _ 
& "").ExecQuery("Select * from Win32_Service") 
Wscript.Echo colServices.Count 


I haven't tested this, but the 2 scripts combined together would look something 
like this: 


On Error Resume Next 
Const ForReading = 1 
Set objArgs = WScript.Arguments 

Set objDictionary = CreateObject("Scripting.Dictionary") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFSO.OpenTextFile(objArgs(0), ForReading) 
i = 0 

Do While objTextFile.AtEndOfStream <> True 
strNextLine = objTextFile.Readline 
objDictionary.Add i, strNextLine 
i = i + 1 
Loop 

For Each objItem in objDictionary 
strTarget = objDictionary.Item(objItem) 
Set objShell = CreateObject("WScript.Shell") 
Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget) 
strPingResults = LCase(objExec.StdOut.ReadAll) 
If InStr(strPingResults, "reply from") Then 
WScript.Echo VbCrLf & strTarget & " responded to ping." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strTarget & "\root\cimv2") 
Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM " & _ 
"Win32_ComputerSystem") 
For Each objCompSystem In colCompSystems 
WScript.Echo "Host Name: " & LCase(objCompSystem.Name) 
Next 
Else 
WScript.Echo VbCrLf & strTarget & " did not respond to ping." 
End If 
Next 




. 

Follow-Ups:
Re: How to ping multiple machines from txt file?
From: John Lumadue