ADS_GROUP_TYPE_ENUM-Enumeration (iads.h)

Artikel
08/24/2023

Die ADS_GROUP_TYPE_ENUM-Enumeration gibt den Typ von Gruppenobjekten in ADSI an.

Syntax

typedef enum __MIDL___MIDL_itf_ads_0001_0023_0001 {
  ADS_GROUP_TYPE_GLOBAL_GROUP = 0x2,
  ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = 0x4,
  ADS_GROUP_TYPE_LOCAL_GROUP = 0x4,
  ADS_GROUP_TYPE_UNIVERSAL_GROUP = 0x8,
  ADS_GROUP_TYPE_SECURITY_ENABLED = 0x80000000
} ADS_GROUP_TYPE_ENUM;

Konstanten


`ADS_GROUP_TYPE_GLOBAL_GROUP` Wert: 0x2 Gibt eine Gruppe an, die Konten aus derselben Domäne und andere globale Gruppen aus derselben Domäne enthalten kann. Diese Art von Gruppe kann in eine andere Domäne exportiert werden.
`ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP` Wert: 0x4 Gibt eine Gruppe an, die Konten aus einer beliebigen Domäne, andere lokale Domänengruppen aus derselben Domäne, globale Gruppen aus einer beliebigen Domäne und universelle Gruppen enthalten kann. Diese Art von Gruppe sollte nicht in Zugriffssteuerungslisten von Ressourcen in anderen Domänen enthalten sein. Dieser Gruppentyp ist für die Verwendung mit dem LDAP-Anbieter vorgesehen.
`ADS_GROUP_TYPE_LOCAL_GROUP` Wert: 0x4 Gibt eine Gruppe an, die mit der ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP-Gruppe identisch ist, aber für die Verwendung mit dem WinNT-Anbieter vorgesehen ist.
`ADS_GROUP_TYPE_UNIVERSAL_GROUP` Wert: 0x8 Gibt eine Gruppe an, die Konten aus einer beliebigen Domäne, globale Gruppen aus einer beliebigen Domäne und andere universelle Gruppen enthalten kann. Dieser Gruppentyp darf keine lokalen Domänengruppen enthalten.
`ADS_GROUP_TYPE_SECURITY_ENABLED` Wert: 0x80000000 Gibt eine Gruppe an, die die Sicherheit aktiviert ist. Diese Gruppe kann verwendet werden, um eine Zugriffssteuerungsliste auf ein ADSI-Objekt oder ein Dateisystem anzuwenden.

Hinweise

Da VBScript keine Daten aus einer Typbibliothek lesen kann, verstehen VBScript-Anwendungen keine Erkennungskonstanten, wie oben definiert. Verwenden Sie stattdessen die numerischen Konstanten, um die entsprechenden Flags in Ihrer VBScript-Anwendung festzulegen. Um die symbolischen Konstanten als gute Programmierpraxis zu verwenden, schreiben Sie explizite Deklarationen solcher Konstanten, wie hier in Ihrer VBScript-Anwendung geschehen.

Beispiele

Das folgende Codebeispiel zeigt, wie Sie Elemente dieser Enumeration verwenden können.

Dim rootDSE // IADs
Dim dom // IADsContainer
Dim grp // IADs
Public Const ADS_GROUP_TYPE_GLOBAL_GROUP = &H2
Public Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = &H4
Public Const ADS_GROUP_TYPE_UNIVERSAL_GROUP = &H8
Public Const ADS_GROUP_TYPE_SECURITY_ENABLED = &H80000000

On Error Resume Next
 
Set rootDSE = GetObject("LDAP://RootDSE")
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Exit Sub
End If

Set dom = GetObject("LDAP://" & rootDSE.Get("defaultNamingContext"))
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set rootDSE = Nothing
    Exit Sub
End If

Set rootDSE = Nothing
 
' Creating Secured Global Group.
Set grp = dom.Create("group", "CN=group1")
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
    Exit Sub
End If

grp.Put "samAccountName", "group1"
grp.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED
grp.SetInfo
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
    Set grp = Nothing
    Exit Sub
End If
 
Set grp = Nothing
 
' Creating Distribution List Local Group.
Set grp = dom.Create("group", "CN=group2")
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
    Exit Sub
End If

grp.Put "samAccountName", "group2"
grp.Put "groupType", ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP
grp.SetInfo
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
    Set grp = Nothing
    Exit Sub
End If

Set grp = Nothing
 
' Create Secured Universal Group (ONLY IN NATIVE MODE).
Set grp = dom.Create("group", "CN=group3")
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
    Exit Sub
End If

Set grp = Nothing

grp.Put "samAccountName", "group3"
grp.Put "groupType", ADS_GROUP_TYPE_UNIVERSAL_GROUP Or ADS_GROUP_TYPE_SECURITY_ENABLED
grp.SetInfo
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
End If

Set dom = Nothing
Set grp = Nothing

Anforderungen

Anforderung	Wert
Unterstützte Mindestversion (Client)	Windows Vista
Unterstützte Mindestversion (Server)	Windows Server 2008
Kopfzeile	iads.h

Weitere Informationen

ADSI-Enumerationen

Share via