www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



allen Benutzern neues Homelaufwerk zuordnen
Autor:  StefanMeyer
E-mail:  Antworten bitte nur in das Forum!
Datum:  09.09.2004 14:28:40
Subject:  allen Benutzern neues Homelaufwerk zuordnen
Bezug zum Buch: 
Message:  Habe ein Script das mir Benutzer mithilfe einer Textdatei anlegt:


#########################################
Dim Profil
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)
Passwort = Feld(3)
Beschreibung = Feld(4)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Beschreibung)
Loop
f.Close
Wscript.Quit(0)

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Beschreibung)
Dim ouo, b
Set ouo = GetObject("LDAP://CN=Users,DC=freedom,DC=testdomain,DC=de")
Set b = ouo.Create("user", "CN=" & Benutzer)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "displayName", Vorname & " " & Nachname
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "Description", Beschreibung
b.Put "userPrincipalName", Benutzer & "@freedom.testdomain.de"
b.Put "profilePath", "\\freedom\homeprofil\" & Benutzer & "$"
b.Put "homeDirectory", "\\freedom\homedrive\" & Benutzer & "$"
b.Put "homeDrive", "Z:"
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.Put "pwdLastSet", 0
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub
#########################################


Verz.cmd
(legt die richtigen Verzeichnisse an)
#########################################
md \\KUEKEN\homeprofil\%1$
echo J | cacls \\KUEKEN\homeprofil\%1$ /C /E /G Administratoren:F
echo J | cacls \\KUEKEN\homeprofil\%1$ /C /E /G domaene\%1:F
echo J | cacls \\KUEKEN\homeprofil\%1$ /C /E /R Jeder
md \\KUEKEN\homedrive\%1$
echo J | cacls \\KUEKEN\homedrive\%1$ /C /E /G Administratoren:F
echo J | cacls \\KUEKEN\homedrive\%1$ /C /E /G domaene\%1:F
echo J | cacls \\KUEKEN\homedrive\%1$ /C /E /R Jeder
#########################################

und ich habe ein Script was mir bei einem angegebenen Benutzer den Profilpfad updatet

#########################################
Set objUser = GetObject _
("LDAP://cn=Myerken,ou=Management,dc=NA,dc=fabrikam,dc=com")
objUser.Put "profilePath", "\\sea-dc-01\Profiles\myerken"
objUser.Put "scriptPath", "logon.vbs"
objUser.Put "homeDirectory", "\\sea-dc-01\HomeFolders\myerken"
objUser.Put "homeDrive", "H:"
objUser.SetInfo
#########################################

Wie bekomme ich es hin das statt meinem textfile die OU als Input gesehen wird damit ich bei vielen Usern die Homelaufwerke ändern kann ?

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 allen Benutzern neues Homelaufwerk zuordnen von StefanMeyer  am 9.9.2004 2:28:40 PM
 Re: allen Benutzern neues Homelaufwerk zuordnen von Dr. Holger Schwichtenberg  am 17.9.2004 9:37:36 AM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019