phrator

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) Passwort = Feld(2) Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort) Loop f.Close Wscript.Quit(0) Trennzeichen ist hier das , (Komma - bei split). siehe auch http://www.mcseboard.de/showthread.php?threadid=13316

http://support.microsoft.com/default.aspx?scid=kb;en-us;234746 könnte da helfen. Das Beispiel macht das ganze nicht mit einem Textfile, sondern mit den existierenden Benutzern im AD. Folgender Code wird dort virgeschlagen: Sub GetParentDir ParentDir = InputBox("Type the path of the parent folder for the user folders:", "Parent Directory Input Prompt", ParentDir) If Not FS.FolderExists(ParentDir) Then GetParentDir End If End Sub Dim WSHNetwork, WSHShell, FS, Domain, DomainObj, Computer, ShareServiceObj, ParentDir, Hidden, Drive Set FS = CreateObject("Scripting.FileSystemObject") Set WSHNetwork = CreateObject("WScript.Network") Set ShareServiceObj = GetObject("WinNT://" & WSHNetwork.ComputerName & "/LanManServer") Domain = InputBox("Type the name of your domain:","Enumeration and Creation of User Shares","DomainName") ParentDir = "C:\Users" GetParentDir Hidden = MsgBox("Do you want the user shares to be hidden? If yes, the share will be username$; If no, the share will be username", 4, "Hidden Shares?") Hidden = Hidden - 7 Drive = InputBox("What drive letter do you want to map the home folder to?", "Drive Letter?", "X:") Set DomainObj = GetObject("WinNT://" & Domain) DomainObj.Filter = Array("User") For Each UserObj in DomainObj Dim ShareName If Not FS.FolderExists(ParentDir & "\" & UserObj.Name) Then FS.CreateFolder(ParentDir & "\" & UserObj.Name) End If ShareName = UserObj.Name If Hidden Then ShareName = ShareName & "$" End If On Error Resume Next Set NewShare = ShareServiceObj.Create("fileshare", ShareName) If Not Err Then NewShare.Path = ParentDir & "\" & UserObj.Name NewShare.MaxUserCount = 1 'Sets the limit for the number of user connections NewShare.SetInfo UserObj.HomeDirectory = "\\" & WSHNetwork.ComputerName & "\" & ShareName UserObj.HomeDirDrive = Drive 'Requires ADSI 2.5 UserObj.SetInfo End If Next MsgBox "Script Complete",, "Finished"

Danke. Genau das wollte ich wissen. (ist ein w2k3 Server)

Wenn es ein Produktiv-Server sein soll, solltest Du über Raid nachdenken. Das werden dann zwar mehr als 2 Festplatten, es spart Dir im zweifelsfall aber eine Menge Ärger.

Also für jeden AD User max. ein Postfach - soweit ich weiß. Für Dein Problem eignen sich Öffentliche Ordner ganz gut.

Was für Rechte (Freigabe und Sicherheit) sind bei Euch auf dem Basisverzeichnis (also daten) gesetzt?

das ist natürlich auch eine Lösung. :D

Meiner Meinung nach fehlt in verz.cmd eine was. echo J | cacls \\server\daten\home\%1 /C /E /R Benutzer echo J | cacls \\server\daten\profile\%1 /C /E /R Benutzer Habe es mal gestestet und festgestellt, dass jeder Benutzer Zugriff hat, wenn das nicht eingetragen ist. Oder ist bei meiner W2k3 Testinstallation was schief??

Heißt ein Verzeichnis wird automatisch von Windows angelegt? Bin momentan nähmlich am experiementieren mit Scripten, um User automatisch anzulegen und Verzeichnisse mit richtigen Rechten zu generieren. Das könnte ich mir dann sparen.

Alternative wäre noch popcon (http://www.popcon.de). Das ist noch ein bisschen günstiger und funktioniert ganz ordentlich. Die GUI ist nicht so schön, aber es läuft sehr zuverlässig. Anleitung dazu gibts natürlich auch. Sie ist bestimmt auch auf andere Produkte übertragbar. (auf popcon.de unter support)

Exchange verwaltet die Adressliste im AD. Ein Import ist über die MMC als CSV möglich. Eine Idee bringt vielleicht der folgende Link. Man findet einiges dazu in den Google Groups. http://groups.google.de/groups?q=exchange+kontakte+importieren&start=10&hl=de&lr=&ie=UTF-8&oe=UTF-8&selm=%23dAzI3rnCHA.2440%40TK2MSFTNGP10&rnum=11

Hallo, Ich habe ein Problem, dass sich per Hotfix (Q817809) begeben lassen soll. Microsoft hat mit entsprechendes Hotfix auch per Mail geschickt, leider ist es nur in englischer Sprache verfügbar. Ich habe aber die deutsche Exchange-Version. Nun steht in der Mail auch folgendes: "... Verwenden Sie nur die entsprechende Sprachversion von Service Packs und Hotfixes gemäß dem eingesetzten Produkt. .." Hat jemand Erfahrung, ob man trotzdem eine Installation vornehmen kann? Mir ist das nicht ganz geheuer. Danke. Gruß, Phrator

MTU hat zwar eher was mit der Übertragungsgeschwindigkeit zu tun als mit dem Ping, aber ein Versuch wäre es wert. Google nach MTU und DSL. Vielleicht hilft es ja.

ähnliches wäre gut für benutzergruppen, also in der Art server\groups\gruppenname . Kennt jemand da Tools? Ich kann mir nicht vorstellen, dass ich der Einzige mit diesem Problem bin.

Hallo, bisher hatten wir auf einem NT4 Server für jeden Benutzer eine Freigabe (\\server\username). Das ergab dann eine lange, unübersichtliche Liste. Ich fände es deshalb sinnvoll eine Freigabe \\server\user\username anzulegen. Dh. auf dem Server ein Verzeihnis 'user', dass alle Benutzerverzeichnisse enthält und freigegeben ist. Geht das generell? Ich frage mich speziell, wie man die Rechtevergabe macht. Freigabe von 'user' für alle (Jeder) und dann die Benutzerverzeichnisse über Sicherheit nur für den User und evtl den Admin? Kann einem Windows die Arbeit abnehmen, indem es dieses Verzeichnis automatisch beim Anlegen eines neuen Benutzers erzeugt? Nach dem Schema user\username und den richtigen Rechten? Wie handhabt ihr das? Danke. Gruß, Phrator