ADS_GROUP_TYPE_ENUM枚举 (iads.h)

ADS_GROUP_TYPE_ENUM枚举指定 ADSI 中组对象的类型。

语法

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;

常量

ADS_GROUP_TYPE_GLOBAL_GROUP 值： 0x2 指定一个组，该组可以包含来自同一域的帐户和来自同一域的其他全局组。 可以将这种类型的组导出到其他域。
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP 值： 0x4 指定一个组，该组可以包含来自任何域的帐户、来自同一域的其他域本地组、来自任何域的全局组和通用组。 此类组不应包含在其他域的资源的访问控制列表中。 此类型的组旨在与 LDAP 提供程序一起使用。
ADS_GROUP_TYPE_LOCAL_GROUP 值： 0x4 指定与 ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP 组相同的组，但旨在与 WinNT 提供程序一起使用。
ADS_GROUP_TYPE_UNIVERSAL_GROUP 值： 0x8 指定一个组，该组可以包含来自任何域的帐户、来自任何域的全局组和其他通用组。 此类型的组不能包含域本地组。
ADS_GROUP_TYPE_SECURITY_ENABLED 值： 0x80000000 指定启用了安全的组。 此组可用于在 ADSI 对象或文件系统上应用访问控制列表。

注解

由于 VBScript 无法从类型库读取数据，因此 VBScript 应用程序不理解识别常量，如上所述。 请改用数字常量在 VBScript 应用程序中设置适当的标志。 若要将符号常量用作良好的编程做法，请在 VBScript 应用程序中编写此类常量的显式声明，如此处所示。

示例

下面的代码示例演示如何使用此枚举的元素。

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

要求

要求	值
最低受支持的客户端	Windows Vista
最低受支持的服务器	Windows Server 2008
标头	iads.h

另请参阅

ADSI 枚举