View difference between Paste ID: fdYgscKv and wSbF9J3x

-$CsvFile = "path\users.csv"
+$CsvFile = "path\GetLoggedOnUsersv2.csv"
-Get-ADComputer -Filter * -SearchBase "DC=lab,DC=corp"  -Properties * | ForEach-Object {
+
-    $ADComputer = $_
+Get-ADComputer -Filter * -SearchBase "DC=lab,DC=corp" | ForEach-Object {
-
+	$ADComputer = $_
-    Write-Host "Processing $($ADComputer.Name) ... " -BackgroundColor Red -NoNewline
+	Write-Host "Processing $($ADComputer.Name) ..." -ForegroundColor White -NoNewline
 	Try {
-    Try {
+		$CS = Get-WmiObject -Class Win32_ComputerSystem -ComputerName $ADComputer.Name -ErrorAction Stop | Select-Object -Property `
-
+			@{n='Computername'; e={$ADComputer.Name}},
-            $CS = Get-WmiObject -Class win32_computersystem -ComputerName $ADComputer.Name -ErrorAction Stop | Select-Object -Property `
+			@{n='DNSHostName'; e={$ADComputer.DNSHostName}},
-                @{n='Computername'; e={$ADComputer.Name}},
+			@{n='Department'; e={
-			    @{n='DNSHostName'; e={$ADComputer.DNSHostName}},
+				If ($_.Username) {
-			    @{n='Department'; e={$ADComputer.Department}},
+					Try {(Get-ADUser -Identity $_.Username.Split('\')[1] -Property Department -ErrorAction Stop).Department} Catch {"ERROR: $($_.Exception.Message)"}
-			    Username,
+				}
-			    Manufacturer,
+			}},
-			    Model
+			Username,
-            Write-Host " OK ($($CS.Manufacturer) $($CS.Model))." -ForegroundColor Green
+			Manufacturer,
-		    $CS
+			Model
-     }
+		Write-Host " OK ($($CS.Manufacturer) $($CS.Model))." -ForegroundColor Green
-
+		$CS
-     Catch {
+	} Catch {
 		Write-Host " ERROR: $($_.Exception.Message)" -ForegroundColor Red
-            Write-Host " ERROR: $($_.Exception.Message)" -ForegroundColor Red
+		$_.Exception.Message | Select-Object -Property @{n='Computername'; e={$ADComputer.Name}}, @{n='Error'; e={$_}}
-		    $_.Exception.Message | Select-Object -Property @{n='Computername'; e={$ADComputer.Name}}, @{n='Error'; e={$_}}
+	}
-     }
+} | Select-Object Computername, DNSHostName, Department, Username, Manufacturer, Model, Error |
 	Export-Csv -Path $CsvFile -NoTypeInformation