Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Set oRoot = GetObject("LDAP://rootDSE")
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))
Set oOU = oDomain.Create("organisationalUnit", "ou=AutomaticIDUsers")
oOU.Put "Description", "Automaictally Created Users"
oOU.SetInfo
strAcNamePref="Neil"
intNumAc=5
i=1
DO WHILE i<intNumAc+1
strAcNameWithID=strAcNamePref&i
Set oUser = oOU.Create("Users", "cn="&strAcNameWithID)
oUser.Put "sAMAccountName", strAcNameWithID
oUser.Put "Description", "Created by script"
oUser.SetInfo
oUser.SetPassword "Abc"&i
oUser.AccountDisabled = FALSE
oUser.SetInto
i=i+1
LOOP