ADS_GROUP_TYPE_ENUM enumeração (iads.h)

A enumeração ADS_GROUP_TYPE_ENUM especifica o tipo de objetos de grupo no 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 um grupo que pode conter contas do mesmo domínio e outros grupos globais do mesmo domínio. Esse tipo de grupo pode ser exportado para um domínio diferente.
ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP Valor: 0x4 Especifica um grupo que pode conter contas de qualquer domínio, outros grupos locais de domínio do mesmo domínio, grupos globais de qualquer domínio e grupos universais. Esse tipo de grupo não deve ser incluído em listas de controle de acesso de recursos em outros domínios. Esse tipo de grupo destina-se ao uso com o provedor LDAP.
ADS_GROUP_TYPE_LOCAL_GROUP Valor: 0x4 Especifica um grupo idêntico ao grupo ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP , mas destina-se ao uso com o provedor WinNT.
ADS_GROUP_TYPE_UNIVERSAL_GROUP Valor: 0x8 Especifica um grupo que pode conter contas de qualquer domínio, grupos globais de qualquer domínio e outros grupos universais. Esse tipo de grupo não pode conter grupos locais de domínio.
ADS_GROUP_TYPE_SECURITY_ENABLED Valor: 0x80000000 Especifica um grupo habilitado para segurança. Esse grupo pode ser usado para aplicar uma lista de controle de acesso em um objeto ADSI ou em um sistema de arquivos.

Comentários

Como o VBScript não pode ler dados de uma biblioteca de tipos, os aplicativos VBScript não entendem as constantes de reconhecimento, conforme definido acima. Em vez disso, use as constantes numéricas para definir os sinalizadores apropriados em seu aplicativo VBScript. Para usar as constantes simbólicas como uma boa prática de programação, escreva declarações explícitas dessas constantes, conforme feito aqui, em seu aplicativo VBScript.

Exemplos

O exemplo de código a seguir mostra como você pode usar elementos dessa enumeração.

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	Valor
Cliente mínimo com suporte	Windows Vista
Servidor mínimo com suporte	Windows Server 2008
Cabeçalho	iads.h

Confira também

Enumerações ADSI