作成 2010.01.07
更新 2010.01.07
VBScript で Active Directory グループの作成
このサンプルでは ADSI を使用してグループを作成します。指定したOUがなければ実行エラーになります。
ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
ADS_GROUP_TYPE_LOCAL_GROUP = &h4
ADS_GROUP_TYPE_UNIVERSAL_GROUP = &h8
ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000

strContainer = ""
strName = "EzAdGroup"

'***********************************************
'*         Connect to a container              *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
If strContainer = "" Then
  Set objContainer = GetObject("LDAP://" & _
    objRootDSE.Get("defaultNamingContext"))
Else
  Set objContainer = GetObject("LDAP://" & strContainer & "," & _
    objRootDSE.Get("defaultNamingContext"))
End If
'***********************************************
'*       End connect to a container            *
'***********************************************

Set objGroup = objContainer.Create("group", "cn=" & strName)
objGroup.Put "sAMAccountName", strName
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or _
  ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo
参考

VBScript で Active Directory グループの削除 | VBScript で Active Directory グループにメンバーを追加 | VBScript で Active Directory グループからメンバーを削除 | IADsContainer インターフェース | IADs インターフェース


©2004-2017 UPKEN IPv4