whatzzup

das sieht recht gut aus danke für die Links

hey danke für die Hilfe ich bin mir nur nicht sicher wie ich das mit homeDirectory in mein Script einfüge ich habe zwar jetzt etwas probiert nur wenn ich nach Erstellung unter dem Reiter Profile gucke sehe ich keine Einstellungen. Ich bin jetzt auch nicht so weit im Scripten darum bitte ich um Nachsicht bei dummen Fehlern. msg = "Kurzbeschreibung:" & vbCr & "Dieses Skript legt automatisiert neue Konten an und liest die dafür nötigen Angaben aus einer userliste ." & vbCr & vbCr & "Skript jetzt ausführen?" antwort = MsgBox(msg, vbYesNo + vbQuestion) if antwort = vbNo then MsgBox "Abbruch", vbExclamation WScript.Quit end if protokoll = "c:\protokoll.txt" Set net = CreateObject("WScript.Network") ComputerName = InputBox("Bitte geben Sie den Computernamen ein!",,net.ComputerName) On Error Resume Next Set computer = GetObject("WinNT://" & ComputerName & ",computer") If Err.number = 0 Then MsgBox "Verbindung hergestellt." Else MsgBox "Keine Verbindung zu " & ComputerName WScript.Quit End If On Error Goto 0 dateiname = "C:\useranlegen.txt" Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FileExists(dateiname) Then MsgBox "Die Datei existiert am angegebenen Ort nicht!" WScript.Quit End If Set infos = fs.OpenTextFile(dateiname) Set output = fs.CreateTextFile(protokoll, True) ' Datei zeilenweise bis zum Ende (atEndOfStream) lesen: Do Until infos.AtEndOfStream ' eine Zeile einlesen zeile = infos.ReadLine ' Informationen durch Semikola splitten details = Split(zeile, ";") ' Konto anlegen Set kontoneu = computer.Create("User", Trim(details(0))) kontoneu.SetPassword Trim(details(1)) kontoneu.Description = Trim(details(2)) On Error Resume Next kontoneu.SetInfo If Err.number = 0 Then WriteLog details(0) & " angelegt." AddToGroup Trim(details(3)), kontoneu.ADsPath Else WriteLog details(0) & " konnte nicht angelegt werden!" End If Err.Clear On Error Goto 0 strOU = Trim(details(4)) MoveToOU strOU, Trim(details(0)) Set RootDSE = GetObject("LDAP://RootDSE") path = "LDAP://CN=" & Trim(details(0)) & ",OU=" & Trim(details(4)) & ",OU=Schule," & RootDSE.Get("defaultNamingContext") Set objContainer = GetObject(path) objContainer.Put "homeDirectory","\\WIN-OVIBAVCC9K3\User\" & Trim(details(0)) objContainer.Put "homedrive","X:" Loop

Hallo Zusammen, ich versuche zu meinem Script das mir Active Directory Nutzer anlegt, basierent auf einer Textdatei, zusätzlich Unterfunktionen hinzuzufügen die mir 1. einen Ordner mit dem Namen des Nutzers erstellt (funktioniert) und 2. diesen für den Nutzer Direkt freigibt (funktioniert nicht). Ich bekomme den Fehler : Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'Freigabe.path' hier ist die Unterfunktion: Sub Freigabe(Benutzer,OU) Const Server = "Servername" Set Netzwerk = GetObject("WinNT://" & Server & ",Computer") Set Freigabe = Netzwerk.Create("Fileshare",Benutzer) Freigabe.path = "C:\User" & Benutzer Freigabe.Setinfo End Sub Ich hoffe euch fällt was auf und danke schon mal für jede Hilfe Gruß

ich hab das Problem schon gelöst. unzwar muss es so aussehen: objUser.SetPassword Trim(details(1)) ich hatte aber: objUser.SetPassword = Trim(details(1)) also war das "=" zuviel :D danke trotzdem

Hallo Zusammen, ich versuche mich gerade an einem Scripts das es vereinfacht die Passwörter von Benutzern zu ändern bekomme aber immer die Fehlermeldung : Fehler: Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'SetPassword Ich weiß nicht woran das liegt. hier noch mein Script: Dim objText,objUser Set objText = CreateObject("Scripting.FileSystemObject") Set infos = objText.OpenTextFile("C:\Scripts\Passwortliste.txt") Do Until infos.AtEndOfStream zeile = infos.ReadLine details = Split(zeile, ";") Set objUser = GetObject("LDAP://cn=" & Trim(details(0)) & ",ou=Klassen,ou=Schule,dc=schulnetz,dc=local") Wscript.Echo "Benutzer: " &objUser.fullname & chr(13) & "Passwort: " & Trim(details(1)) objUser.SetPassword = Trim(details(1)) objUser.SetInfo Loop infos.Close Ich danke schon mal im Voraus für jede Hilfe Gruß

Hey, jetzt läuft alles wie es sein sollen. Die Konten wurde nämlich schon angelegt bei einem früheren Versuch wurde nur nicht im schon geöffneten Server-Manager nicht angezeigt. trotzdem vielen dank für die Hilfe

nein keins von beiden hat ein leerzeichen ah das Problem mit dem Finden der Datei habe ich jetzt. Ich hab nich an die Dateiendung gedacht nun habe ich das Problem das die Konten nicht angelegt werden können

hi, hab ich gemacht nur das Problem bleibt bestehen

Hallo Zusammen, ich bin seit kurzem auf der Suche nach einem Script das es ermöglicht User via Textdokument oder Exceltabelle anzulegen. Ich bin auf meiner Suche auf das Script von Marka gestoßen und finde es auch sehr gut abgesehen davon, dass es meine Textdatei zum einlesen nicht findet. ' © 2005 by Markus Kafurke, www.marka-it.net msg = "Kurzbeschreibung:" & vbCr & "Dieses Skript legt automatisiert neue Konten an und liest die dafür nötigen Angaben aus einer userliste ." & vbCr & vbCr & "Skript jetzt ausführen?" antwort = MsgBox(msg, vbYesNo + vbQuestion) if antwort = vbNo then MsgBox "Abbruch", vbExclamation WScript.Quit end if protokoll = "c:\protokoll.txt" ' Das WScript.Network-Objekt liefert den Namen des Computers, ' der als Vorgabe angeboten wird 'SYS: Windows Script Host Runtime Library Set net = CreateObject("WScript.Network") ComputerName = InputBox("Bitte geben Sie den Computernamen ein!",,net.ComputerName) On Error Resume Next Set computer = GetObject("WinNT://" & ComputerName & ",computer") If Err.number = 0 Then MsgBox "Verbindung hergestellt." Else MsgBox "Keine Verbindung zu " & ComputerName WScript.Quit End If On Error Goto 0 dateiname = InputBox("Wo liegen die Kontoinformationen?",," ") ' Datei öffnen 'SYS: Microsoft ® Script Runtime Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FileExists(dateiname) Then MsgBox "Die Datei existiert am angegebenen Ort nicht!" WScript.Quit End If Set infos = fs.OpenTextFile(dateiname) ' Protokolldatei öffnen Set output = fs.CreateTextFile(protokoll, True) ' Datei zeilenweise bis zum Ende (atEndOfStream) lesen: Do Until infos.AtEndOfStream ' eine Zeile einlesen zeile = infos.ReadLine ' Informationen durch Semikola splitten details = Split(zeile, ";") ' Konto anlegen Set kontoneu = computer.Create("User", Trim(details(0))) kontoneu.SetPassword Trim(details(1)) kontoneu.Description = Trim(details(2)) On Error Resume Next kontoneu.SetInfo If Err.number = 0 Then WriteLog details(0) & " angelegt." AddToGroup Trim(details(3)), kontoneu.ADsPath Else WriteLog details(0) & " konnte nicht angelegt werden!" End If Err.Clear On Error Goto 0 Loop ' Dateien schließen infos.Close output.Close ' Protokoll anzeigen: 'SYS: Microsoft ® Script Runtime Set wshshell = CreateObject("WScript.Shell") wshshell.Run """" & protokoll & """" Sub AddToGroup(gruppenname, kontoname) On Error Resume Next Set gruppe = GetObject("WinNT://" & ComputerName & "/" & gruppenname & ",group") gruppe.Add kontoname gruppe.SetInfo If Err.number = 0 Then WriteLog "Konto ist Mitglied in Gruppe " & gruppenname Else WriteLog "Konto konnte nicht zum Mitglied in Gruppe " & gruppenname & " gemacht werden." End If Err.Clear End Sub Sub WriteLog(text) ' eine Zeile ins Protokoll schreiben output.WriteLine text End Sub Ich bin mir recht sicher das die Datei im von mir angegebenen Pfad ist nur bekomme ich immer das die Datei am angegebenen Ort nicht existiert. Ich danke schon mal im Vorraus für die Hilfe Gruß