Αντιγράψτε το παρακάτω πρόγραμμα σε ένα αρχείο  που θα φτιάξετε με το Notepad (ή κάντε κλικ εδώ) και δώστε την προέκταση στο όνομα αρχείου .vbs Όταν ολοκληρώσετε τις διορθώσεις, εκτελέστε το script στον server (δεν έχει σημασία από πιο directory).

 

Οι τιμές με χρώμα πρέπει να προσαρμοστούν ανάλογα στο δικό σας εργαστήριο.

 

Η μεταβλητή FixName πρέπει να έχει το σταθερό μέρος των ονομάτων, στο παράδειγμα αυτό είναι "Α3-"

 

Προσαρμόστε την  επανάληψη for ... 1 to 28 ανάλογα με τους μαθητές του τμήματος (28 στο παράδειγμα αυτό)

 

Η μεταβλητή ProfilePath περιέχει το path που βρίσκεται το υποχρεωτικό (mandatory profile) προφίλ του χρήστη.  Προσαρμόστε ανάλογα με τις ρυθμίσεις του δικού σας εργαστηρίου. Αντίστοιχα η μεταβλητή HomeDirectory δηλώνει το path για τα έγγραφά μου του χρήστη.

Καλή σας τύχη :)

if Wscript.Arguments.Count = 0 then
WScript.Echo "Usage multiuser.vbs Fixed_Part_of_Name"
WScript.Quit
End If

strContainer = " ou=A-class, ou=Students,ou=School"

'***********************************************
'* Connect to a container *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
If strContainer = "" Then
Set objContainer = GetObject("LDAP://" & _
objRootDSE.Get("defaultNamingContext"))
Else
Set objContainer = GetObject("LDAP://" & strContainer & "," & _
objRootDSE.Get("defaultNamingContext"))
End If
'***********************************************
'* End connect to a container *
'***********************************************



For Each Nm in Wscript.Arguments
FixName = Nm
next

FixName = FixName & "Α3-"
For i=1 to 28
strName = FixName & i
Set objUser = objContainer.Create("user", "cn=" & strName)
objUser.Put "sAMAccountName", strName
objUser.Put "profilePath", "\\school500.edu\common\profiles\Mandatory"
objUser.Put "homeDrive", "F:"
objUser.Put "homeDirectory", "\\school500.edu\common\users\" & strName
objUser.SetInfo
Wscript.Echo strName & " user created"
next