The mind of Ross Armer

 
' User account and folder creation script with individual user permissions added.
' ------------ Created by Ross Armer 6/15/2009-------------

 
Dim Message1, Message2, Message3, Message4
Dim Title, Text1, Text2
Dim homepath, teacher, profilePath, scriptPath
'------------------------user input boxes-----------------------
Message1 = "Teacher initial"           
Title = "Bulk student creation script - by Ross Armer"
Text1 = "User input canceled"
Text2 = "You entered:" & vbCrLf
teacher = InputBox(Message1, Title, "", 100, 100)
'-----
Message2 = "Students home path (***WITH trailing slash*** in UNC format)"           
Title = "Bulk student creation script - by Ross Armer"
Text1 = "User input canceled"
Text2 = "You entered:" & vbCrLf
homepath = InputBox(Message2, Title, "\\", 100, 100)
'--------
Message3 = "Students profile path (no trailing slash required)"           
Title = "Bulk student creation script - by Ross Armer"
Text1 = "User input canceled"
Text2 = "You entered:" & vbCrLf
profilePath = InputBox(Message3, Title, "\\", 100, 100)
'--------
Message4 = "Students logon script"           
Title = "Bulk student creation script - by Ross Armer"
Text1 = "User input canceled"
Text2 = "You entered:" & vbCrLf
scriptPath = InputBox(Message4, Title, "", 100, 100)
'----------------------------------------------------------------

Sub createUser(i)
 
 
	Set objRootDSE = GetObject("LDAP://rootDSE")
	Set objContainer = GetObject("LDAP://cn=Users," & objRootDSE.Get("defaultNamingContext"))
	Set objLeaf = objContainer.Create("User", "cn=" & teacher & i)
    objLeaf.Put "sAMAccountName", teacher & i
    objLeaf.Put "givenName", teacher & i
    objLeaf.Put "displayName", teacher & i
    objLeaf.Put "profilePath", profilePath
    objLeaf.Put "scriptPath", scriptPath
    objLeaf.Put "HomeDrive", "J:"
    objLeaf.Put "HomeDirectory", homepath & teacher & i
    objLeaf.SetInfo
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.CreateFolder(homepath & teacher & i)
    Set oShell = wscript.CreateObject("Wscript.Shell")
    oShell.Run "%COMSPEC% /c Echo Y| cacls " & homepath & teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
 
End Sub
'----------------------------------------------------------------
For i = 100 To 130
	createUser i  
Next
For i = 200 To 230
    createUser i
Next
For i = 300 To 330
    createUser i
Next
For i = 400 To 430
    createUser i
Next
For i = 500 To 530
    createUser i
Next
For i = 600 To 630
    createUser i
Next
For i = 700 To 730
    createUser i
Next
'-----------------------------------------------------------------
WScript.Echo "All 7 hours created."