Oprette flere brugere ved VB Script.
Hejsa.Jeg skal oprette en række brugere på min DC.
Jeg har dog et par problemer.
1) Jeg kan ikke logge ind med den bruger som jeg opretter. Der står ikke noget i "User Logon Name"
2) Hvordan får jeg sat, at brugeren selv skal ændre password første gang de logger på?
Her er mit script:
' VBScript source code
Const INPUT_FILE_NAME = "C:\Brugere.txt"
'Her er navnet og placering for tekstfilen
Const FOR_READING = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING)
MsgBox "Der oprettes brugere....."
Do While objTextFile.AtEndOfStream <> True
strTextline = objTextFile.Readline
If inStr(strTextline, ",") > 0 Then
arrBrugere = split(strTextline, ",")
'Wscript.Echo "Brugernavn: " & arrBrugere(0)
'Wscript.Echo "Efternavn: " & arrBrugere(1)
'Wscript.Echo "Fornavn: " & arrBrugere(2)
'Wscript.Echo "Password: " & arrBrugere(3)
'For Each strBrugere In arrBrugere
'Her skal der følgende parameter erstattes:
'("LDAP://OU=Brugere,dc=data,dc=local")
Set objOU = GetObject("LDAP://OU=Brugere,dc=data,dc=local")
Set objUser = objOU.Create("User", "cn=" & arrBrugere(0))
objUser.Put "sAMAccountName", arrBrugere(0) & " "
objUser.Put "givenName","" & arrBrugere(2) & " "
objUser.Put "sn","" & arrBrugere(1) & " "
objUser.Put "displayName","" & arrBrugere(2) & " " & arrBrugere(1) & ""
objUser.Put "pwdLastSet", 0
'objUser.SetPassword "" & arrBrugere(3) "
objUser.SetInfo
Set objEditUser = GetObject _
("LDAP://cn=" & arrBrugere(0) & ",ou=Brugere,dc=data,dc=local")
objEditUser.SetPassword "test" & arrBrugere(3) & " "
'Her skal "Server" erstattes med den server hvor din "Profiler" mappe er oprettet
objEditUser.Put "homeDirectory", "\\server\test\" & arrBrugere(0)
objEditUser.Put "homeDrive", "Z:"
objEditUser.AccountDisabled = FALSE
objEditUser.SetInfo
End If
Loop
objTextFile.Close
Wscript.Echo "Alle brugere er oprettet!"
Wscript.Quit
