Vbscript / Active Directory / Create Group
This script creates a global security group in the specified OU.
CreateGroup "OU=users,OU=students,", "students"
Sub CreateGroup(strOU, strGroup)
strGroupCN = "CN=" & strGroup
Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext")
Set objOU = GetObject("LDAP://" & strOU & strDNSDomain )
Set objGroup = objOU.Create("Group",strGroupCN) objGroup.Put "sAMAccountName", strGroup objGroup.setInfo
End Sub
Please note that a disclaimer applies to any code on this page.
|