User mit zugehörigen Profil-und Netzwerkordneren automatisch einrichten

[ddrummer 10]

Servus,

 

Ich möchte das auf unserer Domäne so einrichten, dass ein tool oder irgend ein Skript beim Anlegen eines neuen Benutzers gleich dessen servergespeicherten Profilordner, ein Home-Netzlaufwerk, seinen Profilpfad und den Pfad zum Anmeldeskript mit anlegt.

Dazu müsste es für die erstellten Ordner auch gleich die standardmäßig eingerichteten Freigaben einrichten.

 

Beim Anlegen des Benutzers sollte man dann nur seinen Namen, Anmeldenamen und Gruppenzugehörigkeit eintragen...

 

gibt´s dat????

[frauke 10]

Hallo,

das geht mit WSH, Du schreibst ein Skript in VBS oder JS.

Ich habe vor einiger Zeit mal eines geschrieben, was ich als Beispiel mitsende.

Ist vielleicht anfangs etwas unübersichtlich, sind aber zur Hilfe einige Kommentare drin.

Viel Glück.

 

'****************************************************

' Dateiname: add.vbs - Benutzer und Gruppe hinzufügen

' '***************************************************

 

'Variablendeklarationen erforderlich

Option Explicit

 

'Variablen deklarieren

Dim WshShell

Dim WshNetwork

Dim Fso

Dim IE

 

' WshShell-Objekt und WshNetwork-Objekt erzeugen

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

Set WshNetwork = WScript.CreateObject("WScript.Network")

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Set IE = WScript.CreateObject("InternetExplorer.Application")

 

 

Dim strTLD

strTLD = "TLD"

 

Dim strDomain

strdomain = "Domänenname"

 

'Dim strGroup

'strGroup = InputBox("Gruppe:", "Eingabe", "")

 

Dim strCN

strCN = "users"

 

Dim strFirstname

strFirstname = InputBox("Vorname:", "Eingabe", "")

 

Dim strUser

strUser = InputBox("Nachname:", "Eingabe", "")

 

Dim ShareServer

ShareServer = "Server"

 

DIm HomeDirServer

HomeDirServer = "Server"

 

Dim ShareName

ShareName = "Users"

 

Dim SharePath

SharePath = "home"

 

Dim Profile

profile = "profile"

 

Dim UserDrive

userDrive = "H:"

 

Dim Userprofile

userprofile = "\\" & shareServer & "\" & profile & "\" & strUser &".pds"

 

Dim workOU

Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDomain & ",DC=" & strTLD) ' Ich verbinde mich auf die Domäne

 

Dim strAg

strAg = InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

 

Dim strPwd

 

Dim strPath

Dim computer

Dim fs

 

 

'neuen Benutzer anlegen

Dim oUser

set oUser = workOU.Create("user", "CN=" & strUser)

oUser.Put "sAMAccountName", strUser

oUser.Put "userPrincipalName", strUser & "@" & strDomain & "." & strTLD

oUser.Put "Description", strAg

oUser.Put "givenName", strFirstName

oUser.Put "sn", strUser

oUser.Put "DisplayName", strUser

oUser.Put "ProfilePath", userProfile

oUser.Put "HomeDrive", userDrive

oUser.Put "homedirectory", "\\" & HomeDirServer & "\users\" & strUser

 

oUser.Put "scriptPath", strUser & ".cmd"

oUser.setinfo

strPwd = "nichts"

oUser.SetPassword strPwd

oUser.AccountDisabled = False

oUser.setinfo 'Daten übertragen

 

'oUser.SetPassword "nichts"

'WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

 

'Benutzer Gruppen zuweisen

'oGroup.Add "LDAP:" & strDomain & "/" & strUser

 

Dim grp

Set grp = GetObject("WinNT://Domäne/Gruppe")

grp.Add ("WinNT://Domäne/" & strUser)

 

oUser.setinfo

 

WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

 

computer = "//Server"

 

strPath = computer & "/users" & "/" & strUser

 

WScript.Echo("Der Ordner " & strPath & " wurde angelegt")

 

Set fs = fso.CreateFolder(strPath)

 

WScript.Quit(0)

[frauke 10]

Hallo,

das geht mit WSH, Du schreibst ein Skript in VBS oder JS.

Ich habe vor einiger Zeit mal eines geschrieben, was ich als Beispiel mitsende.

Ist vielleicht anfangs etwas unübersichtlich, sind aber zur Hilfe einige Kommentare drin.

Viel Glück.

 

'****************************************************

' Dateiname: add.vbs - Benutzer und Gruppe hinzufügen

' '***************************************************

 

'Variablendeklarationen erforderlich

Option Explicit

 

'Variablen deklarieren

Dim WshShell

Dim WshNetwork

Dim Fso

Dim IE

 

' WshShell-Objekt und WshNetwork-Objekt erzeugen

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

Set WshNetwork = WScript.CreateObject("WScript.Network")

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Set IE = WScript.CreateObject("InternetExplorer.Application")

 

 

Dim strTLD

strTLD = "TLD"

 

Dim strDomain

strdomain = "Domänenname"

 

'Dim strGroup

'strGroup = InputBox("Gruppe:", "Eingabe", "")

 

Dim strCN

strCN = "users"

 

Dim strFirstname

strFirstname = InputBox("Vorname:", "Eingabe", "")

 

Dim strUser

strUser = InputBox("Nachname:", "Eingabe", "")

 

Dim ShareServer

ShareServer = "Server"

 

DIm HomeDirServer

HomeDirServer = "Server"

 

Dim ShareName

ShareName = "Users"

 

Dim SharePath

SharePath = "home"

 

Dim Profile

profile = "profile"

 

Dim UserDrive

userDrive = "H:"

 

Dim Userprofile

userprofile = "\\" & shareServer & "\" & profile & "\" & strUser &".pds"

 

Dim workOU

Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDomain & ",DC=" & strTLD) ' Ich verbinde mich auf die Domäne

 

Dim strAg

strAg = InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

 

Dim strPwd

 

Dim strPath

Dim computer

Dim fs

 

 

'neuen Benutzer anlegen

Dim oUser

set oUser = workOU.Create("user", "CN=" & strUser)

oUser.Put "sAMAccountName", strUser

oUser.Put "userPrincipalName", strUser & "@" & strDomain & "." & strTLD

oUser.Put "Description", strAg

oUser.Put "givenName", strFirstName

oUser.Put "sn", strUser

oUser.Put "DisplayName", strUser

oUser.Put "ProfilePath", userProfile

oUser.Put "HomeDrive", userDrive

oUser.Put "homedirectory", "\\" & HomeDirServer & "\users\" & strUser

 

oUser.Put "scriptPath", strUser & ".cmd"

oUser.setinfo

strPwd = "nichts"

oUser.SetPassword strPwd

oUser.AccountDisabled = False

oUser.setinfo 'Daten übertragen

 

'oUser.SetPassword "nichts"

'WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

 

'Benutzer Gruppen zuweisen

'oGroup.Add "LDAP:" & strDomain & "/" & strUser

 

Dim grp

Set grp = GetObject("WinNT://Domäne/Gruppe")

grp.Add ("WinNT://Domäne/" & strUser)

 

oUser.setinfo

 

WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

 

computer = "//Server"

 

strPath = computer & "/users" & "/" & strUser

 

WScript.Echo("Der Ordner " & strPath & " wurde angelegt")

 

Set fs = fso.CreateFolder(strPath)

 

WScript.Quit(0)

[frauke 10]

Hallo,

das geht mit WSH, Du schreibst ein Skript in VBS oder JS.

Ich habe vor einiger Zeit mal eines geschrieben, was ich als Beispiel mitsende.

Ist vielleicht anfangs etwas unübersichtlich, sind aber zur Hilfe einige Kommentare drin.

Viel Glück.

 

'****************************************************

' Dateiname: add.vbs - Benutzer und Gruppe hinzufügen

' '***************************************************

 

'Variablendeklarationen erforderlich

Option Explicit

 

'Variablen deklarieren

Dim WshShell

Dim WshNetwork

Dim Fso

Dim IE

 

' WshShell-Objekt und WshNetwork-Objekt erzeugen

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

Set WshNetwork = WScript.CreateObject("WScript.Network")

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Set IE = WScript.CreateObject("InternetExplorer.Application")

 

 

Dim strTLD

strTLD = "TLD"

 

Dim strDomain

strdomain = "Domänenname"

 

'Dim strGroup

'strGroup = InputBox("Gruppe:", "Eingabe", "")

 

Dim strCN

strCN = "users"

 

Dim strFirstname

strFirstname = InputBox("Vorname:", "Eingabe", "")

 

Dim strUser

strUser = InputBox("Nachname:", "Eingabe", "")

 

Dim ShareServer

ShareServer = "Server"

 

DIm HomeDirServer

HomeDirServer = "Server"

 

Dim ShareName

ShareName = "Users"

 

Dim SharePath

SharePath = "home"

 

Dim Profile

profile = "profile"

 

Dim UserDrive

userDrive = "H:"

 

Dim Userprofile

userprofile = "\\" & shareServer & "\" & profile & "\" & strUser &".pds"

 

Dim workOU

Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDomain & ",DC=" & strTLD) ' Ich verbinde mich auf die Domäne

 

Dim strAg

strAg = InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

 

Dim strPwd

 

Dim strPath

Dim computer

Dim fs

 

 

'neuen Benutzer anlegen

Dim oUser

set oUser = workOU.Create("user", "CN=" & strUser)

oUser.Put "sAMAccountName", strUser

oUser.Put "userPrincipalName", strUser & "@" & strDomain & "." & strTLD

oUser.Put "Description", strAg

oUser.Put "givenName", strFirstName

oUser.Put "sn", strUser

oUser.Put "DisplayName", strUser

oUser.Put "ProfilePath", userProfile

oUser.Put "HomeDrive", userDrive

oUser.Put "homedirectory", "\\" & HomeDirServer & "\users\" & strUser

 

oUser.Put "scriptPath", strUser & ".cmd"

oUser.setinfo

strPwd = "nichts"

oUser.SetPassword strPwd

oUser.AccountDisabled = False

oUser.setinfo 'Daten übertragen

 

'oUser.SetPassword "nichts"

'WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

 

'Benutzer Gruppen zuweisen

'oGroup.Add "LDAP:" & strDomain & "/" & strUser

 

Dim grp

Set grp = GetObject("WinNT://Domäne/Gruppe")

grp.Add ("WinNT://Domäne/" & strUser)

 

oUser.setinfo

 

WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

 

computer = "//Server"

 

strPath = computer & "/users" & "/" & strUser

 

WScript.Echo("Der Ordner " & strPath & " wurde angelegt")

 

Set fs = fso.CreateFolder(strPath)

 

WScript.Quit(0)

[fritzo 10]

...es scheint ihr wichtig zu sein *grins

 

Liebe Grüße,

Fritz

[ddrummer 10]

Dank Dir - werd´s mal ausprobieren.

[frauke 10]

Hups,

irgendwas scheint schwer schief gelaufen zu sein.

Ich hoffe, es hilft wenigstens.

Was habe ich nur falsch gemacht ??

Frauke,

die sich schwer wundert...

[Gladiator 10]

Hey,

 

hab dein script ausprobiert, bekomme aber die Meldung: Referenzauswertung wurde vom server zurückgesendet.

 

Was kann das sein??

 

mfg

Gladiator