User mit zugehörigen Profil-und Netzwerkordneren automatisch einrichten

ddrummer · 21. April 2004

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 · 22. April 2004

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 · 22. April 2004

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 · 22. April 2004

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 · 22. April 2004

...es scheint ihr wichtig zu sein *grins

Liebe Grüße,

Fritz

ddrummer · 23. April 2004

Dank Dir - werd´s mal ausprobieren.

frauke · 27. April 2004

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 · 21. März 2005

Hey,

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

Was kann das sein??

mfg

Gladiator

Anmelden

User mit zugehörigen Profil-und Netzwerkordneren automatisch einrichten

Empfohlene Beiträge

ddrummer 10

frauke 10

frauke 10

frauke 10

fritzo 10

ddrummer 10

frauke 10

Gladiator 10

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Benutzerkonto erstellen

Anmelden

Menu

Aktivitäten