ADS_GROUP_TYPE_ENUM enumeración (iads.h)

La enumeración ADS_GROUP_TYPE_ENUM especifica el tipo de objetos de grupo en ADSI.

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;

Constantes

ADS_GROUP_TYPE_GLOBAL_GROUP Valor: 0x2 Especifica un grupo que puede contener cuentas del mismo dominio y otros grupos globales del mismo dominio. Este tipo de grupo se puede exportar a un dominio diferente.
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP Valor: 0x4 Especifica un grupo que puede contener cuentas de cualquier dominio, otros grupos locales de dominio del mismo dominio, grupos globales de cualquier dominio y grupos universales. Este tipo de grupo no debe incluirse en las listas de control de acceso de los recursos de otros dominios. Este tipo de grupo está pensado para su uso con el proveedor LDAP.
ADS_GROUP_TYPE_LOCAL_GROUP Valor: 0x4 Especifica un grupo idéntico al grupo de ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP , pero está pensado para su uso con el proveedor WinNT.
ADS_GROUP_TYPE_UNIVERSAL_GROUP Valor: 0x8 Especifica un grupo que puede contener cuentas de cualquier dominio, grupos globales de cualquier dominio y otros grupos universales. Este tipo de grupo no puede contener grupos locales de dominio.
ADS_GROUP_TYPE_SECURITY_ENABLED Valor: 0x80000000 Especifica un grupo que está habilitado para la seguridad. Este grupo se puede usar para aplicar una lista de control de acceso en un objeto ADSI o en un sistema de archivos.

Comentarios

Dado que VBScript no puede leer datos de una biblioteca de tipos, las aplicaciones de VBScript no reconocen constantes, como se ha definido anteriormente. Use las constantes numéricas, en su lugar, para establecer las marcas adecuadas en la aplicación VBScript. Para usar las constantes simbólicas como práctica de programación recomendada, escriba declaraciones explícitas de estas constantes, como se hace aquí, en la aplicación VBScript.

Ejemplos

En el ejemplo de código siguiente se muestra cómo puede usar elementos de esta enumeración.

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

Requisitos

Requisito	Value
Cliente mínimo compatible	Windows Vista
Servidor mínimo compatible	Windows Server 2008
Encabezado	iads.h

Consulte también

Enumeraciones ADSI