User Accounts

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
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Users," & _
objRootDSE.Get("defaultNamingContext"))
For i = 1 To 10
Set objLeaf = objContainer.Create("User", "cn=User" & i)
objLeaf.Put "sAMAccountName", "UserNo" & i
objLeaf.SetInfo
objLeaf.AccountDisabled=False
objLeaf.SetInfo
Next
'WScript.Echo "10 Users created."

Set objGrpContainer = GetObject("LDAP://cn=Users," & _
objRootDSE.Get("defaultNamingContext"))


' Creating Secured Global Group.
For j = 1 To 10
Set grp = objGrpContainer.Create("group", "CN=SecGrp" & j)
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
'    Exit Sub
End If

grp.Put "samAccountName", "SecGrp" & j
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
Next
Set grp = Nothing
 


' Creating Distribution List Local Group.
For k = 1 To 10
Set grp = objGrpContainer.Create("group", "CN=DLGrp" & k)
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
'    Exit Sub
End If

grp.Put "samAccountName", "DLGrp" & k
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
Next
Set grp = Nothing
 
' Create Secured Universal Group (ONLY IN NATIVE MODE).

For l = 1 To 10
Set grp = objGrpContainer.Create("group", "CN=uNIGrp" & l)
If (Err.Number<>0) Then
    MsgBox("An error has occurred. " & Err.Number)
    Set dom = Nothing
'    Exit Sub
End If

grp.Put "samAccountName", "UNIGrp" & l
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
Next
Set dom = Nothing
Set grp = Nothing
Wscript.Echo "Done"