$Infors = Get-Content ports01.txt
$Temp_PortStatustxt = "C:\Windows\Temp\PortStatustxt.txt"
$Temp_PortStatushtm = "C:\Windows\Temp\PortStatushtm.htm"
$Domainname = $Infors[0].Split(",")[0]
$IP = [System.Net.Dns]::GetHostAddresses($Domainname)[0]
Start-Sleep -Milliseconds 500
$Address = [System.Net.IPAddress]::Parse($IP)
$IPstring = $Address.IPAddressToString
Function Port-Test ($Address,$Port)
{
$Timeout = 1000
$Socket = New-Object System.Net.Sockets.TCPClient
$Connect = $Socket.BeginConnect($Address,$Port,$null,$null)
Start-Sleep -Milliseconds 500
If ( $Connect.IsCompleted )
{
$Wait = $Connect.AsyncWaitHandle.WaitOne($TimeOut,$false)
If(!$Wait)
{
$Socket.Close()
Return $false
}
Else{
$Socket.EndConnect($Connect)
$Socket.Close()
Return $true
}
}
Else{Return $false}
}
$Server = $Domainname + " : " + $IPstring
"Port,Status"|Out-File $Temp_PortStatustxt -Append
Foreach ($infor in $Infors)
{
$port = $Infor.Split(",")[1]
$Status= Port-Test $Address $port
$port + "," + $Status |Out-File $Temp_PortStatustxt -Append
}
$csv = Import-Csv $Temp_PortStatustxt
$csv|Select Port,Status | ConvertTo-Html `
-head '<style type="text/css"> body,table,td,th {font-family:Tahoma; color:Black; Font-Size:20pt} body {text-align:center} </style>' `
-Title "Port Monitor" `
-Body "<H4>$server</H4>" | `
ForEach{$_ -replace "<table>","<table align=center>"} |`
ForEach{$_ -replace "<tr>","<tr bgcolor=cyan>"} | `
Foreach{
If($_ -like "*<td>false</td>*")
{$_ -replace "<tr bgcolor=cyan>","<tr bgcolor=red>"}
Elseif($_ -like "*<td>true</td>*")
{$_ -replace "<tr bgcolor=cyan>","<tr bgcolor=green>"}
Else{$_}
} >>$Temp_PortStatushtm
Remove-Item $Temp_PortStatustxt
Invoke-Item $Temp_PortStatushtm