![\"\"](\"https:\/\/www.davidirwin.co.uk\/wp-content\/uploads\/2022\/03\/RRAS-Options-1024x416-1.png\")
<\/p>\r\nA great Powershell script by Harmik to show Stats and connections to RRAS.<\/p>\r\n
http:\/\/harmikbatth.com\/2020\/05\/27\/rras-always-on-vpn-stats-remotely\/<\/p>\r\n
<\/p>\r\n
\n\n#############################################################################################
\n#
\n# Script: Get-AlwaysOnVPN-Stats-GUI.ps1
\n#
\n# Author: Harmik Singh Batth
\n# Website: www.harmikbatth.com
\n#
\n# Date: 01\/05\/2020
\n#
\n# About: This script is designed to pull data from different RRAS Servers and present one view.
\n#
\n# Usage: To use this script, execute the script and configure VPN Servers initially.
\n# Next time, you should be able to connect and present data from all configured RRAS Servers.
\n#
\n# Requirements:
\n# Requires - PSRemoting must be enabled on RRAS Server
\n# To Configure - Enable-PSRemoting -Force
\n# Requires - RRAS Servers should be on Trusted List on WSMAN
\n# To Check - "Get-Item WSMan:\\localhost\\client\\trustedhosts
\n# To Configure - Set-Item WSMan:\\localhost\\Client\\TrustedHosts -Value "ServerName01, ServerName02, ServerName03, ServerName04" -Force
\n#
\n# Versions:
\n# 01\/05\/2020 - 1.0 - Initial release creation by Harmik Singh Batth
\n# 13\/05\/2020 - 1.1 - Added Export Button, which will allow Export of Data to CSV files
\n#
\n#############################################################################################
\n
\nBegin {
\n
\n cls
\n
\n #region Calculated Variables
\n
\n # Different OS versions use different sizes of windows, these corrections allow the form to be correctly sized in any OS.
\n # Switch -wildcard doesn't work in Powershell 2 so OS version has extra sections removed.
\n $OSVer = ((Get-WmiObject Win32_OperatingSystem).Version).split(".")[0..1] -join "."
\n Switch ($OSVer)
\n {
\n 6.3 {$FormHorizPadding = 21; $FormVertPadding = 43} #Windows 8.1 & Windows Server 2012 R2
\n 6.2 {$FormHorizPadding = 21; $FormVertPadding = 43} #Windows 8 & Windows Server 2012
\n 6.1 {$FormHorizPadding = 10; $FormVertPadding = 29} #Windows 7 & Windows Server 2008 R2
\n 6.0 {$FormHorizPadding = 10; $FormVertPadding = 29} #Windows Vista & Windows Server 2008
\n 5.2 {$FormHorizPadding = 21; $FormVertPadding = 43} #Windows Server 2003
\n 5.1 {$FormHorizPadding = 21; $FormVertPadding = 43} #Windows XP
\n }
\n
\n #Check for Configuration Files
\n $UserLocalAppData = $env:LOCALAPPDATA
\n $ConfigurationFolder = "$UserLocalAppData\\RRASReporting"
\n $ConfigurationFile = "$ConfigurationFolder\\RRAS-Configuration.txt"
\n $ExportFolder = "$UserLocalAppData\\RRASReporting"
\n $ExportFile = "$ExportFolder\\Export.csv"
\n $Global:ConfigurationUploaded = ""
\n $Script:TabIndex = 0
\n
\n #endregion Calculated Variables
\n
\n # Assemblies
\n try {
\n Add-Type -AssemblyName "System.Drawing" -ErrorAction Stop
\n Add-Type -AssemblyName "System.Windows.Forms" -ErrorAction Stop
\n }
\n catch [System.UnauthorizedAccessException] {
\n Write-Warning -Message "Access denied when attempting to load required assemblies" ;
\n }
\n catch [System.Exception] {
\n Write-Warning -Message "Unable to load required assemblies. Error message: $($_.Exception.Message) Line: $($_.InvocationInfo.ScriptLineNumber)" ;
\n }
\n}
\nProcess
\n{
\n
\n#region Functions
\n
\n # Functions
\n function Load-Form {
\n $Form.Controls.AddRange(@(
\n $ComboBoxTypes,
\n $CheckBoxCurrentData,
\n $DateTimeStart,
\n $DateTimeEnd,
\n $TextBoxUserName,
\n $LabelDateStart,
\n $LabelDateEnd,
\n #$LabelUserName,
\n $ButtonExecute,
\n $ButtonExport,
\n $ButtonConfiguration,
\n $RadioButtonSelectRRASServer,
\n $OutputBox,
\n $DGVResults,
\n $GBLog,
\n $GBResults,
\n $GBRRASServersSelect,
\n $GBUser,
\n $GBOptions,
\n $GBActions,
\n $GBSettings,
\n $ButtonConfigExecute,
\n $ButtonConfigRRASAdd,
\n $ButtonConfigRRASRemove,
\n $ButtonConfigBackToMainForm,
\n $GBConfigActions,
\n $DGVConfigResults,
\n $OutputConfigBox,
\n $LabelRRASServer,
\n $LabelRRASUsername,
\n $LabelRRASPassword,
\n $TextBoxRRASServer,
\n $TextBoxRRASUsername,
\n $TextBoxRRASPassword,
\n $GBConfigLog,
\n $GBConfigResults,
\n $GBConfigRRAS,
\n $StatusBar
\n ))
\n
\n Try
\n {
\n $Form.Add_Shown({$Form.Activate()})
\n $Form.Add_Shown(
\n {
\n if ($Global:ConfigurationUploaded -eq "Success")
\n {
\n Write-OutputBox "Configuration File found: $ConfigurationFile, Loading main form" -Type INFO
\n LoadExecutionForm
\n }
\n Else
\n {
\n Write-OutputBox "No Configuration File found: $ConfigurationFile, User will be prompted to Create one" -Type WARNING
\n LoadConfigurationForm
\n }
\n }
\n )
\n $Form.Add_Closing({CleanUpScript})
\n $Form.ShowDialog() | Out-Null
\n }
\n Catch
\n {
\n Write-OutputBox "Script encountered issues " -Type ERROR
\n }
\n }
\n
\n function LoadExecutionForm
\n {
\n $RadioButtonSelectRRASServer.Visible=$true
\n $GBRRASServersSelect.Visible=$true
\n
\n $ComboBoxTypes.Visible=$true
\n $CheckBoxCurrentData.Visible=$true
\n $DateTimeStart.Visible=$true
\n $DateTimeEnd.Visible=$true
\n $LabelDateStart.Visible=$true
\n $LabelDateEnd.Visible=$true
\n #$LabelUserName.Visible=$true
\n $GBOptions.Visible=$true
\n
\n $TextBoxUserName.Visible=$true
\n $GBUser.Visible=$true
\n
\n $ButtonExecute.Visible=$true
\n $ButtonExport.Visible=$true
\n $GBActions.Visible=$true
\n
\n $ButtonConfiguration.Visible=$true
\n $GBSettings.Visible=$true
\n
\n $DGVResults.Visible=$true
\n $GBResults.Visible=$true
\n
\n $OutputBox.Visible=$true
\n $GBLog.Visible=$true
\n
\n $LabelRRASServer.Visible=$false
\n $LabelRRASUsername.Visible=$false
\n $LabelRRASPassword.Visible=$false
\n $TextBoxRRASServer.Visible=$false
\n $TextBoxRRASUsername.Visible=$false
\n $TextBoxRRASPassword.Visible=$false
\n $GBConfigRRAS.Visible=$false
\n
\n $ButtonConfigRRASAdd.Visible=$false
\n $ButtonConfigRRASRemove.Visible=$false
\n $ButtonConfigExecute.Visible=$false
\n $ButtonConfigBackToMainForm.Visible=$false
\n $GBConfigActions.Visible=$false
\n
\n $DGVConfigResults.Visible=$false
\n $GBConfigResults.Visible=$false
\n
\n $OutputConfigBox.Visible=$false
\n $GBConfigLog.Visible=$false
\n
\n if ($Global:ConfigurationUploaded -eq "Success")
\n {
\n Load-Connect
\n }
\n }
\n
\n function LoadConfigurationForm
\n {
\n $RadioButtonSelectRRASServer.Visible=$false
\n $GBRRASServersSelect.Visible=$false
\n
\n $ComboBoxTypes.Visible=$false
\n $CheckBoxCurrentData.Visible=$false
\n $DateTimeStart.Visible=$false
\n $DateTimeEnd.Visible=$false
\n $LabelDateStart.Visible=$false
\n $LabelDateEnd.Visible=$false
\n #$LabelUserName.Visible=$false
\n $GBOptions.Visible=$false
\n
\n $TextBoxUserName.Visible=$false
\n $GBUser.Visible=$false
\n
\n $ButtonExecute.Visible=$false
\n $ButtonExport.Visible=$false
\n $GBActions.Visible=$false
\n
\n $ButtonConfiguration.Visible=$false
\n $GBSettings.Visible=$false
\n
\n $DGVResults.Visible=$false
\n $GBResults.Visible=$false
\n
\n $OutputBox.Visible=$false
\n $GBLog.Visible=$false
\n
\n $LabelRRASServer.Visible=$true
\n $LabelRRASUsername.Visible=$true
\n $LabelRRASPassword.Visible=$true
\n $TextBoxRRASServer.Visible=$true
\n $TextBoxRRASUsername.Visible=$true
\n $TextBoxRRASPassword.Visible=$true
\n $GBConfigRRAS.Visible=$true
\n
\n $ButtonConfigRRASAdd.Visible=$true
\n $ButtonConfigRRASRemove.Visible=$true
\n $ButtonConfigExecute.Visible=$true
\n $ButtonConfigBackToMainForm.Visible=$true
\n $GBConfigActions.Visible=$true
\n
\n $DGVConfigResults.Visible=$true
\n $GBConfigResults.Visible=$true
\n
\n $OutputConfigBox.Visible=$true
\n $GBConfigLog.Visible=$true
\n
\n #$TextBoxRRASServer.Focus()
\n
\n Load-ConnectConfig
\n }
\n
\n function CheckConfigurationFile
\n {
\n if (test-path -path $ConfigurationFile)
\n {
\n Write-OutputBox "Configuration File: $ConfigurationFile found, and will be used to connect to servers" -Type INFO
\n
\n #Checking Contents of the file, if empty then
\n if ((Get-Content -Path $ConfigurationFile) -eq $null)
\n {
\n Write-OutputBox "No data found in Configuration File: $ConfigurationFile, user will be prompted to re-configure" -Type INFO
\n $Global:ConfigurationUploaded = ""
\n }
\n Else
\n {
\n $Global:ConfigurationUploaded = "Success"
\n }
\n }
\n Else
\n {
\n Write-OutputBox "No Configuration File: $ConfigurationFile found, user will be prompted to create one." -Type INFO
\n $Global:ConfigurationUploaded = ""
\n }
\n }
\n
\n function CleanUpScript
\n {
\n #Clean Up Variables and PS-Sessions
\n Try
\n {
\n #Dispose PSSessions
\n Get-PSSession | ? ComputerName -match "vpn" | Remove-PSSession
\n }
\n Catch
\n {
\n Write-OutputBox "Script encountered issues while removing PS-Sessions" -Type ERROR
\n }
\n }
\n
\n function Invoke-CleanControls {
\n param(
\n [parameter(Mandatory=$true)]
\n [ValidateSet("All","Log")]
\n $Option
\n )
\n if ($Option -eq "All") {
\n $DGVResults.Rows.Clear()
\n #Clean Output Box if required
\n #$OutputBox.ResetText()
\n }
\n if ($Option -eq "Log") {
\n #Clean Output Box if required
\n #$OutputBox.ResetText()
\n }
\n }
\n
\n function Invoke-CleanConfigControls {
\n param(
\n [parameter(Mandatory=$true)]
\n [ValidateSet("All","Log")]
\n $Option
\n )
\n if ($Option -eq "All") {
\n $DGVConfigResults.Rows.Clear()
\n #Clean Output Box if required
\n #$OutputConfigBox.ResetText()
\n }
\n if ($Option -eq "Log") {
\n #Clean Output Box if required
\n #$OutputConfigBox.ResetText()
\n }
\n }
\n
\n function ModifyTextBox
\n {
\n if ($TextBoxUserName.Text -eq "Enter UserName or DeviceName")
\n {
\n $TextBoxUserName.Text = ""
\n }
\n Elseif (($TextBoxUserName.Text -eq $null) -or ($TextBoxUserName.Text -eq "") -or ($TextBoxUserName.Text -eq " "))
\n {
\n $TextBoxUserName.Text = "Enter UserName or DeviceName"
\n }
\n }
\n
\n function Activate-DateControls
\n {
\n if (($ComboBoxTypes.SelectedIndex -eq 2) -or ($ComboBoxTypes.SelectedIndex -eq 3) -or ($ComboBoxTypes.SelectedIndex -eq 6))
\n {
\n $CheckBoxCurrentData.Enabled = $true
\n $DateTimeStart.Enabled = $true
\n $DateTimeEnd.Enabled = $true
\n if (($ComboBoxTypes.SelectedIndex -eq 2) -or ($ComboBoxTypes.SelectedIndex -eq 6))
\n {
\n $TextBoxUserName.Enabled=$true
\n }
\n Else
\n {
\n $TextBoxUserName.Enabled=$false
\n }
\n }
\n Else
\n {
\n $CheckBoxCurrentData.Enabled = $false
\n $DateTimeStart.Enabled = $false
\n $DateTimeEnd.Enabled = $false
\n $TextBoxUserName.Enabled=$false
\n }
\n }
\n
\n function Activate-CheckBoxControls
\n {
\n if ($CheckBoxCurrentData.Checked -eq $false)
\n {
\n $DateTimeStart.Enabled = $true
\n $DateTimeEnd.Enabled = $true
\n }
\n Else
\n {
\n $DateTimeStart.Enabled = $false
\n $DateTimeEnd.Enabled = $false
\n }
\n }
\n
\n function Activate-Controls {
\n #[System.Windows.Forms.Application]::UseWaitCursor = $false
\n $ButtonExecute.Enabled=$true
\n $ButtonExport.Enabled=$true
\n $ButtonConfiguration.Enabled=$true
\n $ComboBoxTypes.Enabled=$true
\n Activate-DateControls
\n Activate-CheckBoxControls
\n ModifyTextBox
\n #$RadioButtonSelectRRASServer.Focus()
\n }
\n
\n function DeActivate-Controls {
\n #[System.Windows.Forms.Application]::UseWaitCursor = $true
\n $ButtonExecute.Enabled=$false
\n $ButtonExport.Enabled=$false
\n $ButtonConfiguration.Enabled=$false
\n $ComboBoxTypes.Enabled=$false
\n Activate-DateControls
\n Activate-CheckBoxControls
\n ModifyTextBox
\n }
\n
\n function Write-OutputBox {
\n param(
\n [parameter(Mandatory=$true)]
\n [string]$OutputBoxMessage,
\n [parameter(Mandatory=$true)]
\n [ValidateSet("WARNING","ERROR","INFO")]
\n [string]$Type
\n )
\n Begin {
\n $DateTime = (Get-Date).ToLongTimeString()
\n }
\n Process {
\n if ($OutputBox.Text.Length -eq 0) {
\n $OutputBox.Text = "$($DateTime) - $($Type): $($OutputBoxMessage)"
\n [System.Windows.Forms.Application]::DoEvents()
\n $OutputBox.SelectionStart = $OutputBox.Text.Length
\n $OutputBox.ScrollToCaret()
\n }
\n else {
\n $OutputBox.AppendText("`n$($DateTime) - $($Type): $($OutputBoxMessage)")
\n [System.Windows.Forms.Application]::DoEvents()
\n $OutputBox.SelectionStart = $OutputBox.Text.Length
\n $OutputBox.ScrollToCaret()
\n }
\n }
\n }
\n
\n function Write-OutputConfigBox {
\n param(
\n [parameter(Mandatory=$true)]
\n [string]$OutputBoxMessage,
\n [parameter(Mandatory=$true)]
\n [ValidateSet("WARNING","ERROR","INFO")]
\n [string]$Type
\n )
\n Begin {
\n $DateTime = (Get-Date).ToLongTimeString()
\n }
\n Process {
\n if ($OutputConfigBox.Text.Length -eq 0) {
\n $OutputConfigBox.Text = "$($DateTime) - $($Type): $($OutputBoxMessage)"
\n [System.Windows.Forms.Application]::DoEvents()
\n $OutputConfigBox.SelectionStart = $OutputConfigBox.Text.Length
\n $OutputConfigBox.ScrollToCaret()
\n }
\n else {
\n $OutputConfigBox.AppendText("`n$($DateTime) - $($Type): $($OutputBoxMessage)")
\n [System.Windows.Forms.Application]::DoEvents()
\n $OutputConfigBox.SelectionStart = $OutputConfigBox.Text.Length
\n $OutputConfigBox.ScrollToCaret()
\n }
\n }
\n }
\n
\n function Connect-RRASServers
\n {
\n if (test-path -path $ConfigurationFile)
\n {
\n # Get RRAS Servers from the Configuration File
\n ForEach ($RRASserver in (Get-content -path $ConfigurationFile))
\n {
\n $RRASServerDetails = $RRASServer.Split(",")
\n $RRASserverName = $RRASServerDetails[0]
\n
\n $RRASLogin = $RRASServerDetails[1]
\n
\n $RRASPassword = (Get-Content -Path "$UserLocalAppData\\RRASreporting\\$RRASserverName.txt" | ConvertTo-SecureString)
\n $LoginUser = "$RRASserverName\\$RRASLogin"
\n
\n $RRASCred = New-Object -TypeName System.Management.Automation.PSCredential -ArgumentList $LoginUser,$RRASPassword
\n
\n # Connect to RRAS Server
\n
\n # Check for Variable if already exists, if it does, Then just do the PS-Sessions only.
\n if (Get-Variable | ? Name -eq $RRASServerName)
\n {
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Write-OutputBox -OutputBoxMessage "PS-Session for this Host already exists, existing session will be utilised" -Type INFO
\n }
\n Else
\n {
\n Write-OutputBox -OutputBoxMessage "Initiating connection to RRAS Server: $RRASserverName" -Type INFO
\n try
\n {
\n $RRASserverName = New-PSSession -ComputerName $RRASserverName -Credential $RRASCred
\n }
\n catch
\n {
\n Write-OutputBox -OutputBoxMessage "Unable to connect to RRAS Server: $RRASserverName" -Type ERROR; break
\n }
\n Write-OutputBox -OutputBoxMessage "Successfully connected to RRAS Server: $RRASserverName" -Type INFO
\n }
\n }
\n Else
\n {
\n Write-OutputBox -OutputBoxMessage "Initiating connection to RRAS Server: $RRASserverName" -Type INFO
\n New-Variable -Name $RRASserverName -Scope Global -Value (New-PSSession -ComputerName $RRASserverName -Credential $RRASCred)
\n }
\n }
\n }
\n Else
\n {
\n Write-OutputBox -OutputBoxMessage "No Configuration File found, user will be prompted to create one." -Type WARNING
\n }
\n }
\n
\n function Load-Connect
\n {
\n Write-OutputBox -OutputBoxMessage "Connecting to required RRAS Servers" -Type INFO
\n
\n if ($Global:ConfigurationUploaded -eq "Success")
\n {
\n #Deactivate controls while inititaing forms
\n DeActivate-Controls
\n
\n #Connect and Create PS-Sessions to RRAS Servers
\n Connect-RRASServers
\n
\n #Activate controls as all forms are loaded now
\n Activate-Controls
\n }
\n }
\n
\n function Load-ConnectConfig
\n {
\n Write-OutputConfigBox -OutputBoxMessage "Fetching Details of RRAS Servers" -Type INFO
\n
\n #Clear Datagrid rows
\n $DGVConfigResults.Rows.Clear()
\n
\n #Connect and Create PS-Sessions to RRAS Servers
\n LoadConfiguration
\n
\n Write-OutputConfigBox -OutputBoxMessage "Successfully obtained information about RRAS Servers" -Type INFO
\n }
\n
\n function Update-StatusBar {
\n param(
\n [parameter(Mandatory=$true)]
\n [ValidateSet("Ready","Updating","Validating","Enumerating")]
\n [string]$Activity,
\n [parameter(Mandatory=$true)]
\n [string]$Text
\n )
\n $StatusBarPanelActivity.Text = $Activity
\n $StatusBarPanelProcessing.Text = $Text
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n
\n function Get-RRASGeneralInformation {
\n Process
\n {
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASserverDetails = $RRASserver.Split(",")
\n $RRASserverName = $RRASserverDetails[0]
\n
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating connection to $RRASserver"
\n $script = {Get-RemoteAccess}
\n $Session = (Get-PSSession | ? Computername -eq "$RRASserverName")
\n $var = Invoke-Command -Session $Session -ScriptBlock $script
\n
\n $VpnStatus = $var.VpnStatus
\n $RoutingStatus = $var.RoutingStatus
\n $InternetInterface = $var.InternetInterface
\n $InternalInterface = $var.InternalInterface
\n $IPAssignmentMethod = $var | Select -ExpandProperty IPAssignmentMethod
\n $IPAddressRangeList = $var | Select -ExpandProperty IPAddressRangeList
\n $AuthenticationType = $var.AuthenticationType
\n $RadiusServerList =""
\n foreach ($RadiusServer in ($var | Select -ExpandProperty RadiusServerList))
\n {
\n $RadiusServerList += "$RadiusServer,"
\n }
\n
\n $DGVResults.Rows.Add($RRASserverName,$VpnStatus, $RoutingStatus, $InternetInterface, $InternalInterface, $IPAssignmentMethod, $IPAddressRangeList, $AuthenticationType, $RadiusServerList)
\n Write-OutputBox -OutputBoxMessage "Successfully collected data from $RRASserver" -Type INFO
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n else
\n {
\n Write-OutputBox -OutputBoxMessage "No data was found" -Type INFO
\n }
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Completed collecting RRAS General Information data" -Type INFO
\n }
\n }
\n }
\n
\n function Get-RemoteAccessAccounting
\n {
\n
\n Process
\n {
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASserverDetails = $RRASserver.Split(",")
\n $RRASserverName = $RRASserverDetails[0]
\n
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating connection to $RRASserver"
\n $script = {Get-RemoteAccessAccounting}
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script
\n
\n $RadiusAccountingStatus = $var.RadiusAccountingStatus
\n $RadiusServerList =""
\n foreach ($RadiusServer in ($var | Select -ExpandProperty RemoteRadiusServerList))
\n {
\n $RadiusServerList += "$RadiusServer,"
\n }
\n $RemoteRadiusServerList = $RadiusServerList
\n $InboxAccountingStatus = $var.InboxAccountingStatus
\n $InboxStoreLimit = $var.InboxStoreLimit
\n $InboxStoreUsedBytes = [math]::round($var.InboxStoreUsedBytes\/1GB, 2)
\n $InboxStoreUsedBytesInPercentage = ($var.InboxStoreUsedBytesInPercentage\/100).ToString("P")
\n $InboxStoreFreeBytes = [math]::round($var.InboxStoreFreeBytes\/1GB, 2)
\n $InboxStoreFreeBytesInPercentage = ($var.InboxStoreFreeBytesInPercentage\/100).ToString("P")
\n $InboxStoreFirstRecordDate = $var.InboxStoreFirstRecordDate
\n $InboxStoreLastRecordDate = $var.InboxStoreLastRecordDate
\n
\n $DGVResults.Rows.Add($RRASserverName, $InboxAccountingStatus, $InboxStoreLimit, $InboxStoreUsedBytes, $InboxStoreUsedBytesInPercentage, $InboxStoreFreeBytes, $InboxStoreFreeBytesInPercentage, $InboxStoreFirstRecordDate, $InboxStoreLastRecordDate)
\n Write-OutputBox -OutputBoxMessage "Successfully collected data from $RRASserver" -Type INFO
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n else
\n {
\n Write-OutputBox -OutputBoxMessage "No data was found" -Type INFO
\n }
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Completed collecting RRAS Remote Access Accounting data" -Type INFO
\n }
\n }
\n }
\n
\n function Get-RemoteAccessConnectionStatistics {
\n Process
\n {
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASserverDetails = $RRASserver.Split(",")
\n $RRASserverName = $RRASserverDetails[0]
\n
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating connection to $RRASserver"
\n
\n $StartDate = Get-Date -Date $DateTimeStart.value -Format "MM-dd-yyyy hh:mm:ss tt"
\n $EndDate = Get-Date -Date $DateTimeEnd.value -Format "MM-dd-yyyy hh:mm:ss tt"
\n
\n if (($TextBoxUserName.Text -eq "Enter UserName or DeviceName") -or ($TextBoxUserName.Text -eq "") -or ($TextBoxUserName.Text -eq " ") -or ($TextBoxUserName.Text -eq $null))
\n {
\n $SelectedUser = $null
\n }
\n Else
\n {
\n $SelectedUser = $TextBoxUserName.Text
\n if ($SelectedUser -match "internal.dotars.gov.au")
\n {
\n #do Nothing
\n }
\n Else
\n {
\n if ($SelectedUser -match "xt")
\n {
\n $SelectedUser = "$SelectedUser.internal.dotars.gov.au"
\n }
\n Else
\n {
\n $SelectedUser = "$SelectedUser@internal.dotars.gov.au"
\n }
\n }
\n }
\n
\n if ($CheckBoxCurrentData.checked -eq $false)
\n {
\n if ($SelectedUser -ne $null)
\n {
\n $script = {param($StartdateTime,$EndDateTime,$Username) Get-RemoteAccessConnectionStatistics -StartDateTime $StartdateTime -EndDateTime $EndDateTime | ? UserName -match $Username}
\n Write-OutputBox -OutputBoxMessage "Exeucting $script" -Type INFO
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script -ArgumentList $Startdate, $EndDate, $SelectedUser
\n }
\n Else
\n {
\n $script = {param($StartdateTime,$EndDateTime) Get-RemoteAccessConnectionStatistics -StartDateTime $StartdateTime -EndDateTime $EndDateTime}
\n Write-OutputBox -OutputBoxMessage "Exeucting $script" -Type INFO
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script -ArgumentList $Startdate, $EndDate
\n }
\n }
\n Else
\n {
\n if ($SelectedUser -ne $null)
\n {
\n $script = {param($Username) Get-RemoteAccessConnectionStatistics | ? UserName -match $Username}
\n Write-OutputBox -OutputBoxMessage "Exeucting $script" -Type INFO
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script -ArgumentList $SelectedUser
\n }
\n Else
\n {
\n $script = {Get-RemoteAccessConnectionStatistics}
\n Write-OutputBox -OutputBoxMessage "Exeucting $script" -Type INFO
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script
\n }
\n }
\n
\n #Write-OutputBox -OutputBoxMessage "Executing: $script" -Type INFO
\n #Write-OutputBox -OutputBoxMessage "Fetching Data for RemoteAccessConnectionStatistics Start Date: $DateTimeStart.value and End Date: $DateTimeEnd.value " -Type INFO
\n
\n Foreach ($Row in $var)
\n {
\n $Username = $Row | Select -ExpandProperty UserName
\n $ClientIPAddress = $Row.ClientIPAddress.IPAddressToString
\n $ClientExternalAddress = $Row.ClientExternalAddress
\n $AuthMethod = $Row.AuthMethod
\n $TunnelType = $Row.TunnelType
\n $UserActivityState = $Row.UserActivityState
\n $ConnectionStartTime = $Row.ConnectionStartTime.DateTime
\n $DateTimeNow = Get-Date
\n $Time= New-TimeSpan -Start $Row.ConnectionStartTime.DateTime -End $DateTimeNow
\n $Time = ($Row.ConnectionStartTime).AddSeconds($Row.ConnectionDuration)
\n $secs = $Row.ConnectionDuration
\n $ts = [timespan]::fromseconds($secs)
\n $ConnectionDuration = "{0:00}:{1:00}:{2:00}:{3:00}" -f $time.days,$time.Hours,$time.Minutes,$time.seconds
\n $ConnectionDuration = "$($ts.hours):$($ts.minutes):$($ts.seconds)"
\n $TotalBytesIn = [math]::round($Row.TotalBytesIn\/1GB, 2)
\n $TotalBytesOut = [math]::round($Row.TotalBytesOut\/1GB, 2)
\n
\n $DGVResults.Rows.Add($RRASserverName,$Username,$ClientIPAddress,$ClientExternalAddress,$AuthMethod,$TunnelType,$ConnectionStartTime,$ConnectionDuration,$UserActivityState)
\n }
\n Write-OutputBox -OutputBoxMessage "Successfully collected data from $RRASserver" -Type INFO
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n else
\n {
\n Write-OutputBox -OutputBoxMessage "No data was found" -Type INFO
\n }
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Completed collecting RRAS Connection Statistics data" -Type INFO
\n }
\n }
\n }
\n
\n function Get-RRASConnectionStatisticsSummary {
\n Process
\n {
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASserverDetails = $RRASserver.Split(",")
\n $RRASserverName = $RRASserverDetails[0]
\n
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating connection to $RRASserver"
\n
\n $StartDate = Get-Date -Date $DateTimeStart.value -Format "MM-dd-yyyy hh:mm:ss tt"
\n $EndDate = Get-Date -Date $DateTimeEnd.value -Format "MM-dd-yyyy hh:mm:ss tt"
\n
\n if ($CheckBoxCurrentData.checked -eq $false)
\n {
\n $script = {param($StartdateTime,$EndDateTime) Get-RemoteAccessConnectionStatisticsSummary -StartDateTime "$StartdateTime" -EndDateTime "$EndDateTime"}
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script -ArgumentList $Startdate, $EndDate
\n
\n $TotalSessions = $var.TotalSessions
\n #$TotalDASessions = $var.TotalDASessions
\n $TotalVpnSessions = $var.TotalVpnSessions
\n $MaxConcurrentSessions = $var.MaxConcurrentSessions
\n #$TotalUniqueDAClients = $var.TotalUniqueDAClients
\n $AverageSessionsPerDay = $var.AverageSessionsPerDay
\n $TotalUniqueUsers = $var.TotalUniqueUsers
\n
\n $DGVResults.Rows.Add($RRASserverName, $TotalSessions, $TotalVpnSessions, $MaxConcurrentSessions, $AverageSessionsPerDay, $TotalUniqueUsers)
\n }
\n Else
\n {
\n $script = {Get-RemoteAccessConnectionStatisticsSummary}
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script
\n
\n $TotalVpnConnections = $var.TotalVpnConnections
\n $TotalUniqueUsers = $var.TotalUniqueUsers
\n $MaxConcurrentConnections = $var.MaxConcurrentConnections
\n $TotalCumulativeConnections = $var.TotalCumulativeConnections
\n $TotalBytesIn = [math]::round($var.TotalBytesIn\/1GB, 2)
\n $TotalBytesOut = [math]::round($var.TotalBytesOut\/1GB, 2)
\n
\n $DGVResults.Rows.Add($RRASserverName, $TotalVpnConnections, $TotalUniqueUsers, $MaxConcurrentConnections, $TotalCumulativeConnections, $TotalBytesIn, $TotalBytesOut)
\n }
\n
\n
\n Write-OutputBox -OutputBoxMessage "Successfully collected data from $RRASserver" -Type INFO
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n else
\n {
\n Write-OutputBox -OutputBoxMessage "No data was found" -Type INFO
\n }
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Completed collecting RRAS Connection Statistics Summary data" -Type INFO
\n }
\n }
\n }
\n
\n function Get-RemoteAccessHealth
\n {
\n Process
\n {
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASserverDetails = $RRASserver.Split(",")
\n $RRASserverName = $RRASserverDetails[0]
\n
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating connection to $RRASserver"
\n $script = {Get-RemoteAccessHealth}
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script
\n
\n Foreach ($Row in $var)
\n {
\n if (($Row.Component -eq "Server") -or ($Row.Component -eq "Vpn Addressing") -or ($Row.Component -eq "Vpn Connectivity") -or ($Row.Component -eq "Services"))
\n {
\n $Component = $Row | Select -ExpandProperty Component
\n $HealthState = $Row | Select -ExpandProperty HealthState
\n $TimeStamp = $Row | Select -ExpandProperty TimeStamp
\n
\n $DGVResults.Rows.Add($RRASserverName, $Component, $HealthState, $TimeStamp)
\n }
\n }
\n Write-OutputBox -OutputBoxMessage "Successfully collected data from $RRASserver" -Type INFO
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n else
\n {
\n Write-OutputBox -OutputBoxMessage "No data was found" -Type INFO
\n }
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Completed collecting RRAS Remote Access Health data" -Type INFO
\n }
\n }
\n }
\n
\n function Get-RemoteAccessRadius
\n {
\n Process
\n {
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASserverDetails = $RRASserver.Split(",")
\n $RRASserverName = $RRASserverDetails[0]
\n
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating connection to $RRASserver"
\n $script = {Get-RemoteAccessRadius}
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script
\n
\n Foreach ($Row in $var)
\n {
\n $ServerName = $Row | Select -ExpandProperty ServerName
\n $Purpose = $Row | Select -ExpandProperty Purpose
\n $Score = $Row | Select -ExpandProperty Score
\n $Timeout = $Row | Select -ExpandProperty Timeout
\n $Port = $Row | Select -ExpandProperty Port
\n $AccountingOnOffMsg = $Row | Select -ExpandProperty AccountingOnOffMsg
\n $MsgAuthenticator = $Row | Select -ExpandProperty MsgAuthenticator
\n
\n $DGVResults.Rows.Add($RRASserverName, $ServerName, $Purpose, $Score, $Timeout, $Port, $AccountingOnOffMsg, $MsgAuthenticator)
\n }
\n Write-OutputBox -OutputBoxMessage "Successfully collected data from $RRASserver" -Type INFO
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n else
\n {
\n Write-OutputBox -OutputBoxMessage "No data was found" -Type INFO
\n }
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Completed collecting RRAS Remote Access Health data" -Type INFO
\n }
\n }
\n }
\n
\n function Get-RemoteAccessUserActivity
\n {
\n Process
\n {
\n if (($TextBoxUserName.Text -eq "Enter UserName or DeviceName") -or ($TextBoxUserName.Text -eq "") -or ($TextBoxUserName.Text -eq " ") -or ($TextBoxUserName.Text -eq $null))
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating Username for Fetching User Activity Details"
\n Write-OutputBox -OutputBoxMessage "Username Field cannot be left empty, Please Enter UserName or DeviceName" -Type WARNING
\n }
\n Else
\n {
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASserverDetails = $RRASserver.Split(",")
\n $RRASserverName = $RRASserverDetails[0]
\n
\n if (Get-PSSession | ? ComputerName -eq $RRASserverName)
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Validating connection to $RRASserver"
\n
\n $StartDate = Get-Date -Date $DateTimeStart.value -Format "MM-dd-yyyy hh:mm:ss tt"
\n $EndDate = Get-Date -Date $DateTimeEnd.value -Format "MM-dd-yyyy hh:mm:ss tt"
\n $SelectedUser = $TextBoxUserName.Text
\n
\n if ($SelectedUser -match "internal.dotars.gov.au")
\n {
\n #do Nothing
\n }
\n Else
\n {
\n if ($SelectedUser -match "xt")
\n {
\n $SelectedUser = "$SelectedUser.internal.dotars.gov.au"
\n }
\n Else
\n {
\n $SelectedUser = "$SelectedUser@internal.dotars.gov.au"
\n }
\n }
\n
\n if ($CheckBoxCurrentData.Checked -eq $false)
\n {
\n $script = {param($StartdateTime,$EndDateTime,$Username) Get-RemoteAccessUserActivity -StartDateTime $StartdateTime -EndDateTime $EndDateTime -UserName $Username }
\n Write-OutputBox -OutputBoxMessage "Executing script: $Script with paramaters: $Startdate, $EndDate, $SelectedUser " -Type INFO
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script -ArgumentList $Startdate, $EndDate, $SelectedUser
\n }
\n Else
\n {
\n $script = {param($Username) Get-RemoteAccessUserActivity -UserName $Username}
\n Write-OutputBox -OutputBoxMessage "Executing script: $Script with parameters: $SelectedUser " -Type INFO
\n $var = Invoke-Command -Session (Get-PSSession | ? Computername -eq "$RRASserverName") -ScriptBlock $script -ArgumentList $SelectedUser
\n }
\n
\n Foreach ($Row in $var)
\n {
\n $ServerIpAddress = $Row | Select -ExpandProperty ServerIpAddress
\n $ProtocolID = $Row | Select -ExpandProperty ProtocolID
\n $ServerPort = $Row | Select -ExpandProperty ServerPort
\n
\n $DGVResults.Rows.Add($RRASserverName, $SelectedUser, $ServerIpAddress, $ProtocolID, $ServerPort)
\n }
\n Write-OutputBox -OutputBoxMessage "Successfully collected data from $RRASserver" -Type INFO
\n [System.Windows.Forms.Application]::DoEvents()
\n }
\n else
\n {
\n Write-OutputBox -OutputBoxMessage "No data was found" -Type INFO
\n }
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Completed collecting RRAS Remote Access Health data" -Type INFO
\n }
\n }
\n }
\n }
\n
\n function RefreshDataGRidView
\n {
\n $DGVResults.Rows.Clear()
\n if ($ComboBoxTypes.SelectedItem -eq "General Information") {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "VpnStatus"
\n $DGVResults.Columns[1].Width = "200"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "Routing Status"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Internet Interface"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "Internal Interface"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n $DGVResults.Columns.Insert(5,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[5].Name = "IP Assignment Method"
\n $DGVResults.Columns[5].AutoSizeMode = "Fill"
\n $DGVResults.Columns[5].ReadOnly = $true
\n $DGVResults.Columns.Insert(6,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[6].Name = "IP Address Range List"
\n $DGVResults.Columns[6].AutoSizeMode = "Fill"
\n $DGVResults.Columns[6].ReadOnly = $true
\n $DGVResults.Columns.Insert(7,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[7].Name = "Authentication Type"
\n $DGVResults.Columns[7].AutoSizeMode = "Fill"
\n $DGVResults.Columns[7].ReadOnly = $true
\n $DGVResults.Columns.Insert(8,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[8].Name = "Radius Server List"
\n $DGVResults.Columns[8].AutoSizeMode = "Fill"
\n $DGVResults.Columns[8].ReadOnly = $true
\n }
\n Elseif ($ComboBoxTypes.SelectedItem -eq "Accounting")
\n {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "Inbox Status"
\n $DGVResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "Inbox Limit"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Inbox UsedBytes (GB)"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "UsedBytes (%)"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n $DGVResults.Columns.Insert(5,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[5].Name = "FreeBytes (GB)"
\n $DGVResults.Columns[5].AutoSizeMode = "Fill"
\n $DGVResults.Columns[5].ReadOnly = $true
\n $DGVResults.Columns.Insert(6,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[6].Name = "FreeBytes (%)"
\n $DGVResults.Columns[6].AutoSizeMode = "Fill"
\n $DGVResults.Columns[6].ReadOnly = $true
\n $DGVResults.Columns.Insert(7,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[7].Name = "FirstRecordDate"
\n $DGVResults.Columns[7].AutoSizeMode = "Fill"
\n $DGVResults.Columns[7].ReadOnly = $true
\n $DGVResults.Columns.Insert(8,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[8].Name = "LastRecordDate"
\n $DGVResults.Columns[8].AutoSizeMode = "Fill"
\n $DGVResults.Columns[8].ReadOnly = $true
\n }
\n Elseif ($ComboBoxTypes.SelectedItem -eq "Connection Statistics")
\n {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "Username"
\n $DGVResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "Client IPAddress"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Client ExternalAddress"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "AuthMethod"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n $DGVResults.Columns.Insert(5,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[5].Name = "Tunnel Type"
\n $DGVResults.Columns[5].AutoSizeMode = "Fill"
\n $DGVResults.Columns[5].ReadOnly = $true
\n $DGVResults.Columns.Insert(6,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[6].Name = "Connection StartTime"
\n $DGVResults.Columns[6].AutoSizeMode = "Fill"
\n $DGVResults.Columns[6].ReadOnly = $true
\n $DGVResults.Columns.Insert(7,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[7].Name = "Connection Duration"
\n $DGVResults.Columns[7].AutoSizeMode = "Fill"
\n $DGVResults.Columns[7].ReadOnly = $true
\n $DGVResults.Columns.Insert(8,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[8].Name = "User ActivityState"
\n $DGVResults.Columns[8].AutoSizeMode = "Fill"
\n $DGVResults.Columns[8].ReadOnly = $true
\n #TotalBytesIn
\n #TotalBytesOut
\n }
\n Elseif ($ComboBoxTypes.SelectedItem -eq "Connection Statistics Summary")
\n {
\n if ($CheckBoxCurrentData.Checked -eq $true)
\n {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "Total VPN Connections"
\n $DGVResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "Total Unique Users"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Max Concurrent Connections"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "Total Cumulative Connections"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n $DGVResults.Columns.Insert(5,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[5].Name = "Total BytesIn (GB)"
\n $DGVResults.Columns[5].AutoSizeMode = "Fill"
\n $DGVResults.Columns[5].ReadOnly = $true
\n $DGVResults.Columns.Insert(6,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[6].Name = "Total BytesOut (GB)"
\n $DGVResults.Columns[6].AutoSizeMode = "Fill"
\n $DGVResults.Columns[6].ReadOnly = $true
\n }
\n Else
\n {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "Total Sessions"
\n $DGVResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "Total Vpn Sessions"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Max Concurrent Sessions"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "Average SessionsPerDay"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n $DGVResults.Columns.Insert(5,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[5].Name = "Total UniqueUsers"
\n $DGVResults.Columns[5].AutoSizeMode = "Fill"
\n $DGVResults.Columns[5].ReadOnly = $true
\n }
\n }
\n Elseif ($ComboBoxTypes.SelectedItem -eq "Health")
\n {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "Component"
\n $DGVResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "Health State"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Timestamp"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n }
\n Elseif ($ComboBoxTypes.SelectedItem -eq "RemoteAccessRadius")
\n {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "ServerName"
\n $DGVResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "Purpose"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Score"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "Timeout"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n $DGVResults.Columns.Insert(5,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[5].Name = "Port"
\n $DGVResults.Columns[5].AutoSizeMode = "Fill"
\n $DGVResults.Columns[5].ReadOnly = $true
\n $DGVResults.Columns.Insert(6,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[6].Name = "AccountingOnOffMsg"
\n $DGVResults.Columns[6].AutoSizeMode = "Fill"
\n $DGVResults.Columns[6].ReadOnly = $true
\n $DGVResults.Columns.Insert(7,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[7].Name = "MsgAuthenticator"
\n $DGVResults.Columns[7].AutoSizeMode = "Fill"
\n $DGVResults.Columns[7].ReadOnly = $true
\n }
\n Elseif ($ComboBoxTypes.SelectedItem -eq "User Activity")
\n {
\n $DGVResults.Columns.Clear()
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "UserName"
\n $DGVResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "ServerIpAddress"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "ProtocolID"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "ServerPort"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n }
\n }
\n
\n function SaveConfiguration($DGVConfigResultsData)
\n {
\n #Check File and Create if required
\n if (Test-path -Path $ConfigurationFile)
\n {
\n Write-OutputConfigBox -OutputBoxMessage "Configuration File found, Initiating clean up procedure" -Type INFO
\n Remove-Item -Path $ConfigurationFile -Force
\n New-Item -path $ConfigurationFile -ItemType File
\n }
\n Else
\n {
\n Write-OutputConfigBox -OutputBoxMessage "Configuration File not found, creating file as required: $ConfigurationFile" -Type INFO
\n New-Item -path $ConfigurationFile -ItemType File
\n }
\n
\n # Save Information to Configuration File
\n $Row = 0
\n For ($Row =0; $row -lt $DGVConfigResultsData.Rowcount -1 ; $Row++)
\n {
\n $RRASHostname = ""
\n $RRASUsername = ""
\n $RRASHostname = $DGVConfigResultsData.Rows[$row].Cells[0].Value
\n $RRASUsername = $DGVConfigResultsData.Rows[$row].Cells[1].Value
\n #$RRASPassword = (Decrypt-String -Encrypted ($DGVConfigResults[2,$DGVConfigResults.CurrentCell.RowIndex].Value))
\n $RRASPassword = (Decrypt-String -Encrypted ($DGVConfigResultsData.Rows[$row].Cells[2].Value))
\n
\n #Save RRAS hostname and Username in the Configuraiton File
\n Add-Content -Path $ConfigurationFile -Value "$RRASHostname,$RRASUsername"
\n
\n # Encrytping password
\n $RRASPassword | ConvertTo-SecureString -AsPlainText -Force | ConvertFrom-SecureString | Out-File "$UserLocalAppData\\RRASreporting\\$RRASHostname.txt"
\n
\n Write-OutputConfigBox -OutputBoxMessage "Data saved in Configuration File: $ConfigurationFile" -Type INFO
\n $Global:ConfigurationUploaded = "Success"
\n }
\n }
\n
\n function LoadConfiguration
\n {
\n Process
\n {
\n #Check File and Create if required
\n if (Test-path -Path $ConfigurationFile)
\n {
\n Write-OutputConfigBox -OutputBoxMessage "Configuration File found, Loading information" -Type INFO
\n
\n # Load information
\n ForEach ($RRASserver in (Get-content -path $configurationfile))
\n {
\n $RRASServerDetails = $RRASserver.Split(",")
\n $RRASServerName = $RRASServerDetails[0]
\n $RRASUserName = $RRASserverDetails[1]
\n
\n $RRASDecryptedPassword = ConvertFrom-SecureToPlain (Get-Content -Path "$UserLocalAppData\\RRASreporting\\$RRASServerName.txt" | ConvertTo-SecureString)
\n Update-StatusBar -Activity Validating -Text "Fetching login details from $UserLocalAppData\\RRASreporting\\$RRASServerName.txt"
\n Write-OutputConfigBox -OutputBoxMessage "Fetching login details from $UserLocalAppData\\RRASreporting\\$RRASServerName.txt" -Type INFO
\n
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Adding Server to the RRAS Server List"
\n
\n $EncryptedPassword = (Encrypt-String -String ($RRASDecryptedPassword))
\n
\n $DGVConfigResults.Rows.Add($RRASServerName, $RRASUserName, $EncryptedPassword)
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputConfigBox -OutputBoxMessage "Successfully added data to Grid view" -Type INFO
\n }
\n }
\n }
\n }
\n
\n function Export-DGV2CSV ([Windows.Forms.DataGridView] $grid, [String] $File)
\n <#
\n .SYNOPSIS
\n Export basic datagrid to CSV file
\n
\n .PARAMETER grid
\n Datagrid object
\n .PARAMETER file
\n Path to CSV file
\n #>
\n {
\n if ($grid.RowCount -eq 0) { return } # nothing to do
\n
\n $row = New-Object Windows.Forms.DataGridViewRow
\n $sw = new-object System.IO.StreamWriter($File)
\n
\n Try
\n {
\n #Write header line
\n $sw.WriteLine( ($grid.Columns | % { $_.HeaderText } ) -join ',' )
\n
\n Update-StatusBar -Activity Validating -Text "Fetching data from Datagrid to Export"
\n Write-OutputBox -OutputBoxMessage "Fetching data from Datagrid to Export" -Type INFO
\n
\n #Export contents inlcuding Headers
\n $grid.Rows | % {
\n $sw.WriteLine(
\n ($_.Cells | % { $_.Value }) -join ','
\n )
\n }
\n $sw.Close()
\n
\n Write-OutputBox -OutputBoxMessage "Data Exported to $ExportFile successfully" -Type INFO
\n Update-StatusBar -Activity Ready -Text " "
\n }
\n Catch
\n {
\n Write-OutputBox -OutputBoxMessage "Issues while exporting datagridview: $_.Exception.Message" -Type ERROR
\n }
\n }
\n
\n
\n function Encrypt-String($String, $Passphrase="EncryptIt", $salt="SaltCrypto", $init="PassKeeper", [switch]$arrayOutput)
\n {
\n # Info: More information and good documentation on these functions can be found in the link above
\n $r = New-Object System.Security.Cryptography.RijndaelManaged
\n $pass = [Text.Encoding]::UTF8.GetBytes($Passphrase)
\n $salt = [Text.Encoding]::UTF8.GetBytes($salt)
\n $r.Key = (New-Object Security.Cryptography.PasswordDeriveBytes $pass, $salt, "SHA1", 5).GetBytes(32)
\n $r.IV = (New-Object Security.Cryptography.SHA1Managed).ComputeHash( [Text.Encoding]::UTF8.GetBytes($init) )[0..15]
\n $c = $r.CreateEncryptor()
\n $ms = New-Object IO.MemoryStream
\n $cs = New-Object Security.Cryptography.CryptoStream $ms,$c,"Write"
\n $sw = New-Object IO.StreamWriter $cs
\n $sw.Write($String)
\n $sw.Close()
\n $cs.Close()
\n $ms.Close()
\n $r.Clear()
\n [byte[]]$result = $ms.ToArray()
\n return [Convert]::ToBase64String($result)
\n }
\n
\n function Decrypt-String($Encrypted, $Passphrase="EncryptIt", $salt="SaltCrypto", $init="PassKeeper")
\n {
\n if($Encrypted -is [string])
\n {
\n $Encrypted = [Convert]::FromBase64String($Encrypted)
\n }
\n
\n $r = New-Object System.Security.Cryptography.RijndaelManaged
\n $pass = [Text.Encoding]::UTF8.GetBytes($Passphrase)
\n $salt = [Text.Encoding]::UTF8.GetBytes($salt)
\n $r.Key = (New-Object Security.Cryptography.PasswordDeriveBytes $pass, $salt, "SHA1", 5).GetBytes(32) #256\/8
\n $r.IV = (New-Object Security.Cryptography.SHA1Managed).ComputeHash( [Text.Encoding]::UTF8.GetBytes($init) )[0..15]
\n $d = $r.CreateDecryptor()
\n $ms = New-Object IO.MemoryStream @(,$Encrypted)
\n $cs = New-Object Security.Cryptography.CryptoStream $ms,$d,"Read"
\n $sr = New-Object IO.StreamReader $cs
\n $text = $sr.ReadToEnd()
\n $sr.Close()
\n $cs.Close()
\n $ms.Close()
\n $r.Clear()
\n return $text
\n }
\n
\n # A Generic Function for Converting Security.SecureString Objects to Plain Text Strings
\n Function ConvertFrom-SecureToPlain
\n {
\n param( [Parameter(Mandatory=$true)][System.Security.SecureString] $SecurePassword)
\n
\n # Create a "password pointer"
\n $PasswordPointer = [Runtime.InteropServices.Marshal]::SecureStringToBSTR($SecurePassword)
\n
\n # Get the plain text version of the password
\n $PlainTextPassword = [Runtime.InteropServices.Marshal]::PtrToStringAuto($PasswordPointer)
\n
\n # Free the pointer
\n [Runtime.InteropServices.Marshal]::ZeroFreeBSTR($PasswordPointer)
\n
\n # Return the plain text password
\n $PlainTextPassword
\n }
\n
\n
\n function RemoveRRASServertoGridView
\n {
\n Process
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Adding Server to the RRAS Server List"
\n
\n $DGVConfigResults.Rows.Remove($DGVConfigResults.Rows[$DGVConfigResults.CurrentCell.RowIndex])
\n
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputBox -OutputBoxMessage "Successfully added data to Grid view" -Type INFO
\n }
\n }
\n
\n function AddRRASServertoGridView
\n {
\n Process
\n {
\n Update-StatusBar -Activity Enumerating -Text " "
\n Update-StatusBar -Activity Validating -Text "Adding Server to the RRAS Server List"
\n
\n # Encrytping password
\n $EncryptedString = (Encrypt-String -String ($TextBoxRRASPassword.Text))
\n
\n $DGVConfigResults.Rows.Add($TextBoxRRASServer.Text, $TextBoxRRASUsername.Text, $EncryptedString)
\n Update-StatusBar -Activity Ready -Text " "
\n Write-OutputConfigBox -OutputBoxMessage "Successfully added data to Grid view" -Type INFO
\n }
\n }
\n
\n#endregion Functions
\n
\n#region Windows Form Settings
\n
\n #region Form Details
\n # Forms
\n $Form = New-Object System.Windows.Forms.Form
\n #$Form.Size = New-Object System.Drawing.Size(900,700)
\n $Form.Size = New-Object System.Drawing.Size(1200,700)
\n $Form.MinimumSize = New-Object System.Drawing.Size(1200,700)
\n $Form.MaximumSize = New-Object System.Drawing.Size([System.Int32]::MaxValue,[System.Int32]::MaxValue)
\n $Form.SizeGripStyle = "Show"
\n $Form.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($PSHome + "\\powershell.exe")
\n $Form.Text = "Harmik Batth - RRAS Server Stats v1.0"
\n $Form.ControlBox = $true
\n $Form.MinimizeBox=$true
\n $Form.MaximizeBox=$true
\n $Form.TopMost = $false
\n
\n #endregion Form Details
\n
\n #region Execution Form page
\n # Buttons
\n
\n $ButtonExecute = New-Object System.Windows.Forms.Button
\n $ButtonExecute.Location = New-Object System.Drawing.Size(790,27)
\n $ButtonExecute.Size = New-Object System.Drawing.Size(90,25)
\n $ButtonExecute.Text = "Execute"
\n $ButtonExecute.TabIndex = "5"
\n $ButtonExecute.Anchor = "Top, Left"
\n $ButtonExecute.Enabled = $true
\n $ButtonExecute.Add_Click({
\n switch ($ComboBoxTypes.SelectedItem)
\n {
\n "General Information"
\n {
\n Invoke-CleanControls -Option All
\n if ($RadioButtonSelectRRASServer.Checked -eq $true)
\n {
\n DeActivate-Controls
\n RefreshDataGridView
\n Get-RRASGeneralInformation
\n Activate-Controls
\n }
\n }
\n "Accounting"
\n {
\n Invoke-CleanControls -Option All
\n if ($RadioButtonSelectRRASServer.Checked -eq $true)
\n {
\n DeActivate-Controls
\n RefreshDataGridView
\n Get-RemoteAccessAccounting
\n Activate-Controls
\n }
\n }
\n "Connection Statistics"
\n {
\n Invoke-CleanControls -Option All
\n if ($RadioButtonSelectRRASServer.Checked -eq $true)
\n {
\n DeActivate-Controls
\n RefreshDataGridView
\n Get-RemoteAccessConnectionStatistics
\n Activate-Controls
\n }
\n }
\n "Connection Statistics Summary"
\n {
\n Invoke-CleanControls -Option All
\n if ($RadioButtonSelectRRASServer.Checked -eq $true)
\n {
\n DeActivate-Controls
\n RefreshDataGridView
\n Get-RRASConnectionStatisticsSummary
\n Activate-Controls
\n }
\n }
\n "Health"
\n {
\n Invoke-CleanControls -Option All
\n if ($RadioButtonSelectRRASServer.Checked -eq $true)
\n {
\n DeActivate-Controls
\n RefreshDataGridView
\n Get-RemoteAccessHealth
\n Activate-Controls
\n }
\n }
\n "RemoteAccessRadius"
\n {
\n Invoke-CleanControls -Option All
\n if ($RadioButtonSelectRRASServer.Checked -eq $true)
\n {
\n DeActivate-Controls
\n RefreshDataGridView
\n Get-RemoteAccessRadius
\n Activate-Controls
\n }
\n }
\n "User Activity"
\n {
\n Invoke-CleanControls -Option All
\n if ($RadioButtonSelectRRASServer.Checked -eq $true)
\n {
\n DeActivate-Controls
\n RefreshDataGridView
\n Get-RemoteAccessUserActivity
\n Activate-Controls
\n }
\n }
\n }
\n })
\n
\n $ButtonConfiguration = New-Object System.Windows.Forms.Button
\n $ButtonConfiguration.Location = New-Object System.Drawing.Size(910,27)
\n $ButtonConfiguration.Size = New-Object System.Drawing.Size(90,25)
\n $ButtonConfiguration.Text = "Configuration"
\n $ButtonConfiguration.TabIndex = "6"
\n $ButtonConfiguration.Anchor = "Top, Left"
\n $ButtonConfiguration.Enabled = $true
\n $ButtonConfiguration.Add_Click({
\n LoadConfigurationForm
\n })
\n
\n $ButtonExport = New-Object System.Windows.Forms.Button
\n $ButtonExport.Location = New-Object System.Drawing.Size(790,57)
\n $ButtonExport.Size = New-Object System.Drawing.Size(90,25)
\n $ButtonExport.Text = "Export"
\n $ButtonExport.TabIndex = "7"
\n $ButtonExport.Anchor = "Top, Left"
\n $ButtonExport.Enabled = $true
\n $ButtonExport.Add_Click({
\n $strDate = Get-Date -Format "dd-MM-yyyy"
\n switch ($ComboBoxTypes.SelectedItem)
\n {
\n "General Information"
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-General-Information-$strDate.csv"
\n }
\n "Accounting"
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-Accounting-$strDate.csv"
\n }
\n "Connection Statistics"
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-Connection-Statistics-$strDate.csv"
\n }
\n "Connection Statistics Summary"
\n {
\n if ($CheckBoxCurrentData.Checked -$true)
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-Connection-Statistics-Summary-Current-$strDate.csv"
\n }
\n Else
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-Connection-Statistics-Summary-Custom-$strDate.csv"
\n }
\n }
\n "Health"
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-Health-$strDate.csv"
\n }
\n "RemoteAccessRadius"
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-Radius-$strDate.csv"
\n }
\n "User Activity"
\n {
\n $ExportFile = $ExportFile = "$ExportFolder\\RRAS-User-Activity-$strDate.csv"
\n }
\n }
\n Export-DGV2CSV $DGVResults $ExportFile
\n })
\n
\n # GroupBoxes
\n $GBRRASServersSelect = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBRRASServersSelect.Location = New-Object -TypeName System.Drawing.Size(10,10)
\n $GBRRASServersSelect.Size = New-Object -TypeName System.Drawing.Size(120,50)
\n $GBRRASServersSelect.Anchor = "Top, Left"
\n $GBRRASServersSelect.Text = "RRAS Servers List"
\n
\n $GBOptions = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBOptions.Location = New-Object -TypeName System.Drawing.Size(140,10)
\n $GBOptions.Size = New-Object -TypeName System.Drawing.Size(630,80)
\n $GBOptions.Anchor = "Top, Left"
\n $GBOptions.Text = "Options"
\n
\n $GBUser = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBUser.Location = New-Object -TypeName System.Drawing.Size(540,30)
\n $GBUser.Size = New-Object -TypeName System.Drawing.Size(220,50)
\n $GBUser.Anchor = "Top, Left"
\n $GBUser.Text = "Enter Username to Report on"
\n
\n $GBActions = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBActions.Location = New-Object -TypeName System.Drawing.Size(780,10)
\n $GBActions.Size = New-Object -TypeName System.Drawing.Size(110,90)
\n $GBActions.Anchor = "Top, Left"
\n $GBActions.Text = "Actions"
\n
\n $GBSettings = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBSettings.Location = New-Object -TypeName System.Drawing.Size(900,10)
\n $GBSettings.Size = New-Object -TypeName System.Drawing.Size(110,50)
\n $GBSettings.Anchor = "Top, Left"
\n $GBSettings.Text = "Settings"
\n
\n $GBResults = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBResults.Location = New-Object -TypeName System.Drawing.Size(10,100)
\n $GBResults.Size = New-Object -TypeName System.Drawing.Size(1160,350)
\n $GBResults.Anchor = "Top, Bottom, Left, Right"
\n $GBResults.Text = "Source information"
\n
\n $GBLog = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBLog.Location = New-Object -TypeName System.Drawing.Size(10,455)
\n $GBLog.Size = New-Object -TypeName System.Drawing.Size(1160,175)
\n $GBLog.Anchor = "Bottom, Left, Right"
\n $GBLog.Text = "Logging"
\n
\n # ComboBoxes
\n $ComboBoxTypes = New-Object System.Windows.Forms.ComboBox
\n $ComboBoxTypes.Location = New-Object System.Drawing.Size(150,30)
\n $ComboBoxTypes.Size = New-Object System.Drawing.Size(160,30)
\n $ComboBoxTypes.Items.AddRange(@("General Information","Accounting","Connection Statistics","Connection Statistics Summary","Health","RemoteAccessRadius","User Activity"))
\n $ComboBoxTypes.SelectedItem = "General Information"
\n $ComboBoxTypes.TabIndex = "1"
\n $ComboBoxTypes.Anchor = "Top, Left"
\n $ComboBoxTypes.DropDownStyle = [System.Windows.Forms.ComboBoxStyle]::DropDownList
\n $ComboBoxTypes.Add_SelectedIndexChanged({
\n Activate-DateControls
\n })
\n
\n #Checkboxes
\n $CheckBoxCurrentData = New-Object System.Windows.Forms.CheckBox
\n $CheckBoxCurrentData.Location = New-Object System.Drawing.Size(150,55)
\n $CheckBoxCurrentData.Size = New-Object System.Drawing.Size(160,30)
\n $CheckBoxCurrentData.Anchor = "Top, Left"
\n $CheckBoxCurrentData.Text = "Show Current Data"
\n $CheckBoxCurrentData.Enabled = $false
\n $CheckBoxCurrentData.Checked = $true
\n $CheckBoxCurrentData.Add_CheckedChanged({
\n Activate-CheckBoxControls
\n })
\n
\n # Date Time Boxes
\n $DateTimeStart= New-Object System.Windows.Forms.DateTimePicker
\n $DateTimeStart.Location = New-Object System.Drawing.Size(380,30)
\n $DateTimeStart.Size = New-Object System.Drawing.Size(150,20)
\n $DateTimeStart.Format = [System.Windows.Forms.DateTimePickerFormat]::Custom
\n $DateTimeStart.CustomFormat = "dd-MM-yyyy hh:mm:ss tt"
\n $DateTimeStart.Value = ([DateTime]::Today).AddDays(-1)
\n $DateTimeStart.MaxDate = Get-Date
\n $DateTimeStart.Anchor = "Top, Left"
\n $DateTimeStart.Enabled = $false
\n $DateTimeStart.TabIndex = "2"
\n
\n $DateTimeEnd= New-Object System.Windows.Forms.DateTimePicker
\n $DateTimeEnd.Location = New-Object System.Drawing.Size(380,60)
\n $DateTimeEnd.Size = New-Object System.Drawing.Size(150,20)
\n $DateTimeEnd.Format = [System.Windows.Forms.DateTimePickerFormat]::Custom
\n $DateTimeEnd.CustomFormat = "dd-MM-yyyy hh:mm:ss tt"
\n $DateTimeEnd.Value = [DateTime]::Today
\n $DateTimeEnd.MaxDate = Get-Date
\n $DateTimeEnd.Anchor = "Top, Left"
\n $DateTimeEnd.Enabled = $false
\n $DateTimeEnd.TabIndex = "3"
\n
\n # Lables
\n $LabelDateStart = New-Object System.Windows.Forms.Label
\n $LabelDateStart.Location = New-Object System.Drawing.Size(320,33)
\n $LabelDateStart.Size = New-Object System.Drawing.Size(60,20)
\n $LabelDateStart.Anchor = "Top, Left"
\n $LabelDateStart.Text = "Start Date"
\n
\n $LabelDateEnd = New-Object System.Windows.Forms.Label
\n $LabelDateEnd.Location = New-Object System.Drawing.Size(320,63)
\n $LabelDateEnd.Size = New-Object System.Drawing.Size(60,20)
\n $LabelDateEnd.Anchor = "Top, Left"
\n $LabelDateEnd.Text = "End Date"
\n
\n $LabelUserName = New-Object System.Windows.Forms.Label
\n $LabelUserName.Location = New-Object System.Drawing.Size(550,33)
\n $LabelUserName.Size = New-Object System.Drawing.Size(100,20)
\n $LabelUserName.Anchor = "Top, Left"
\n $LabelUserName.Text = "Enter Username"
\n
\n # Radio Buttons
\n $RadioButtonSelectRRASServer = New-Object System.Windows.Forms.RadioButton
\n $RadioButtonSelectRRASServer.Location = New-Object System.Drawing.Size(20,30)
\n $RadioButtonSelectRRASServer.Size = New-Object System.Drawing.Size(70,15)
\n $RadioButtonSelectRRASServer.TabIndex = "0"
\n $RadioButtonSelectRRASServer.Anchor = "Top, Left"
\n $RadioButtonSelectRRASServer.Text = "All RRAS Servers"
\n $RadioButtonSelectRRASServer.Checked = $true
\n
\n # RichTextBox
\n $OutputBox = New-Object System.Windows.Forms.RichTextBox
\n $OutputBox.Location = New-Object System.Drawing.Size(20,475)
\n $OutputBox.Size = New-Object System.Drawing.Size(1138,145)
\n $OutputBox.Anchor = "Bottom, Left, Right"
\n $OutputBox.TabIndex = "9"
\n $OutputBox.Font = "Courier New"
\n $OutputBox.BackColor = "white"
\n $OutputBox.ReadOnly = $true
\n $OutputBox.MultiLine = $true
\n
\n $TextBoxUserName = New-Object System.Windows.Forms.RichTextBox
\n $TextBoxUserName.Location = New-Object System.Drawing.Size(550,50)
\n $TextBoxUserName.Size = New-Object System.Drawing.Size(200,20)
\n $TextBoxUserName.Anchor = "Top, Left"
\n $TextBoxUserName.TabIndex = "4"
\n $TextBoxUserName.Font = "Courier New"
\n $TextBoxUserName.BackColor = "white"
\n $TextBoxUserName.ReadOnly = $false
\n $TextBoxUserName.MultiLine = $false
\n $TextBoxUserName.Enabled = $false
\n $TextBoxUserName.Text = "Enter UserName or DeviceName"
\n $TextBoxUserName.add_GotFocus({
\n ModifyTextbox
\n })
\n $TextBoxUserName.add_LostFocus({
\n ModifyTextbox
\n })
\n
\n # StatusBar
\n $StatusBarPanelActivity = New-Object Windows.Forms.StatusBarPanel
\n $StatusBarPanelActivity.Text = "Ready"
\n $StatusBarPanelActivity.Width = "100"
\n $StatusBarPanelProcessing = New-Object Windows.Forms.StatusBarPanel
\n $StatusBarPanelProcessing.Text = ""
\n $StatusBarPanelProcessing.Width = "770"
\n $StatusBarPanelAuthor = New-Object Windows.Forms.StatusBarPanel
\n $StatusBarPanelAuthor.Text = "Author: Harmik Singh Batth"
\n $StatusBarPanelAuthor.Width = "150"
\n $StatusBarPanelAuthorWesbite = New-Object Windows.Forms.StatusBarPanel
\n $StatusBarPanelAuthorWesbite.Text = "Website: www.harmikbatth.com"
\n $StatusBarPanelAuthorWesbite.AutoSize = "Spring"
\n #$StatusBarPanelProcessing.Style = [System.Drawing.Color]::Red - need to fix color
\n $StatusBar = New-Object Windows.Forms.StatusBar
\n $StatusBar.Size = New-Object System.Drawing.Size(500,20)
\n $StatusBar.ShowPanels = $true
\n $StatusBar.SizingGrip = $false
\n $StatusBar.AutoSize = "Full"
\n $StatusBar.Panels.AddRange(@(
\n $StatusBarPanelActivity,
\n $StatusBarPanelProcessing,
\n $StatusBarPanelAuthor,
\n $StatusBarPanelAuthorWesbite
\n ))
\n
\n #Tooltip Progress bar
\n $TooltipProgressBar = New-Object Windows.Forms.ToolStripProgressBar
\n
\n # DataGridViews
\n $DGVResults = New-Object System.Windows.Forms.DataGridView
\n $DGVResults.Location = New-Object System.Drawing.Size(20,120)
\n $DGVResults.Size = New-Object System.Drawing.Size(1138,320)
\n $DGVResults.Anchor = "Top, Bottom, Left, Right"
\n $DGVResults.TabIndex = "8"
\n $DGVResults.ColumnHeadersVisible = $true
\n $DGVResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[0].Name = "RRAS Server"
\n $DGVResults.Columns[0].AutoSizeMode = "Fill"
\n $DGVResults.Columns[0].ReadOnly = $true
\n $DGVResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[1].Name = "VpnStatus"
\n $DGVResults.Columns[1].Width = "200"
\n $DGVResults.Columns[1].ReadOnly = $true
\n $DGVResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[2].Name = "RoutingStatus"
\n $DGVResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVResults.Columns[2].ReadOnly = $true
\n $DGVResults.Columns.Insert(3,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[3].Name = "Internet Interface"
\n $DGVResults.Columns[3].AutoSizeMode = "Fill"
\n $DGVResults.Columns[3].ReadOnly = $true
\n $DGVResults.Columns.Insert(4,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[4].Name = "Internal Interface"
\n $DGVResults.Columns[4].AutoSizeMode = "Fill"
\n $DGVResults.Columns[4].ReadOnly = $true
\n $DGVResults.Columns.Insert(5,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[5].Name = "IPAssignmentMethod"
\n $DGVResults.Columns[5].AutoSizeMode = "Fill"
\n $DGVResults.Columns[5].ReadOnly = $true
\n $DGVResults.Columns.Insert(6,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[6].Name = "IPAddressRangeList"
\n $DGVResults.Columns[6].AutoSizeMode = "Fill"
\n $DGVResults.Columns[6].ReadOnly = $true
\n $DGVResults.Columns.Insert(7,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[7].Name = "AuthenticationType"
\n $DGVResults.Columns[7].AutoSizeMode = "Fill"
\n $DGVResults.Columns[7].ReadOnly = $true
\n $DGVResults.Columns.Insert(8,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVResults.Columns[8].Name = "RadiusServerList"
\n $DGVResults.Columns[8].AutoSizeMode = "Fill"
\n $DGVResults.Columns[8].ReadOnly = $true
\n $DGVResults.AllowUserToAddRows = $false
\n $DGVResults.AllowUserToDeleteRows = $false
\n $DGVResults.ReadOnly = $false
\n $DGVResults.MultiSelect = $true
\n $DGVResults.ColumnHeadersHeightSizeMode = "DisableResizing"
\n $DGVResults.RowHeadersWidthSizeMode = "DisableResizing"
\n $DGVResults.RowHeadersVisible = $false
\n $DGVResults.SelectionMode = "FullRowSelect"
\n
\n #endregion Execution Form page
\n
\n #region Configuration Form page
\n #------------------Configuration Form--------------------------#
\n
\n # GroupBoxes
\n $GBConfigActions = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBConfigActions.Location = New-Object -TypeName System.Drawing.Size(400,10)
\n $GBConfigActions.Size = New-Object -TypeName System.Drawing.Size(270,120)
\n $GBConfigActions.Anchor = "Top, Left"
\n $GBConfigActions.Text = "Actions"
\n
\n $GBConfigResults = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBConfigResults.Location = New-Object -TypeName System.Drawing.Size(10,170)
\n $GBConfigResults.Size = New-Object -TypeName System.Drawing.Size(860,280)
\n $GBConfigResults.Anchor = "Top, Bottom, Left, Right"
\n $GBConfigResults.Text = "Configure RRAS Server Details"
\n
\n $GBConfigLog = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBConfigLog.Location = New-Object -TypeName System.Drawing.Size(10,455)
\n $GBConfigLog.Size = New-Object -TypeName System.Drawing.Size(860,175)
\n $GBConfigLog.Anchor = "Bottom, Left, Right"
\n $GBConfigLog.Text = "Logging"
\n
\n $GBConfigRRAS = New-Object -TypeName System.Windows.Forms.GroupBox
\n $GBConfigRRAS.Location = New-Object -TypeName System.Drawing.Size(10,10)
\n $GBConfigRRAS.Size = New-Object -TypeName System.Drawing.Size(380,120)
\n $GBConfigRRAS.Anchor = "Top, Left"
\n $GBConfigRRAS.Text = "Provide RRAS Server Details"
\n
\n # DataGridViews
\n $DGVConfigResults = New-Object System.Windows.Forms.DataGridView
\n $DGVConfigResults.Location = New-Object System.Drawing.Size(20,190)
\n $DGVConfigResults.Size = New-Object System.Drawing.Size(838,250)
\n $DGVConfigResults.Anchor = "Top, Bottom, Left, Right"
\n $DGVConfigResults.ColumnHeadersVisible = $true
\n $DGVConfigResults.Columns.Insert(0,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVConfigResults.Columns[0].Name = "RRAS Server Name"
\n $DGVConfigResults.Columns[0].Width = "200"
\n $DGVConfigResults.Columns[0].ReadOnly = $false
\n $DGVConfigResults.Columns.Insert(1,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVConfigResults.Columns[1].Name = "Username"
\n $DGVConfigResults.Columns[1].AutoSizeMode = "Fill"
\n $DGVConfigResults.Columns[1].ReadOnly = $false
\n $DGVConfigResults.Columns.Insert(2,(New-Object -TypeName System.Windows.Forms.DataGridViewTextBoxColumn))
\n $DGVConfigResults.Columns[2].Name = "Password"
\n $DGVConfigResults.Columns[2].AutoSizeMode = "Fill"
\n $DGVConfigResults.Columns[2].ReadOnly = $false
\n
\n $DGVConfigResults.AllowUserToAddRows = $true
\n $DGVConfigResults.AllowUserToDeleteRows = $true
\n $DGVConfigResults.ReadOnly = $true
\n $DGVConfigResults.MultiSelect = $true
\n $DGVConfigResults.ColumnHeadersHeightSizeMode = "DisableResizing"
\n $DGVConfigResults.RowHeadersWidthSizeMode = "DisableResizing"
\n $DGVConfigResults.RowHeadersVisible = $true
\n $DGVConfigResults.SelectionMode = "FullRowSelect"
\n #$DGVConfigResults.TabIndex = 0
\n
\n # Buttons
\n $ButtonConfigExecute = New-Object System.Windows.Forms.Button
\n $ButtonConfigExecute.Location = New-Object System.Drawing.Size(540,30)
\n $ButtonConfigExecute.Size = New-Object System.Drawing.Size(120,30)
\n $ButtonConfigExecute.Text = "Save Configuration"
\n $ButtonConfigExecute.TabIndex = "1"
\n $ButtonConfigExecute.Anchor = "Top, Left"
\n $ButtonConfigExecute.Enabled = $true
\n $ButtonConfigExecute.Add_Click({
\n if ($DGVConfigResults.RowCount -ge 1)
\n {
\n SaveConfiguration $DGVConfigResults
\n }
\n })
\n
\n $ButtonConfigRRASAdd = New-Object System.Windows.Forms.Button
\n $ButtonConfigRRASAdd.Location = New-Object System.Drawing.Size(410,30)
\n $ButtonConfigRRASAdd.Size = New-Object System.Drawing.Size(120,30)
\n $ButtonConfigRRASAdd.Text = "Add Server"
\n $ButtonConfigRRASAdd.TabIndex = "1"
\n $ButtonConfigRRASAdd.Anchor = "Top, Left"
\n $ButtonConfigRRASAdd.Enabled = $true
\n $ButtonConfigRRASAdd.Add_Click({
\n $preReqs = ""
\n if (($TextBoxRRASServer.Text -eq $null) -or ($TextBoxRRASServer.Text -eq ""))
\n {
\n Write-OutputConfigBox -OutputBoxMessage "Server name cannot be empty" -Type WARNING
\n Update-StatusBar -Activity Validating -Text "Server name cannot be empty"
\n $preReqs = "Not Met"
\n }
\n if (($TextBoxRRASUsername.Text -eq $null) -or ($TextBoxRRASUsername.Text -eq ""))
\n {
\n Write-OutputConfigBox -OutputBoxMessage "UserName cannot be empty" -Type WARNING
\n Update-StatusBar -Activity Validating -Text "UserName cannot be empty"
\n $preReqs = "Not Met"
\n }
\n if (($TextBoxRRASPassword.Text -eq $null) -or ($TextBoxRRASPassword.Text -eq ""))
\n {
\n Write-OutputConfigBox -OutputBoxMessage "Password cannot be empty" -Type WARNING
\n Update-StatusBar -Activity Validating -Text "Password cannot be empty"
\n $preReqs = "Not Met"
\n }
\n
\n if ($preReqs -ne "Not Met")
\n {
\n Write-OutputConfigBox -OutputBoxMessage "Adding RRAS Server Details to Grid view" -Type INFO
\n Update-StatusBar -Activity Ready -Text " "
\n AddRRASServertoGridView
\n }
\n })
\n
\n $ButtonConfigRRASRemove = New-Object System.Windows.Forms.Button
\n $ButtonConfigRRASRemove.Location = New-Object System.Drawing.Size(410,70)
\n $ButtonConfigRRASRemove.Size = New-Object System.Drawing.Size(120,30)
\n $ButtonConfigRRASRemove.Text = "Remove Server"
\n $ButtonConfigRRASRemove.TabIndex = "1"
\n $ButtonConfigRRASRemove.Anchor = "Top, Left"
\n $ButtonConfigRRASRemove.Enabled = $true
\n $ButtonConfigRRASRemove.Add_Click({
\n RemoveRRASServertoGridView
\n })
\n
\n $ButtonConfigBackToMainForm = New-Object System.Windows.Forms.Button
\n $ButtonConfigBackToMainForm.Location = New-Object System.Drawing.Size(540,70)
\n $ButtonConfigBackToMainForm.Size = New-Object System.Drawing.Size(120,30)
\n $ButtonConfigBackToMainForm.Text = "Back To Main Form"
\n $ButtonConfigBackToMainForm.TabIndex = "1"
\n $ButtonConfigBackToMainForm.Anchor = "Top, Left"
\n $ButtonConfigBackToMainForm.Enabled = $true
\n $ButtonConfigBackToMainForm.Add_Click({
\n CheckConfigurationFile
\n LoadExecutionForm
\n })
\n
\n # Lables
\n $LabelRRASServer = New-Object System.Windows.Forms.Label
\n #$LabelRRASServer.Font = New-Object System.Drawing.Font("Arial", "10",[System.Drawing.FontStyle]::Regular)
\n $LabelRRASServer.Location = New-Object System.Drawing.Size(15,35)
\n $LabelRRASServer.Size = New-Object System.Drawing.Size(160,30)
\n $LabelRRASServer.Anchor = "Top, Left"
\n $LabelRRASServer.Text = "Enter RRAS Server Name"
\n
\n $LabelRRASUsername = New-Object System.Windows.Forms.Label
\n #$LabelRRASUsername.Font = New-Object System.Drawing.Font("Arial", "10",[System.Drawing.FontStyle]::Regular)
\n $LabelRRASUsername.Location = New-Object System.Drawing.Size(15,65)
\n $LabelRRASUsername.Size = New-Object System.Drawing.Size(160,30)
\n $LabelRRASUsername.Anchor = "Top, Left"
\n $LabelRRASUsername.Text = "Enter RRAS Server UserName"
\n
\n $LabelRRASPassword = New-Object System.Windows.Forms.Label
\n #$LabelRRASPassword.Font = New-Object System.Drawing.Font("Arial", "10",[System.Drawing.FontStyle]::Regular)
\n $LabelRRASPassword.Location = New-Object System.Drawing.Size(15,95)
\n $LabelRRASPassword.Size = New-Object System.Drawing.Size(160,30)
\n $LabelRRASPassword.Anchor = "Top, Left"
\n $LabelRRASPassword.Text = "Enter RRAS Server Password"
\n
\n # RichTextBox
\n $OutputConfigBox = New-Object System.Windows.Forms.RichTextBox
\n $OutputConfigBox.Location = New-Object System.Drawing.Size(20,475)
\n $OutputConfigBox.Size = New-Object System.Drawing.Size(838,145)
\n $OutputConfigBox.Anchor = "Bottom, Left, Right"
\n $OutputConfigBox.Font = "Courier New"
\n $OutputConfigBox.BackColor = "white"
\n $OutputConfigBox.ReadOnly = $true
\n $OutputConfigBox.MultiLine = $true
\n
\n $TextBoxRRASServer = New-Object System.Windows.Forms.RichTextBox
\n $TextBoxRRASServer.Location = New-Object System.Drawing.Size(180,30)
\n $TextBoxRRASServer.Size = New-Object System.Drawing.Size(200,25)
\n $TextBoxRRASServer.Anchor = "Top, Left"
\n $TextBoxRRASServer.Font = "Courier New"
\n $TextBoxRRASServer.BackColor = "white"
\n $TextBoxRRASServer.ReadOnly = $false
\n $TextBoxRRASServer.MultiLine = $false
\n
\n $TextBoxRRASUsername = New-Object System.Windows.Forms.RichTextBox
\n $TextBoxRRASUsername.Location = New-Object System.Drawing.Size(180,60)
\n $TextBoxRRASUsername.Size = New-Object System.Drawing.Size(200,25)
\n $TextBoxRRASUsername.Anchor = "Top, Left"
\n $TextBoxRRASUsername.Font = "Courier New"
\n $TextBoxRRASUsername.BackColor = "white"
\n $TextBoxRRASUsername.ReadOnly = $false
\n $TextBoxRRASUsername.MultiLine = $false
\n
\n $TextBoxRRASPassword = New-Object System.Windows.Forms.TextBox
\n $TextBoxRRASPassword.Location = New-Object System.Drawing.Size(180,90)
\n $TextBoxRRASPassword.Size = New-Object System.Drawing.Size(200,30)
\n $TextBoxRRASPassword.Anchor = "Top, Left"
\n $TextBoxRRASPassword.Font = "Courier New"
\n $TextBoxRRASPassword.BackColor = "white"
\n $TextBoxRRASPassword.ReadOnly = $false
\n $TextBoxRRASPassword.MultiLine = $false
\n $TextBoxRRASPassword.PasswordChar = '*'
\n
\n #endregion Configuration Form page
\n
\n#endregion Windows Form Settings
\n
\n#region Script Execution
\n #-----------------------------Execution starts here----------------------#
\n
\n if (Test-Path -Path $ConfigurationFolder)
\n {
\n Write-OutputBox "Configuration Folder already exists, no action required" -Type INFO
\n }
\n Else
\n {
\n Write-OutputBox "Configuration Folder does not exist, creating Folder" -Type INFO
\n Try
\n {
\n mkdir $ConfigurationFolder
\n }
\n Catch
\n {
\n Write-OutputBox "Issues while creating Configuration Folder: $_.Exception.Message" -Type INFO
\n }
\n }
\n
\n #CheckConfigurationFile
\n CheckConfigurationFile
\n
\n #Load Form
\n Load-Form
\n}
\n#endregion Script Execution<\/div><\/div>\n\n<\/pre>\r\n","protected":false},"excerpt":{"rendered":"A great Powershell script by Harmik to show Stats and connections to RRAS. http:\/\/harmikbatth.com\/2020\/05\/27\/rras-always-on-vpn-stats-remotely\/ ############################################################################################# # # Script: Get-AlwaysOnVPN-Stats-GUI.ps1 # # Author: Harmik Singh Batth # Website: www.harmikbatth.com # # Date: 01\/05\/2020 # # About: This script is designed to pull data from different RRAS Servers and present one view. # # Usage: To use […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[16],"tags":[],"class_list":["post-238","post","type-post","status-publish","format-standard","hentry","category-windows-server"],"_links":{"self":[{"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/posts\/238","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/comments?post=238"}],"version-history":[{"count":4,"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/posts\/238\/revisions"}],"predecessor-version":[{"id":355,"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/posts\/238\/revisions\/355"}],"wp:attachment":[{"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/media?parent=238"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/categories?post=238"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.davidirwin.co.uk\/index.php\/wp-json\/wp\/v2\/tags?post=238"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}