UD-NetMon.psm1
|
[Net.ServicePointManager]::SecurityProtocol = "tls12, tls11, tls" # Get public and private function definition files. [array]$Public = Get-ChildItem -Path "$PSScriptRoot\Public\*.ps1" -ErrorAction SilentlyContinue [array]$Private = Get-ChildItem -Path "$PSScriptRoot\Private\*.ps1" -ErrorAction SilentlyContinue $ThisModule = $(Get-Item $PSCommandPath).BaseName # Dot source the Private functions foreach ($import in $Private) { try { . $import.FullName } catch { Write-Error -Message "Failed to import function $($import.FullName): $_" } } [System.Collections.Arraylist]$ModulesToInstallAndImport = @() if (Test-Path "$PSScriptRoot\module.requirements.psd1") { $ModuleManifestData = Import-PowerShellDataFile "$PSScriptRoot\module.requirements.psd1" $ModuleManifestData.Keys | Where-Object {$_ -ne "PSDependOptions"} | foreach {$null = $ModulesToinstallAndImport.Add($_)} } if ($ModulesToInstallAndImport.Count -gt 0) { # NOTE: If you're not sure if the Required Module is Locally Available or Externally Available, # add it the the -RequiredModules string array just to be certain $InvModDepSplatParams = @{ RequiredModules = $ModulesToInstallAndImport InstallModulesNotAvailableLocally = $True ErrorAction = "SilentlyContinue" WarningAction = "SilentlyContinue" } $ModuleDependenciesMap = InvokeModuleDependencies @InvModDepSplatParams } # Public Functions <# .SYNOPSIS This function starts a PowerShell Universal Dashboard (Web-based GUI) instance on the specified port on the localhost. The Dashboard features a Network Monitor tool that pings the specified Remote Hosts in your Domain every 5 seconds and reports the results to the site. .DESCRIPTION See .SYNOPSIS .PARAMETER Port This parameter is OPTIONAL, however, it has a default value of 80. This parameter takes an integer between 1 and 32768 that represents the port on the localhost that the site will run on. .PARAMETER RemoveExistingPUD This parameter is OPTIONAL, however, it has a default value of $True. This parameter is a switch. If used, all running PowerShell Universal Dashboard instances will be removed prior to starting the Network Monitor Dashboard. .EXAMPLE # Open an elevated PowerShell Session, import the module, and - PS C:\Users\zeroadmin> Get-UDNetMon #> function Get-UDNetMon { Param ( [Parameter(Mandatory=$False)] [ValidateRange(1,32768)] [int]$Port = 80, [Parameter(Mandatory=$False)] [switch]$RemoveExistingPUD = $True ) # Remove all current running instances of PUD if ($RemoveExistingPUD) { Get-UDDashboard | Stop-UDDashboard } # Make sure we can resolve the $DomainName try { $DomainName = $(Get-CimInstance Win32_ComputerSystem).Domain $ResolveDomainInfo = [System.Net.Dns]::Resolve($DomainName) } catch { Write-Error "Unable to resolve domain '$DomainName'! Halting!" $global:FunctionResult = "1" return } # Get all Computers in Active Directory without the ActiveDirectory Module [System.Collections.ArrayList]$RemoteHostList = $(GetComputerObjectsInLDAP).Name if ($PSVersionTable.PSEdition -eq "Core") { [System.Collections.ArrayList]$RemoteHostList = $RemoteHostList | foreach {$_ -replace "CN=",""} } $null = $RemoteHostList.Insert(0,"Please Select a Server") [System.Collections.ArrayList]$Pages = @() # Create Home Page $HomePageContent = { New-UDLayout -Columns 1 -Content { New-UDCard -Title "Network Monitor" -Id "NMCard" -Text "Monitor Network" -Links @( New-UDLink -Text "Network Monitor" -Url "/NetworkMonitor" -Icon dashboard ) } } $HomePage = New-UDPage -Name "Home" -Icon home -Content $HomePageContent $null = $Pages.Add($HomePage) # Create Network Monitor Page [scriptblock]$NMContentSB = { for ($i=1; $i -lt $RemoteHostList.Count; $i++) { New-UDInputField -Type 'radioButtons' -Name "Server$i" -Values $RemoteHostList[$i] } } [System.Collections.ArrayList]$paramStringPrep = @() for ($i=1; $i -lt $RemoteHostList.Count; $i++) { $StringToAdd = '$' + "Server$i" $null = $paramStringPrep.Add($StringToAdd) } $paramString = 'param(' + $($paramStringPrep -join ', ') + ')' $NMEndPointSBAsStringPrep = @( $paramString '[System.Collections.ArrayList]$SubmitButtonActions = @()' '' ' foreach ($kvpair in $PSBoundParameters.GetEnumerator()) {' ' if ($kvpair.Value -ne $null) {' ' $AddNewRow = New-UDRow -Columns {' ' New-UDColumn -Size 6 {' ' # Create New Grid' ' [System.Collections.ArrayList]$LastFivePings = @()' ' $PingResultProperties = @("Status","IPAddress","RoundtripTime","DateTime")' ' $PingGrid = New-UdGrid -Title $kvpair.Value -Headers $PingResultProperties -AutoRefresh -Properties $PingResultProperties -Endpoint {' ' try {' ' $ResultPrep = [System.Net.NetworkInformation.Ping]::new().Send(' ' $($kvpair.Value),1000' ' )| Select-Object -Property Address,Status,RoundtripTime -ExcludeProperty PSComputerName,PSShowComputerName,RunspaceId' ' $GridData = [PSCustomObject]@{' ' IPAddress = $ResultPrep.Address.IPAddressToString' ' Status = $ResultPrep.Status.ToString()' ' RoundtripTime = $ResultPrep.RoundtripTime' ' DateTime = Get-Date -Format MM-dd-yy_hh:mm:sstt' ' }' ' }' ' catch {' ' $GridData = [PSCustomObject]@{' ' IPAddress = "Unknown"' ' Status = "Unknown"' ' RoundtripTime = "Unknown"' ' DateTime = Get-Date -Format MM-dd-yy_hh:mm:sstt' ' }' ' }' ' if ($LastFivePings.Count -eq 5) {' ' $LastFivePings.RemoveAt($LastFivePings.Count-1)' ' }' ' $LastFivePings.Insert(0,$GridData)' ' $LastFivePings | Out-UDGridData' ' }' ' $PingGrid' ' #$null = $SubmitButtonActions.Add($PingGrid)' ' }' '' ' New-UDColumn -Size 6 {' ' # Create New Monitor' ' $PingMonitor = New-UdMonitor -Title $kvpair.Value -Type Line -DataPointHistory 20 -RefreshInterval 5 -ChartBackgroundColor "#80FF6B63" -ChartBorderColor "#FFFF6B63" -Endpoint {' ' try {' ' [bool]$([System.Net.NetworkInformation.Ping]::new().Send($($kvpair.Value),1000)) | Out-UDMonitorData' ' }' ' catch {' ' $False | Out-UDMonitorData' ' }' ' }' ' $PingMonitor' ' #$null = $SubmitButtonActions.Add($PingMonitor)' ' }' ' }' ' $null = $SubmitButtonActions.Add($AddNewRow)' ' }' ' }' 'New-UDInputAction -Content $SubmitButtonActions' ) $NMEndPointSBAsString = $NMEndPointSBAsStringPrep -join "`n" $NMEndPointSB = [scriptblock]::Create($NMEndPointSBAsString) $NetworkMonitorPageContent = { New-UDInput -Title "Select Servers To Monitor" -Id "Form" -Content $NMContentSB -Endpoint $NMEndPointSB } $NetworkMonitorPage = New-UDPage -Name "NetworkMonitor" -Icon dashboard -Content $NetworkMonitorPageContent $null = $Pages.Add($NetworkMonitorPage) # Finalize the Site $MyDashboard = New-UDDashboard -Pages $Pages # Start the Site Start-UDDashboard -Dashboard $MyDashboard -Port $Port } [System.Collections.ArrayList]$script:FunctionsForSBUse = @( ${Function:GetComputerObjectsInLDAP}.Ast.Extent.Text ${Function:GetDomainController}.Ast.Extent.Text ${Function:GetElevation}.Ast.Extent.Text ${Function:GetGroupObjectsInLDAP}.Ast.Extent.Text ${Function:GetModuleDependencies}.Ast.Extent.Text ${Function:GetNativePath}.Ast.Extent.Text ${Function:GetUserObjectsInLDAP}.Ast.Extent.Text ${Function:InvokeModuleDependencies}.Ast.Extent.Text ${Function:InvokePSCompatibility}.Ast.Extent.Text ${Function:ManualPSGalleryModuleInstall}.Ast.Extent.Text ${Function:NewUniqueString}.Ast.Extent.Text ${Function:ResolveHost}.Ast.Extent.Text ${Function:TestIsValidIPAddress}.Ast.Extent.Text ${Function:TestLDAP}.Ast.Extent.Text ${Function:TestPort}.Ast.Extent.Text ${Function:Get-UDNetMon}.Ast.Extent.Text ) |