latimer

Fettes Merci an meinen Helden Thorgood Hat natürlich sofort funktioniert. Ich habe aber noch etwas gegoogelt und probiert und was gefunden. Mit diesem Script kann mann die Terminaldienstprofilpfade, Terminaldienstebasisverzeichnisse und das Laufwerk setzen für alle user die sich in dem angegebenen Container bzw. OU befinden. Leider wird der Username aber noch nicht dahinter gesetzt. Set colUsers = GetObject("LDAP://OU=Contractors,OU=Non Managed Accounts,OU=Accounts,DC=corp,DC=weyer,DC=pri") For Each objUser In colUsers '*************************************** '* Terminal Services Profile tab '*************************************** objUser.AllowLogon = 1 ' Disabled = 0, Enabled = 1 objUser.TerminalServicesHomeDirectory = "\\Server\Share\User" objUser.TerminalServicesHomeDrive = "t:" objUser.TerminalServicesProfilePath = "\\Server\Profiles\User" objUser.SetInfo Next Ich arbeite aber noch dran

Hallo ich hoffe mein Beitrag wird von Thorgood gelesen. Ich habe dein Script bei uns eingesetzt und es funzt auch sehr gut. Ich habe aber noch ein paar Probleme. 1. Wir legen die user immer folgendermassen an Username: Mueller, Gerd dieser Eintrag wird von dieser Zeile im Script vorgenommen Set b = ouo.Create("user", "CN=" & Nachname & " " & Vorname ) Wenn ich zwischen die Anführungszeichen in der Mitte jetzt ein Komma setze gibts eine Fehlermeldungen: Es wurde eine ungültigen dn-Syntax angegeben. Die angegebene Zeile ist: b.SetInfo. Ich hab absolut keine Ahnung wo da der Fehler liegt. Zudem sind bei uns auch Terminalserver im Einsatz deshalb wäre der automatische Eintrag der WTS profile und Basisverzeichnisse auch Super. Ich habe auch schon etwas gefunden aber es funzt nicht. Die Parameter sind wohl TerminalServicesProfilePath = TerminalServicesHomeDirectory = TerminalServicesHomeDrive = mit b.put geht da aber nix. Also ich wäre dir (Thorgood) oder auch jedem anderen sehr dankbar wenn er mir weiterhelfen könnte. In diesem Sinne Vielen Dank schon mal vorab.

ABER ich benötige lediglich di Eamiladressen in folgendem Format alias: SMTP:newuser3@office.example.com 1 alias: SMTP:newuser@office.example.com alias: SMTP:Administrator@office.example.com alias: X400:c=us;a= ;p=Example Organiza;o=Exchange;s=Administrator; alias: smtp:postmaster@office.example.com 2 alias: X400:c=us;a= ;p=Example Organiza;o=Exchange;s=Doe;g=Jon; alias: SMTP:testuser@example.com p.s Vielen Dank für die schnelle Antwort :D :D :D :D

Hallo Leute ich möchte die Emailadressen aller User innerhalb einer bestimmten OU in eine Textdatei exportieren. Ich habe auch schon ein Script über Google gefunden. Nur leider funzt das nicht so ganz. 'Global variables Dim Container Dim OutPutFile Dim FileSystem 'Initialize global variables Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject") Set OutPutFile = FileSystem.CreateTextFile("virtual.txt", True) Set Container=GetObject("LDAP://DC=exampleou, DC=jupiter, DC=example, DC=local") 'Enumerate Container EnumerateUsers Container 'Clean up OutPutFile.Close Set FileSystem = Nothing Set Container = Nothing 'Say Finished when your done WScript.Echo "Finished" WScript.Quit(0) 'List all Users Sub EnumerateUsers(Cont) Dim User 'Go through all Users and select them For Each User In Cont Select Case LCase(User.Class) 'If you find Users Case "user" 'Select all proxyAddresses Dim Alias If Not IsEmpty(User.proxyAddresses) Then For Each Alias in User.proxyAddresses OutPutFile.WriteLine "alias: " & Alias 'WScript.Echo Alias Next End If Case "organizationalunit" , "container" EnumerateUsers User End Select Next End Sub Kann mir jemand sagen wo der Fehler liegt.