Function RDPStatus {
$Prop = [ordered]@{}
$ComputerName = Get-Content C:\computers.txt -ReadCount 0
$ErrorActionPreference = "Stop"
foreach ($computer in $ComputerName)
{
Try {
$Prop.Computername = GWMI win32_operatingsystem -cn $computer | select-object -ExpandProperty CSName
$Network = GWMI -CN $computer -Class Win32_NetworkAdapterConfiguration -Filter 'ipenabled = "true"' | Select-Object -ExpandProperty IPAddress
$Prop.IPadddress = $Network -join ','
$Reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey('LocalMachine', $computer)
$RegKey= $Reg.OpenSubKey("SYSTEM\\CurrentControlSet\\Control\\Terminal Server")
$RDP = $Regkey.GetValue("fDenyTSConnections")
if ($RDP -eq 1)
{
$Prop.RDP = "Disabled"
}
else
{
$Prop.RDP= "Enabled"
}
$Bios = GWMI win32_bios -cn $computer | Select-Object -ExpandProperty SerialNumber
$Model= GWMI win32_computersystem -cn $computer | Select-Object -ExpandProperty Model
$Prop.BiosSlNos =$Bios
$Prop.Model = $Model
New-Object PSObject -property $Prop
}
Catch
{
Add-Content "$computer is not reachable" -path $env:USERPROFILE\Desktop\UnreachableHosts.txt
}
}
}
#HTML Color Code
#http://technet.microsoft.com/en-us/librProp/ff730936.aspx
$a = ""
$a = $a + "BODY{background-color:#DAA520;font-family:verdana;font-size:10pt;}"
$a = $a + "TABLE{border-width: 2px;border-style: solid;border-color:#000000;border-collapse: collapse;}"
$a = $a + "TH{border-width: 1px;padding: 0px;border-style: solid;border-color: #000000;background-color:#7FFF00;}"
$a = $a + "TD{border-width: 1px;padding: 0px;border-style: solid;border-color: #000000;background-color:#FFD700;}"
$a = $a + ""
RDPStatus | ConvertTo-HTML -head $a -body "RDP Status" |
Out-File $env:USERPROFILE\Desktop\RDPStatus.htm #HTML Output
Invoke-Item $env:USERPROFILE\Desktop\RDPStatus.htm
____________________________________________________
{
$Prop.RDP = "Disabled" —- Need red color in background cell
}
else
{
$Prop.RDP= "Enabled"
}
_________________________________________________
Thanks in advance
