0
Windows Server 2008 adding multiple users | Windows (7) Affinity 
0 pts. | Jul 15 2009 12:28AM GMT
[...] View original post here: Windows Server 2008 adding multiple users [...]
Rateec 30 pts. | Jul 15 2009 12:20PM GMT
‘******************************************************************************************
‘* User Add Account Script
‘*
‘* Purpose: Adds a new user to Active Directory. Adds username, first name, last name
‘* display name, description, email, web page, user logon name, user logon name
‘* pre-Windows 2000, User Must Change Password On Next Logon, profile path,
‘* home drive, home directory. The script can be passed the six attributes
‘* for the account or the name of a file with the attributes.
‘* If no command line arguments are given, the user is prompted for them.
‘* If the user enters a blank in the text box the script exits.
‘*
‘* Note: Does not set Unix attributes. Does not put account in the proper OU.
‘*
‘* Pre-Conditions: If using a textfile for input, it must exist.
‘*
‘* Post-Condition: The user account is created in the “Users” container. They must be moved
‘* to the proper OU. The unix settings are not set and the Home Directory
‘* has not been created on Humongo.
‘*
‘* Expects: username, first name, last name, description, password, bin
‘* -or-
‘* filename
‘* -or-
‘* nothing.
‘*
‘* Returns: Nothing
‘*
‘* Exceptions: If the user exists, the script shows the username(s), logs them to the
‘* “ProcessedUsers.txt” file, does not try to add the user and continues.
‘* If 0,1 or 6 arguments are not given, the script notifies the user and quits.
‘*
‘* Edited on 3/7/2004 Kurt Mosiejczuk
‘* Made useable on 3/10/2004 by Rick Tolleson
‘* -Skips any entry with a username of ‘username’. This facilitates using the same
‘* file for Mail Merge and account creation
‘* -Corrected ProcessFile to use the order stated above. Before it lied and shuffled
‘* username, last name and first name.
‘******************************************************************************************
‘———————————————————————————
‘Variable Declarations
‘———————————————————————————
dim objOU ‘The OU object
dim objUser ‘The User object
dim username
dim lastname
dim firstname
dim passwd ‘The password in their username
dim description ‘Description Property
‘dim bin ‘The subdir off of home where their home dir is,
‘for example \humongohomeXXusername where XX is bin
dim fso ‘File System object
dim logfile ‘File handle for the logfile
dim objArgs ‘Command line arguments
‘———————————————————————————
‘Main Body of Scipt
‘———————————————————————————
‘Put the command line arguments into the objArgs variable
Set objArgs = WScript.Arguments
‘If there are no command line arguments then prompt the user for them.
if objArgs.Count = 0 then
PromptForInfo()
CreateUser()
‘If there is 1 command line argument then assume it’s a file name.
elseif objArgs.Count = 1 then
ProcessFile()
‘If there are 6 command line arguments then use them and don’t prompt
elseif objArgs.Count = 5 then
lastname = objArgs(0)
firstname = objArgs(1)
username = objArgs(2)
description = objArgs(3)
passwd = objArgs(4)
‘bin = objArgs(5)
CreateUser()
else
WScript.Echo “The wrong number of arguments were supplied.”
Wscript.quit
end if
‘———————————————————————————
‘Functions and Subroutines
‘———————————————————————————
Function PromptForInfo()
‘Prompt for Username
username = InputBox (”Enter username”, UserName)
If username = “” Then
WScript.Echo “Canceled by the user”
Wscript.quit
End If
‘Prompt for First Name
firstname = InputBox(”Enter FirstName”)
If firstname = “” Then
WScript.Echo “Canceled by the user”
Wscript.quit
End If
‘Prompt for Last Name
lastname = InputBox(”Enter lastname”)
If lastname = “” Then
WScript.Echo “Canceled by the user”
Wscript.quit
End If
‘Prompt for Description
description= InputBox(”Enter Description (ex.VCSE created in 20032)”)
If description= “” Then
WScript.Echo “Canceled by the user”
Wscript.quit
End If
‘Prompt for Password
passwd = InputBox(”Enter Password”)
If passwd= “” Then
WScript.Echo “Canceled by the user”
Wscript.quit
End If
‘Prompt for Bin Number
‘bin = InputBox(”Enter Bin Number”)
‘If bin = “” Then
‘ WScript.Echo “Canceled by the user”
‘ Wscript.quit
‘End If
End Function
‘———————————————————————————
Function ProcessFile() ‘Reads the arguments from a textfile
Dim myArray
‘Get a FileSystemObject for manipulating the filesystem
Set objfso = Wscript.CreateObject(”Scripting.FileSystemObject”)
‘Open the file for reading
Set accountsFile = objfso.OpenTextFile(objArgs(0),1)
‘Loop until you reach the end of the file
Do While False = accountsFile.AtEndOfStream
‘Read in a line and split it by commas into an array
myArray = split(accountsFile.ReadLine,”,”)
username = myArray(2)
firstname = myArray(1)
lastname = myArray(0)
description = myArray(3)
passwd = myArray(4)
‘bin = myArray(5)
If username <> “UserName” Then
CreateUser()
End If
loop
accountsFile.Close()
End Function
‘——————————————————————————————-
Function DoesAccountExist() ‘Determines if an account exists in ActiveDirectory
Dim objConnection
Dim objCommand
‘Sets up the connection to ActiveDirectory
Set objConnection = CreateObject(”ADODB.Connection”)
objConnection.Open “Provider=ADsDSOObject;”
Set objCommand = CreateObject(”ADODB.Command”)
objCommand.ActiveConnection = objConnection
‘The query. This filters it to only look for users
<a href="http://objCommand.Com" title="http://objCommand. " target="_blank">objCommand.Com</a>mandText = _
“<GC://dc=eecc,dc=ce,dc=rit,dc=edu>;” & _
“(&(objectCategory=person)(objectClass=user)” & _
“(sAMAccountName="& username &”));” & _
“sAMAccountName, distinguishedName;subtree”
‘Executes the query
Set objRecordSet = objCommand.Execute
‘If nothing is returned by the query then the user must not exist
If objRecordSet.RecordCount = 0 Then
DoesAccountExist = “NO”
Else
DoesAccountExist = “YES”
‘Loop though the results of the query and output to screen and log
While Not objRecordset.EOF
Wscript.Echo “User already exists ” & “sAMAccountName = ” & _
objRecordset.Fields(”sAMAccountName”) & chr(13), “Major: ” & description
objRecordset.MoveNext
Wend
End If
‘Close the connection
objConnection.Close
End Function
‘——————————————————————————————-
Sub CreateUser() ‘Creates the user account in ActiveDirectory
‘If the account does not exist then create it
If DoesAccountExist = “NO” then
‘Get a handle for AD
Set objOU = GetObject(”LDAP://dc=eecc,dc=ce,dc=rit,dc=edu”)
Set objRootDSE = GetObject(”LDAP://rootDSE”)
Set objContainer = GetObject(”LDAP://cn=Users,” & _
objRootDSE.Get(”defaultNamingContext”))
Set objLeaf = objContainer.Create(”Users”, “cn=" & username)
objLeaf.Put “sAMAccountName”, username
objLeaf.Put “userPrincipalName”, username
objLeaf.Put “displayName”, lastname & “,” & ” ” & firstname
objLeaf.Put “givenName”, firstname
objLeaf.Put “sn”, lastname
‘ objLeaf.Put “description”, description
Dim description
Select Case description
Case eecc
objLeaf.Put “profilePath”, “\butlerstudent_homeeecc” & username
objLeaf.Put “homeDrive”, “x:”
objLeaf.Put “homeDirectory”, “\butlerstudent_dataeecc” & username
objLeaf.Put “mail”, username & “@rit.edu”
objLeaf.Put “wWWHomePage”, “http://www.ce.rit.edu”
Case eeee
objLeaf.Put “profilePath”, “\butlerstudent_homeeeee” & username
objLeaf.Put “homeDrive”, “x:”
objLeaf.Put “homeDirectory”, “\butlerstudent_dataeeee” & username
objLeaf.Put “mail”, username & “@rit.edu”
objLeaf.Put “wWWHomePage”, “http://www.ee.rit.edu”
Case emcr
objLeaf.Put “profilePath”, “\butlerstudent_homeemcr” & username
objLeaf.Put “homeDrive”, “x:”
objLeaf.Put “homeDirectory”, “\butlerstudent_dataemcr” & username
objLeaf.Put “mail”, username & “@rit.edu”
objLeaf.Put “wWWHomePage”, “http://www.rit.edu/kgcoe/ue/”
Case Else
objLeaf.Put “profilePath”, “\butlerstudent_homeother” & username
objLeaf.Put “homeDrive”, “x:”
objLeaf.Put “homeDirectory”, “\butlerstudent_dataother” & username
objLeaf.Put “mail”, username & “@rit.edu”
objLeaf.Put “wWWHomePage”, “http://www.ce.rit.edu”
‘Write the information out to ActiveDirectory
ObjLeaf.SetInfo
End Select
‘ ‘Write the information out to ActiveDirectory
ObjLeaf.SetInfo
‘Set the password
objLeaf.setPassword(passwd)
‘Sets the account to not expire?
objLeaf.Put “userAccountControl”, 1
‘Set it so the user must change their password on the next logon
objLeaf.Put “pwdLastSet”, 0
‘Write the information out to ActiveDirectory
ObjLeaf.SetInfo
Else
‘Don’t create the user.
‘Change passwd to indicate existance
passwd = “EXISTING ACCOUNT”
End If
LogProcessedUsers()
End Sub
‘————————————————————————————————
Sub LogProcessedUsers() ‘Writes the existing username to a file
‘Get a FileSystemObject for manipulating the filesystem
Set fso = Wscript.CreateObject(”Scripting.FileSystemObject”)
‘If the file exists, open it for appending
If (fso.FileExists(”ProcessedUsers.txt”)) Then
Set logfile = fso.OpenTextFile(”ProcessedUsers.txt”, 
Else
‘If the file does not exist, create it for writing
Set logfile = fso.CreateTextFile(”ProcessedUsers.txt”, 2)
End If
‘Write a line to the file
logfile.WriteLine(username & “,” & firstname & “,” & lastname & “,” & description & “,” & passwd & “,” & bin)
‘Close the file
logfile.Close()
End Sub
‘————————————————————————————————
‘End of Script
