ADS_GROUP_TYPE_ENUM 열거형(iads.h)

ADS_GROUP_TYPE_ENUM 열거형은 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;

상수

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 열거형