Public/Test-CWAAPort.ps1
|
Function Test-CWAAPort { [CmdletBinding()] [Alias('Test-LTPorts')] Param( [Parameter(ValueFromPipelineByPropertyName = $true, ValueFromPipeline=$True)] [string[]]$Server, [Parameter(ValueFromPipelineByPropertyName = $true)] [int]$TrayPort, [Parameter(ValueFromPipelineByPropertyName = $true)] [switch]$Quiet ) Begin{ $Mediator = 'mediator.labtechsoftware.com' Function Private:TestPort{ Param( [parameter(Position=0)] [string] $ComputerName, [parameter(Mandatory=$False)] [System.Net.IPAddress] $IPAddress, [parameter(Mandatory=$True , Position=1)] [int] $Port ) $RemoteServer = If ([string]::IsNullOrEmpty($ComputerName)) {$IPAddress} Else {$ComputerName}; If ([string]::IsNullOrEmpty($RemoteServer)) {Write-Error "ERROR: Line $(LINENUM): No ComputerName or IPAddress was provided to test."; return} $test = New-Object System.Net.Sockets.TcpClient; Try { Write-Output "Connecting to $($RemoteServer):$Port (TCP).."; $test.Connect($RemoteServer, $Port); Write-Output "Connection successful"; } Catch { Write-Output "ERROR: Connection failed"; $Global:PortTestError = 1 } Finally { $test.Close(); } } Clear-Variable CleanSvr,svr,proc,processes,port,netstat,line -EA 0 -WhatIf:$False -Confirm:$False #Clearing Variables for use Write-Debug "Starting $($myInvocation.InvocationName) at line $(LINENUM)" } Process{ If (-not ($Server) -and (-not ($TrayPort) -or -not ($Quiet))){ Write-Verbose 'No Server Input - Checking for names.' $Server = Get-CWAAInfo -EA 0 -Verbose:$False -WhatIf:$False -Confirm:$False -Debug:$False|Select-Object -Expand 'Server' -EA 0 If (-not ($Server)){ Write-Verbose 'No Server found in installed Service Info. Checking for Service Backup.' $Server = Get-CWAAInfoBackup -EA 0 -Verbose:$False|Select-Object -Expand 'Server' -EA 0 } } If (-not ($Quiet) -or (($TrayPort) -ge 1 -and ($TrayPort) -le 65530)){ If (-not ($TrayPort) -or -not (($TrayPort) -ge 1 -and ($TrayPort) -le 65530)){ #Learn LTTrayPort if available. $TrayPort = (Get-CWAAInfo -EA 0 -Verbose:$False -WhatIf:$False -Confirm:$False -Debug:$False|Select-Object -Expand TrayPort -EA 0) } If (-not ($TrayPort) -or $TrayPort -notmatch '^\d+$') {$TrayPort=42000} [array]$processes = @() #Get all processes that are using LTTrayPort (Default 42000) Try {$netstat=& "$env:windir\system32\netstat.exe" -a -o -n | Select-String -Pattern " .*[0-9\.]+:$($TrayPort).*[0-9\.]+:[0-9]+ .*?([0-9]+)" -EA 0} Catch {Write-Output "Error calling netstat.exe."; $netstat=$null} Foreach ($line In $netstat){ $processes += ($line -split ' {4,}')[-1] } $processes = $processes | Where-Object {$_ -gt 0 -and $_ -match '^\d+$'}| Sort-Object | Get-Unique If (($processes)) { If (-not ($Quiet)){ Foreach ($proc In $processes) { If ((Get-Process -ID $proc -EA 0|Select-Object -Expand ProcessName -EA 0) -eq 'LTSvc') { Write-Output "TrayPort Port $TrayPort is being used by LTSvc." } Else { Write-Output "Error: TrayPort Port $TrayPort is being used by $(Get-Process -ID $proc|Select-Object -Expand ProcessName -EA 0)." } } } Else {return $False} } ElseIf (($Quiet) -eq $True){ return $True } Else { Write-Output "TrayPort Port $TrayPort is available." } } foreach ($svr in $Server) { if ($Quiet){ $CleanSvr = ($Svr -replace 'https?://',''|ForEach-Object {$_.Trim()}) Test-Connection $CleanSvr -Quiet return } If ($Svr -match '^(https?://)?(([12]?[0-9]{1,2}\.){3}[12]?[0-9]{1,2}|[a-z0-9][a-z0-9_-]*(\.[a-z0-9][a-z0-9_-]*)*)$') { Try{ $CleanSvr = ($Svr -replace 'https?://',''|ForEach-Object {$_.Trim()}) Write-Output "Testing connectivity to required TCP ports:" TestPort -ComputerName $CleanSvr -Port 70 TestPort -ComputerName $CleanSvr -Port 80 TestPort -ComputerName $CleanSvr -Port 443 TestPort -ComputerName $Mediator -Port 8002 } Catch{ Write-Error "ERROR: Line $(LINENUM): There was an error testing the ports. $($Error[0])" -ErrorAction Stop } } Else { Write-Warning "WARNING: Line $(LINENUM): Server address $($Svr) is not a valid address or is not formatted correctly. Example: https://lt.domain.com" } } } End{ If ($?){ if (-not ($Quiet)){ Write-Output "Test-CWAAPorts Finished" } } Else{$Error[0]} Write-Debug "Exiting $($myInvocation.InvocationName) at line $(LINENUM)" } } |