Jump to content
Sign in to follow this  
DonB

Script Profis?

Recommended Posts

// Hat sich schon erledigt selber drauf gekommen!

 

 

Hallo ich habe ein Script zum User anlegen.

 

Dim fso, f, Zeile, Feld

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile ("user.txt",1,0)

 

Do while not f.AtEndOfLine

Zeile = f.readLine

Feld = split(Zeile,",")

Benutzer = Feld(0)

Vorname = Feld(1)

Nachname = Feld(2)

Password = Feld(3)

 

Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)

Loop

f.Close

Wscript.Quit(0)

 

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort)

Dim ouo, b

Set ouo = GetObject("LDAP://OU=scripts,DC=DOMOL,DC=de")

Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)

Dim WshShell, ret

Set WshShell = WScript.CreateObject("WScript.Shell")

b.Put "sAMAccountName", Benutzer

b.Put "userPrincipalName", Benutzer & "@DOMOL.de"

b.Put "profilePath", "\\dcol01\daten\profile\" & Benutzer

b.Put "homeDirectory", "\\dcol01\daten\home\" & Benutzer

b.Put "homeDrive", "U:"

'28

 

b.SetInfo

b.SetPassword Password

b.AccountDisabled = False

b.SetInfo

 

 

WScript.Sleep(1000)

 

End Sub

 

 

Es funktioniert auch tadellos, ich möchte nun noch die Terminal Profil Pfade usw. anlegen dafür habe ein zweites Script:

 

Const Enabled = 1

Const Disabled = 0

Set objUser = GetObject("LDAP://CN=Test test,OU=scripts,DC=DOMOL,DC=de")

objUser.TerminalServicesProfilePath = "\\server\Pro"

objUser.TerminalServicesHomeDirectory = "\\server\ho"

objUser.TerminalServicesHomeDrive = "H:"

objUser.AllowLogon = Enabled

 

objUser.SetInfo

 

Diese Script ändert jedoch nur das Profil von einen speziellen Benutzer.

 

Kann mir jemand helfen wie ich das auch automatisiere für alle Benutzer der Textdatei??

 

Vielen Dank

Share this post


Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...