Добавление комп группы в раздел в Forefront TMG - VB

Sub ConnectToCSS(ByVal cssName)
        ' Create the root object.
        Dim root As New FPCLib.FPC
        ' Declare the other objects needed.
        Dim tmgArrays     ' An FPCArrays collection
        Dim tmgArray      ' An FPCArray object
        Dim scList
        Dim scSet
        root.ConnectToConfigurationStorageServer(cssName)
        ' Display the name of each array in the enterprise.
        tmgArrays = root.Arrays
        For Each tmgArray In tmgArrays
 
            If tmgArray.Name = "TEST" Then
                scList = tmgArray.ArrayPolicy.ConnectionLimitPolicy.SpecialComputerSets
                For Each scSet In scList
                    Console.WriteLine(scSet.Name)
                Next
                Add( ByVal Name As String ) As FPCComputerSet
            End If
        Next
        ' Disconnect from the Configuration Storage server.
        root.DisconnectFromConfigurationStorageServer()
    End Sub
 
End Module