ScreenOS Port Groups

$PortObjectGroups = @()
$items = @()

(Get-Content .\SCH-NS-FW-1_TECH.txt | Select-String '^set group service\s".+?"\s+add\s+') | ForEach-Object {
$i = $_
$GroupName  = $i -replace '^set\s+group\s+service\s+"(.+?)"\s+add.*','$1'
$GroupName  = $GroupName -replace '(\/|\\)','_'
$MemberName = $i -replace '^set\s+group\s+service\s+".+?"\s+add\s+"(.+?)"','$1'
$MemberName = $MemberName -replace '(\/|\\)','_'

$item = New-Object psobject
$item | Add-Member -MemberType NoteProperty -Name GroupName  -Value $GroupName
$item | Add-Member -MemberType NoteProperty -Name MemberName -Value $MemberName
$items += $item
}

$Groups = @()
$unique = $items | Select-Object GroupName -Unique
$unique | foreach {
    $uGroup = $items | Where-Object -Property GroupName -EQ -Value $_.GroupName
    $pObject = @()
    $uGroup | foreach {
             $Member = $_.MemberName
             $pObject = "$pObject$Member,"
                      }
 $pObject = $pObject -replace ',$',''
 $Group = New-Object psobject
 $Group | Add-Member -MemberType NoteProperty -Name Name -Value $_.GroupName
 $Group | Add-Member -MemberType NoteProperty -Name Objects -Value $pObject
 $Groups += $Group
                  }

$Groups 
#| Export-Csv -NoClobber -NoTypeInformation -Path .\netgroups2.csv