The blog of Ross Armer » Work http://blog.rossarmer.com ...professional geek by day, photographer by night. Tue, 19 Apr 2011 17:00:36 +0000 en hourly 1 http://wordpress.org/?v=3.2.1 Users.vbs v0.4 http://blog.rossarmer.com/2009/06/15/usersvbs-v03/?utm_source=rss&utm_medium=rss&utm_campaign=usersvbs-v03 http://blog.rossarmer.com/2009/06/15/usersvbs-v03/#comments Tue, 16 Jun 2009 01:32:04 +0000 Ross http://blog.rossarmer.com/?p=28 With help from a real programmer here is the much improved version…

*UPDATE* …added user input text boxes, no hand editing script variables

?View Code VB
 
' 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."

Share

]]> http://blog.rossarmer.com/2009/06/15/usersvbs-v03/feed/ 0 VBscript fun! http://blog.rossarmer.com/2009/06/14/vbscript-fun/?utm_source=rss&utm_medium=rss&utm_campaign=vbscript-fun http://blog.rossarmer.com/2009/06/14/vbscript-fun/#comments Mon, 15 Jun 2009 03:24:32 +0000 Ross http://blog.rossarmer.com/?p=23 I’m not a programmer, but I can hack a mean script together!  The following creates 7 classes of 30 students each in Active Directory and also creates their home folder and assigns the correct permissions to that folder. Beats having to do it one at a time when reloading a school server!


I’ll be looking to clean it up with the use of functions or whatever you VBscript people call it.


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

' !!!!! BUG - Do not forget to change the homePath in the oShell.Run lines !!!!

Dim teacher,homepath,profilePath,scriptPath

' *** Provide the following variables for your network ***
teacher="a"
homepath="\\server\users$\"
profilePath="\\server\profiles$"
scriptPath="students.bat"
' ********************************************************

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

For i = 100 To 130
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 \\server\users$\"& teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
Next
For i = 200 To 230
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 \\server\users$\"& teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
Next
For i = 300 To 330
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 \\server\users$\"& teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
Next
For i = 400 To 430
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 \\server\users$\"& teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
Next
For i = 500 To 530
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 \\server\users$\"& teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
Next
For i = 600 To 630
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 \\server\users$\"& teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
Next
For i = 700 To 730
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 \\server\users$\"& teacher & i & " /t /e /g Administrators:F "& teacher & i & ":F", 2, True
Next

WScript.Echo "All 7 hours created."

Share

]]> http://blog.rossarmer.com/2009/06/14/vbscript-fun/feed/ 0