$ComputerNames = Get-Content "P:\Tools\PowerShell\TestInput.txt"
$AddressReport = @()

ForEach ($ComputerName in $ComputerNames) {

    Try {

        $TempReport = New-Object PSObject
        $IP = ((Test-Connection -ea stop -Count 1 -comp $ComputerName).IPV4Address).IPAddresstoString
        $TempReport | Add-Member NoteProperty Computer $ComputerName
        $TempReport | Add-Member NoteProperty Status "Online"
        $TempReport | Add-Member NoteProperty IP $IP

        Try {

            $ActiveUser = (Get-WmiObject –ComputerName $ComputerName –Class Win32_ComputerSystem).UserName
            $TempReport | Add-Member NoteProperty User $ActiveUser

        }

        Catch {

            $TempReport | Add-Member NoteProperty User "None"

        }

        $AddressReport += $TempReport

    }

    Catch {

        $TempReport = New-Object PSObject
        $TempReport | Add-Member NoteProperty Computer $ComputerName
        $TempReport | Add-Member NoteProperty Status "Down"
        $TempReport | Add-Member NoteProperty IP Unavailable
        $TempReport | Add-Member NoteProperty User Unavailable
        $AddressReport += $TempReport

    }

}

$TimeStamp = (Get-Date -Format yyyy-mm-dd-hhmm)
$ReportName = ("PingResults-" + $TimeStamp + ".csv")
$AddressReport | Export-Csv -NoTypeInformation "P:\Tools\PowerShell\ExportDirectory\$ReportName"