PowerShell Script to Pull Remote Troubleshooting Data

#  Script name:    Stats.ps1
#  Created on:     2009-11-05
#  Author:         Gregory Strike
#  Purpose:        Probes a computer for common Administrative information.
#  Requirements:   This script requires Administrative privileges to the computer requested.

$Error.Clear();

$HeadingWidth = 14;

#Pings a Computer
function Ping{
	param($Computer)

	$Ping = New-Object System.Net.NetworkInformation.Ping;
	$Reply = $Ping.Send($Computer);

	if ($Reply.Status -eq "Success"){
		Return $Reply;
	} else {
		Return $False;
	}
}

CLS;
$Computer = $args[0];
if ($args[1] -ne "-debug"){
	$ErrorActionPreference = "SilentlyContinue";
}

if ($Computer -eq $Null){
	#Write-Host ("Error in Syntax");
	#Write-Host ("./Stats.ps1 Computer [-debug]");
	$Computer = Read-Host("Please enter a computer name")
	CLS;
}
Write-Host("{0,$HeadingWidth} {1,-11}" -f "Computer:", $Computer);
#Write-Host("Stats on " + $Computer + "...");
Write-Host("");

if ($Reply = Ping($Computer)) {

	#Display Ping Results
	Write-Host("{0,$HeadingWidth} {1,-11}" -f "IP:", $Reply.Address);
	$strRoundTrip = [System.String]$Reply.RoundTripTime + "ms"
	Write-Host("{0,$HeadingWidth} {1,-11}" -f "Reply Time:", $strRoundTrip);
	Write-Host("");

	#Display Computer Hardware Information
	$WMI = Get-WMIObject -Class Win32_ComputerSystem -ComputerName $Computer;

	if ($Computer.ToUpper() -Ne $WMI.Caption.ToUpper()) {
		Write-Host("{0, $HeadingWidth} {1, -11} <--- May be incorrect computer!" -f "Computer Name:", $WMI.Caption , "May be incorrect computer!") -Fore Red;
	} else {
		Write-Host("{0, $HeadingWidth} {1, -11}" -f "Computer Name:", $WMI.Caption);
	}

	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Manufacturer:", $WMI.Manufacturer);
	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Model:", $WMI.Model);
	$WMI = Get-WMIObject -Class Win32_ComputerSystemProduct -ComputerName $Computer;
	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Serial Number:", $WMI.IdentifyingNumber);
	$WMI = Get-WMIObject -Class Win32_BIOS -ComputerName $Computer;
	$strBIOSVersion = [System.String]$WMI.BIOSVersion
	Write-Host("{0, $HeadingWidth} {1, -11}" -f "BIOS Version:", $strBIOSVersion);
	Write-Host("");

	#Display OS Information
	$WMI = Get-WmiObject -Class Win32_OperatingSystem -computer $Computer

	Write-Host("{0, $HeadingWidth} {1, -11}" -f "OS:", $WMI.Caption);
    $OSVersion = $WMI.Version;
	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Service Pack:", $WMI.CSDVersion);
	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Description:", $WMI.Description);

	Write-Host("");

    #Display Uptime
    $LBTime = $WMI.ConvertToDateTime($WMI.LastBootupTime)
	[TimeSpan]$UPTime = New-TimeSpan $LBTime $(Get-Date)
	$strUpTime = [System.String]$UPTime.Days + " Days ” + $UPTime.Hours + “ Hours ” + $UPTime.Minutes + “ Minutes ” + $UPTime.Seconds + “ Seconds ”;
	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Up Time:", $strUpTime);

    #Display Remote Time
    $WMI = Get-WmiObject -Class Win32_LocalTime -Computer $Computer

    $LocalTime = [System.DateTime]::Now
    $strRemoteDateTime = "{0:00}/{1:00}/{2:0000} {3:00}:{4:00}:{5:00}" -f $WMI.Month, $WMI.Day, $WMI.Year, $WMI.Hour, $WMI.Minute, $WMI.Second
    $RemoteDateTime = [Convert]::ToDateTime($strRemoteDateTime)

    $WMI = Get-WmiObject -Class Win32_TimeZone -Computer $Computer
    $RemoteUTC = $RemoteDateTime.AddMinutes(($WMI.Bias * -1) + ($WMI.DaylightBias) + ($WMI.StandardBias))

    Write-Host("");
    Write-Host("{0, $HeadingWidth} {1, -11}" -f "Remote Time:", $RemoteDateTime);
    Write-Host("{0, $HeadingWidth} {1, -11}" -f "Local Time:", $LocalTime);
    Write-Host("");
    Write-Host("{0, $HeadingWidth} {1, -11}" -f "Remote UTC:", $RemoteUTC);
    Write-Host("{0, $HeadingWidth} {1, -11}" -f "Local UTC:", $LocalTime.ToUniversalTime());
    Write-Host("");

	#Display HardDrive Space
	#$Query = "SELECT * FROM WIN32_LogicalDisk WHERE DeviceID='" + $Server.Drive + "'"
	$WMI = Get-WMIObject -Class Win32_LogicalDisk -ComputerName $Computer
	foreach ($Drive in $WMI) {
		if ($Drive.DriveType -eq 3) {  #Only process drives that are hard drives
			$DriveIDSize = "Disk " + $Drive.DeviceID + " Size:";
			$DriveIDFree = "Disk " + $Drive.DeviceID + " Free:";

			Write-Host("{0, $HeadingWidth} {1, 16} bytes" -f $DriveIDSize, [System.String]::Format("{0:#,#}", $Drive.Size));
			if ($Drive.FreeSpace / $Drive.Size -lt .05) {
				Write-Host("{0, $HeadingWidth} {1, 16} bytes <--- Less than 5% of disk space!" -f $DriveIDFree, [System.String]::Format("{0:#,#}", $Drive.FreeSpace)) -Fore Red;
			} else {
				Write-Host("{0, $HeadingWidth} {1, 16} bytes" -f $DriveIDFree, [System.String]::Format("{0:#,#}", $Drive.FreeSpace));
			}
		}
	}
	Write-Host("");

	#Display User Information
	$WMI = Get-WMIObject -Class Win32_ComputerSystem -ComputerName $Computer;
	if ($WMI.UserName -Ne $Null){
		$strUsername = [System.String]$WMI.UserName;
		$UserName = $strUsername.Split("\");

		#$Domain = New-Object DirectoryServices.DirectoryEntry;
		$Search = [System.DirectoryServices.DirectorySearcher]$UserName[0];
		$Search.Filter = "(&(objectClass=user)(sAMAccountname=" + $UserName[1] + "))";
		$User = $Search.FindOne().GetDirectoryEntry();
		$strFullName = [System.String]$User.Name;
	} else {
		$strUsername = "Not logged in"
		$strFullName = "Not logged in"
	}

	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Console User:", $strUserName);
	Write-Host("{0, $HeadingWidth} {1, -11}" -f "Full Name:", $strFullName);

} else { #Could not ping computer
	Write-Host("The host, " + $Computer + ", did not reply...");
};

Write-Host("");
Write-Host "Completed: Press any key to continue..."
$x = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")