Hi all.

In this piece of code I get all the groups from the "TEST" domain.
How can I check if the group is a local or a global group.

Thanx.
Sander vd Kooij




' Init ADSI
Dim IADsCont As IADsContainer
Dim Group As IADsGroup
    
' Init vars
Dim strDomain As String
Dim strThisGroup As String
    
strDomain = "TEST
Set IADsCont = GetObject("WinNT://" & strDomain)
    
' Filter on group
IADsCont.Filter = Array("group")
If (Err.Number <> 0) Then
    ' Error
End If
    
' Get Groups
cmbGlobalGroups.Clear ' Clear combobox.
For Each Group In IADsCont
   strThisGroup = Group.Name
   cmbGlobalGroups.AddItem strThisGroup
Next