microtom.net tom's windows tech blog

trap [System.Management.Automation.MethodInvocationException]{
    write-host ("ERROR: " + $_) -Foregroundcolor Red;
	Continue
	}
 
$erroractionpreference = "SilentlyContinue"
 
$strCategory = "computer"
 
$objDomain = New-Object System.DirectoryServices.DirectoryEntry("LDAP://OU=Laptops,OU=Computers,dc=yourdomain,dc=com")
 
$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
$objSearcher.SearchRoot = $objDomain
$objSearcher.Filter = ("(objectCategory=$strCategory)")
 
$colProplist = "name","description"
foreach ($i in $colPropList) {
    $objSearcher.PropertiesToLoad.Add($i)
    }
 
$colResults = $objSearcher.FindAll()
$count = 1
$total = $colResults.count
$arrComputers = @{}
 
 
 
foreach ($strComputer in $colResults) {
    $ping = new-object System.Net.NetworkInformation.Ping
    $name = $strComputer.Properties.name
    $description = $strComputer.Properties.description
 
	write-progress -id 1 -activity  "Checking Computer $name $description ($count / $total )" -status "Getting IP address" #-percentComplete 
 
	Try {
	$ip = ([System.Net.Dns]::GetHostAddresses("$name"))
 
	write-progress -id 1 -activity  "Checking Computer $name $description ($count / $total )" -status "IP: $ip" 
 
	sleep 1
	}
	Catch {
	    echo "Cannot handle the error: $_"
    	#throw $_
	}
 
	write-progress -id 1 -activity  "Checking Computer $name $description ($count / $total )" -status "Pinging" #-percentComplete 
 
	Try {
	$Reply = $ping.send($strComputer.Properties.name)
	}
	Catch {
		$Reply = "Failed"
	    echo "Cannot handle the error: $_"
    	#throw $_
	}	
 
    if ($Reply.status –eq “Success”) {
		write-progress -id 1 -activity  "Checking Computer $name $description ($count / $total )" -status "Checking Access"
        if (Test-Path "\\$name\C$") {
			$arrComputerAccess += $strComputer.Properties.name
			}
		else {
			$arrComputerPing += $strComputer.Properties.name
			}		
        }
    else {
    $arrComputerOffline += $strComputer.Properties.name
    }
    $Reply = ""
    $count ++
    }
 
$a = New-Object -comobject Excel.Application
$a.visible = $True 
 
$b = $a.Workbooks.Add()
$c = $b.Worksheets.Item(1)
 
$c.Cells.Item(1,1) = "Machine Name"
$c.Cells.Item(1,2) = "Ping Status"
$c.Cells.Item(1,3) = "Access Check"
 
$d = $c.UsedRange
$d.Interior.ColorIndex = 48
$d.Font.ColorIndex = 1
$d.Font.Bold = $True
#$d.EntireColumn.AutoFit($True)
 
$intRow = 2
 
foreach ($Computer in $arrComputerOffline)
{
$c.Cells.Item($intRow, 1) = $Computer.ToUpper()
$c.Cells.Item($intRow, 2) = "Offline"
$intRow ++
}
 
foreach ($Computer in $arrComputerPing)
{
$c.Cells.Item($intRow, 1) = $Computer.ToUpper()
$c.Cells.Item($intRow, 2) = "Online"
$c.Cells.Item($intRow, 3) = "Failed"
$intRow ++
}
 
foreach ($Computer in $arrComputerAccess)
{
$c.Cells.Item($intRow, 1) = $Computer.ToUpper()
$c.Cells.Item($intRow, 2) = "Online"
$c.Cells.Item($intRow, 3) = "Passed"
$intRow ++
}
 
$d.EntireColumn.AutoFit()