In theory you should know if all your machines are active or not in your environment. However as the environment gets bigger or more people work on it this can become confusing.<\/p>\n
This powershell script reads a list ( in txt format ) of machines you want to ping , how many pings , max concurrent pings times to ping and gives you an output file. We cant claim any glory on the the script but we are sharing the knowledge<\/p>\n
<\/p>\n
Param(
\n[parameter(Mandatory=$true)]
\n$InputFilePath,
\n[parameter(Mandatory=$true)]
\n$MaxConcurrent,
\n[parameter(Mandatory=$true)]
\n$TimesToPing,
\n$TimeoutInSeconds,
\n$ResolveNames
\n)<\/p>\n
$Start = [System.DateTime]::Now
\nWrite-Host “Version 1.0”
\nWrite-Host “InputFilePath:”$InputFilePath
\nWrite-Host “MaxConcurrent:”$MaxConcurrent
\nWrite-Host “TimesToPing:”$TimesToPing
\nWrite-Host “TimeoutInSeconds:”$TimeoutInSeconds
\nWrite-Host “ResolveNames:”$ResolveNames<\/p>\n
function GetNamesFromTextFile
\n{
\nparam($file)<\/p>\n
$ht = @{}<\/p>\n
try
\n{
\nforeach ($line in [System.IO.File]::ReadLines($file))
\n{
\ntry { $ht.Add($line.ToString().Trim(), $line.ToString().Trim()) } catch {}
\n}
\n}
\ncatch
\n{
\nWrite-Host “Failed to Read File, Exiting:”$ms -ForegroundColor Red
\nWrite-Host $_.Exception.Message -ForegroundColor Yellow
\nexit
\n}<\/p>\n
return $ht
\n}<\/p>\n
function GetStatusCodeString
\n{
\nparam ($code)<\/p>\n
switch ($code)
\n{
\n$null {$ret = “Ping Command Failed”}
\n0 {$ret = “Success”}
\n11001 {$ret = “Buffer Too Small”}
\n11002 {$ret = “Destination Net Unreachable”}
\n11003 {$ret = “Destination Host Unreachable”}
\n11004 {$ret = “Destination Protocol Unreachable”}
\n11005 {$ret = “Destination Port Unreachable”}
\n11006 {$ret = “No Resources”}
\n11007 {$ret = “Bad Option”}
\n11008 {$ret = “Hardware Error”}
\n11009 {$ret = “Packet Too Big”}
\n11010 {$ret = “Request Timed Out”}
\n11011 {$ret = “Bad Request”}
\n11012 {$ret = “Bad Route”}
\n11013 {$ret = “TimeToLive Expired Transit”}
\n11014 {$ret = “TimeToLive Expired Reassembly”}
\n11015 {$ret = “Parameter Problem”}
\n11016 {$ret = “Source Quench”}
\n11017 {$ret = “Option Too Big”}
\n11018 {$ret = “Bad Destination”}
\n11032 {$ret = “Negotiating IPSEC”}
\n11050 {$ret = “General Error”}
\ndefault {$ret = “Ping Failed”}
\n}<\/p>\n
return $ret
\n}<\/p>\n
function GetPingResultsFromHashTable
\n{
\nparam($ht, $maxConcurrent, $count, $timeout)<\/p>\n
$bDone = $false
\n$i = 0
\n$totalMachines = 0
\n$htResults = @{}
\n$dotTime = [System.DateTime]::Now
\nif ($timeout -eq $null) {$timeout = 120}<\/p>\n
Write-Host (“Sending Ping Command to {0} Machines” -f $ht.Count) -NoNewline<\/p>\n
foreach ($name in $ht.GetEnumerator())
\n{
\nwhile ((Get-Job -State Running).Count -ge $maxConcurrent)
\n{
\nStart-Sleep -Seconds 1
\nif ($i -ge 50) { Write-Host “*”; $i = 0 }
\nelse { Write-Host “*” -NoNewline; $i++ }
\n}<\/p>\n
$job = Test-Connection -ComputerName $name.Key.ToString() -Count $count -AsJob
\n$job.name = “ping:{0}” -f $name.Key.ToString()<\/p>\n
if ([System.DateTime]::Now -gt $dotTime)
\n{
\n$dotTime = ([System.DateTime]::Now).AddSeconds(1)
\nif ($i -ge 50) { Write-Host “.”; $i = 0 }
\nelse { Write-Host “.” -NoNewline; $i++ }
\n}
\n}<\/p>\n
#Start time now, exit in case of timeout
\n$timeout = ([System.DateTime]::Now).AddSeconds($timeout)
\n$dotTime = [System.DateTime]::Now
\n$i = 0
\nWrite-Host
\nWrite-Host “Getting Ping Results” -NoNewline<\/p>\n
while(!($bDone))
\n{
\n$results = Get-Job -Name ‘ping:*’
\n$bRunning = $false<\/p>\n
foreach ($result in $results)
\n{
\nif ($result.State -ne ‘Running’)
\n{
\nif ($result.State -eq ‘Failed’)
\n{
\n#resubmit job
\nif ($i -ge 50) { Write-Host “+”; $i = 0 }
\nelse { Write-Host “+” -NoNewline; $i++ }
\n$job = Test-Connection -ComputerName $result.Name.ToString().Split(“:”)[1] -Count $count -AsJob
\n$job.name = “ping:{0}” -f $result.Name.ToString().Split(“:”)[1]
\n}
\nelse
\n{
\ntry { $htResults.Add($result.Name.ToString().Split(“:”)[1], (Receive-Job $result)) } catch {}
\n$totalMachines++
\n}<\/p>\n
if ([System.DateTime]::Now -gt $dotTime)
\n{
\n$dotTime = ([System.DateTime]::Now).AddSeconds(1)
\nif ($i -ge 50) { Write-Host “.”; $i = 0 }
\nelse { Write-Host “.” -NoNewline; $i++ }
\n}<\/p>\n
try { Remove-Job $result } catch {}
\n}
\nelse
\n{
\n$bRunning = $true
\n}
\n}<\/p>\n
#Check for timeout condition, clean up all jobs if true
\nif ([System.DateTime]::Now -gt $timeout)
\n{
\n$bDone = $true
\nWrite-Host “Timeout reached, removing jobs”
\n$results = Get-Job -Name ‘ping:*’
\nforeach ($result in $results)
\n{
\nWrite-Host “RemoveJob:”$result.Name
\ntry
\n{
\nStop-Job $result
\ntry { Remove-Job $result -Force } catch {}
\n}
\ncatch {}
\n}
\n}<\/p>\n
#If the timeout hasn’t been reached and jobs are still running, loop again
\nif (!($bRunning)) { $bDone = $true }
\n}<\/p>\n
Write-Host
\nWrite-Host (“Received Ping Results From {0} Machines” -f $totalMachines)<\/p>\n
return $htResults
\n}<\/p>\n
function ResolveNamesFromPingResults
\n{
\nparam($array, $maxConcurrent, $resolveNames, $timeout)<\/p>\n
try { if ($resolveNames -ne $null) { [bool]$resolveNames = [System.Convert]::ToBoolean($resolveNames) } } catch {}<\/p>\n
$htResults = @{}<\/p>\n
if ($resolveNames)
\n{
\n$dotTime = ([System.DateTime]::Now)
\nif ($timeout -eq $null) {$timeout = 120}
\n$i = 0
\n$scriptBlock =
\n{
\nparam($s)
\ntry { $ret = [System.Net.DNS]::GetHostEntry($s) } catch {}
\nreturn $ret
\n}
\nWrite-Host (“Resolving DNS Names for {0} Machines” -f $array.Count) -NoNewline
\nforeach ($name in $array)
\n{
\nwhile ((Get-Job -State Running).Count -ge $maxConcurrent)
\n{
\nStart-Sleep -Seconds 1
\nif ($i -ge 50) { Write-Host “*”; $i = 0 }
\nelse { Write-Host “*” -NoNewline; $i++ }
\n}
\n$job = Start-Job -ScriptBlock $scriptBlock -ArgumentList $name.NameInList
\n$job.name = “resolve:{0}” -f $name.NameInList
\nif ([System.DateTime]::Now -gt $dotTime)
\n{
\n$dotTime = ([System.DateTime]::Now).AddSeconds(1)
\nif ($i -ge 50) { Write-Host “.”; $i = 0 }
\nelse { Write-Host “.” -NoNewline; $i++ }
\n}
\n}<\/p>\n
#Start time now, exit in case of timeout
\n$timeout = ([System.DateTime]::Now).AddSeconds($timeout)
\n$dotTime = ([System.DateTime]::Now)
\n$i = 0
\n$bDone = $false<\/p>\n
Write-Host
\nWrite-Host “Getting DNS Results” -NoNewline
\nwhile(!($bDone))
\n{
\n$results = Get-Job -Name ‘resolve:*’
\n$bRunning = $false<\/p>\n
foreach ($result in $results)
\n{
\nif ($result.State -ne ‘Running’)
\n{
\nif ($result.State -eq ‘Failed’)
\n{
\n#resubmit job
\nif ($i -ge 50) { Write-Host “+”; $i = 0 }
\nelse { Write-Host “+” -NoNewline; $i++ }
\n$job = Start-Job -ScriptBlock $scriptBlock -ArgumentList $result.Name.ToString().Split(“:”)[1]
\n$job.name = “resolve:{0}” -f $result.Name.ToString().Split(“:”)[1]
\n}
\nelse
\n{
\ntry { $htResults.Add($result.Name.ToString().Split(“:”)[1], (Receive-Job $result)) } catch {continue}
\n}<\/p>\n
if ([System.DateTime]::Now -gt $dotTime)
\n{
\n$dotTime = ([System.DateTime]::Now).AddSeconds(1)
\nif ($i -ge 50) { Write-Host “.”; $i = 0 }
\nelse { Write-Host “.” -NoNewline; $i++ }
\n}<\/p>\n
try { Remove-Job $result -Force} catch {}
\n}
\nelse
\n{
\n$bRunning = $true
\n}
\n}<\/p>\n
#Check for timeout condition, clean up all jobs if true
\nif ([System.DateTime]::Now -gt $timeout)
\n{
\n$bDone = $true
\nWrite-Host “Timeout reached, removing jobs”
\n$results = Get-Job -Name ‘resolve:*’
\nforeach ($result in $results)
\n{
\nWrite-Host “RemoveJob:”$result.Name
\ntry
\n{
\nStop-Job $result
\ntry { Remove-Job $result -Force } catch {}
\n}
\ncatch {}
\n}
\n}<\/p>\n
#If the timeout hasn’t been reached and jobs are still running, loop again
\nif (!($bRunning)) { $bDone = $true }
\n}
\nWrite-Host
\nWrite-Host (“Received DNS Results From {0} Machines” -f $htResults.Count)
\n}<\/p>\n
return $htResults
\n}<\/p>\n
function GetFormattedPingResultsFromHashTable
\n{
\nparam($ht)<\/p>\n
$fResults = New-Object System.Collections.ArrayList
\n$dotTime = ([System.DateTime]::Now)
\n$i = 0
\nWrite-Host “Formatting Ping Results” -NoNewLine<\/p>\n
foreach ($result in $ht.GetEnumerator())
\n{
\n#There are multiple pings here if we ping more than once per computer
\n$originalAddress = $result.Key.ToString()
\n$pingCount = 0
\n$successCount = 0
\n$status = ‘Ping Job Failed’
\n$pingedFrom = ‘Ping Job Failed’
\n$successPercentage = 0<\/p>\n
try { $pings = $result.Value.Count } catch { $pings = 0 }
\nif ($pings -gt 0)
\n{
\n$status = GetStatusCodeString -code $result.Value[$pings-1].StatusCode
\n$pingedFrom = $result.Value[$pings-1].PSComputerName
\n}<\/p>\n
foreach ($ping in $result.Value)
\n{
\n$pingCount++
\nif ($ping.StatusCode -eq 0) { $successCount++ }
\n#If you try to get the IPv4Address or IPv6Address it slows down this loop significantly
\n}<\/p>\n
#Calculate percentage
\nif ($pingCount -ne 0) { $successPercentage = ($successCount \/ $pingCount) * 100 }
\nelse { $successPercentage = 0 }<\/p>\n
#Add to array
\n$o = New-Object PSObject -Property @{
\nNameInList = $originalAddress
\nPingedFrom = $pingedFrom
\nSuccessPercentage = $successPercentage
\nLastPingStatus = $status
\n}<\/p>\n
[void]$fResults.Add($o)<\/p>\n
if ([System.DateTime]::Now -gt $dotTime)
\n{
\n$dotTime = ([System.DateTime]::Now).AddSeconds(1)
\nif ($i -ge 50) { Write-Host “.”; $i = 0 }
\nelse { Write-Host “.” -NoNewline; $i++ }
\n}
\n}<\/p>\n
Write-Host
\nWrite-Host (“Formatted Ping Results for {0} Machines” -f $fResults.Count)<\/p>\n
return $fResults
\n}<\/p>\n
function GetFormattedPingAndDNSResults
\n{
\nparam($pingResults, $dnsResults)<\/p>\n
if ($dnsResults.Count -ne 0)
\n{
\nWrite-Host “Formatting DNS Results” -NoNewLine
\n$dotTime = ([System.DateTime]::Now)
\n$i = 0
\nforeach ($ping in $pingResults)
\n{
\n$dns = $dnsResults.Get_Item($ping.NameInList)
\nif ($dns -ne $null)
\n{
\n$bFirst = $true
\nforeach ($ip in $dns.AddressList)
\n{
\nif ($bFirst){ $ipList = $ip }
\nelse { $ipList += “|” + $ip }
\n}<\/p>\n
$fqdn = $dns.HostName
\n}
\nelse
\n{
\n$ipList = $null
\n$fqdn = ‘No DNS Entry Found’
\n}<\/p>\n
$ping | Add-Member -MemberType NoteProperty -Name NameFromDNS -value $fqdn -Force
\n$ping | Add-Member -MemberType NoteProperty -Name IPAddressListFromDNS -value $ipList -Force<\/p>\n
if ([System.DateTime]::Now -gt $dotTime)
\n{
\n$dotTime = ([System.DateTime]::Now).AddSeconds(1)
\nif ($i -ge 50) { Write-Host “.”; $i = 0 }
\nelse { Write-Host “.” -NoNewline; $i++ }
\n}
\n}
\nWrite-Host
\nWrite-Host (“Formatted DNS Results for {0} Machines” -f $pingResults.Count)
\n}<\/p>\n
return $pingResults
\n}<\/p>\n
function GetOutputPath
\n{
\nparam($fileName, $dir)
\n$outputPath = $dir + “” + $fileName
\nreturn $outputPath
\n}<\/p>\n
function GetTimeSpanStringInMinutesAndSeconds
\n{
\nparam($startTime, $endTime)<\/p>\n
$time = $startTime.Subtract($endTime)
\n$minutes = $time.ToString().Split(“:”)[1]
\n$seconds = $time.ToString().Split(“:”)[2].Split(“.”)[0]
\n$timeSpan = “{0} Minutes and {1} Seconds” -f $minutes, $seconds
\nreturn $timeSpan
\n}<\/p>\n
function GetSuccessPingCount
\n{
\nparam($results)<\/p>\n
$successCount = 0
\nforeach ($result in $results)
\n{
\nif ($result.SuccessPercentage -gt 0) { $successCount++ }
\n}<\/p>\n
return $successCount
\n}<\/p>\n
function GetDNSNamesResolvedCount
\n{
\nparam($results)<\/p>\n
$namesResolved = 0
\nforeach ($result in $results)
\n{
\nif ($result.IPAddressListFromDNS -ne $null) { $namesResolved++ }
\n}<\/p>\n
return $namesResolved
\n}<\/p>\n
function GetPercentageAsString
\n{
\nparam($n1, $n2)<\/p>\n
if ($n1 -ne 0) { $percentage = ($n1 \/ $n2) * 100 }
\nelse { $percentage = 0 }<\/p>\n
$percentage = (“{0:N0}” -f $percentage) + “%”<\/p>\n
return $percentage
\n}<\/p>\n
#Read in Names from text file
\n$Names = GetNamesFromTextFile -file $InputFilePath<\/p>\n
#Get ping results in a hash table. The key is the name and the value is the returned array of ping objects (one element per ping).
\n$Results = GetPingResultsFromHashTable -ht $Names -maxConcurrent $MaxConcurrent -count $TimesToPing -timeout $TimeoutInSeconds<\/p>\n
#Format ping results into an array of objects
\n$FormattedPingResults = GetFormattedPingResultsFromHashTable -ht $Results<\/p>\n
#Resolve DNS Names if specified
\n$DNSResults = ResolveNamesFromPingResults -array $FormattedPingResults -maxConcurrent 5 -resolveNames $ResolveNames -timeout $TimeoutInSeconds<\/p>\n
#Format DNS results by adding them to the ping results
\n$FormattedPingResults = GetFormattedPingAndDNSResults -pingResults $FormattedPingResults -dnsResults $DNSResults<\/p>\n
#Output to CSV
\n$OutputPath = GetOutputPath -fileName ‘PingResults.csv’ -dir ([Environment]::CurrentDirectory=(Get-Location -PSProvider FileSystem).ProviderPath)
\ntry { if ($ResolveNames -ne $null) { [bool]$ResolveNames = [System.Convert]::ToBoolean($ResolveNames) } } catch {}
\nif ($ResolveNames) { $FormattedPingResults | Sort-Object SuccessPercentage | Select-Object NameInList, NameFromDNS, IPAddressListFromDNS, SuccessPercentage, LastPingStatus, PingedFrom | Export-Csv -Path $OutputPath -NoTypeInformation }
\nelse { $FormattedPingResults | Sort-Object SuccessPercentage | Select-Object NameInList, SuccessPercentage, LastPingStatus, PingedFrom | Export-Csv -Path $OutputPath -NoTypeInformation }<\/p>\n
#Output Statistics
\n$SuccessPingCount = GetSuccessPingCount -results $FormattedPingResults
\nWrite-Host “—Statistics—” -ForegroundColor Green
\nWrite-Host (“Total Time Elapsed: ” + (GetTimeSpanStringInMinutesAndSeconds -startTime $Start -endTime ([System.DateTime]::Now))) -ForegroundColor Green
\nWrite-Host “Total Names Pinged:”$FormattedPingResults.Count -ForegroundColor Green
\nWrite-Host (“Hosts that Responded: ” + ($SuccessPingCount)) -ForegroundColor Green
\nWrite-Host (“DNS Names Resolved: ” + (GetDNSNamesResolvedCount -results $FormattedPingResults)) -ForegroundColor Green
\nWrite-Host (“Percentage of Hosts that Responded at Least Once: ” + (GetPercentageAsString -n1 $SuccessPingCount -n2 $FormattedPingResults.Count)) -ForegroundColor Green
\nWrite-Host “CSV Output Location:”$OutputPath -ForegroundColor Yellow<\/p>\n","protected":false},"excerpt":{"rendered":"
In theory you should know if all your machines are active or not in your environment. However as the environment gets bigger or more people work on it this can become confusing. This powershell script reads a list ( in txt format ) of machines you want to ping , how many pings , max … <\/p>\n