thumb

Tach auch, das ResKit gibt schon einiges her, z.B. AddUsers, mit dem man per Batch User und Gruppen anlegen kann. Was mit dem ResKit nicht geht, geht mit VBS. Damit kann man sich sogar Inventory Tools selbst bauen, die die Daten in DB ablegen. Also, REAL MAN ( and WOMAN) DON´T KLICK ! Gruß THUMB

Hi Netranger, entweder mit FOR von der Commandline ( resp. Batch ); mit dem Nachteil, dass alles in einer Zeile stehen muss ! Oder, so mach ich´s für alle möglichen automatisierten Doings, mit VBS : Als Beispiel soll ein Script dienen, mit dem ich mal alle in einem Texfile definfierten ( Namen stehen einfach untereinander ) Hostnamen ( Computerkonten ) aus der Dömäne löschte. '######################################################################################################## on error resume next Dim strComp Dim strDomain Dim objDomain Dim objArgs 'Angabe der Domäne, aus der die Computerkonten gelöscht werden sollen strDomain = "<DomainName>" '##################--Wirklich Ausführen ????--############################################################ msg = "Kurzbeschreibung:" & vbCr & vbCr &"Dieses Skript löscht alle, im Textfile angegebenen Computerkonten in der Domäne " & strDomain & ". " & vbCr & vbCr & "Das Skript jetzt ausführen?" antwort = MsgBox(msg, vbYesNo + vbQuestion) if antwort = vbNo then MsgBox "Abbruch", vbExclamation WScript.Quit end if '########################--INPUT--Textfile wird ausgelesen--############################################# Set objArgs = WScript.Arguments If objArgs.Count > 0 Then file = objArgs(0) Else file = InputBox("Welche Datei soll ausgelesen werden ?" ,"Datei angeben") End If Set WshShell = CreateObject ("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(file) Then Set txtStream = fso.OpenTextFile(file) Do While Not (txtStream.atEndOfStream) txt = txtStream.Readline details = Split(txt, ";") strComp = Trim (details(0)) '#######--LOOP--Für alle, im File angebenen Computer wird folgendes ausgeführt--####################### 'Löschen des Computerkontos Set objDomain = GetObject("WinNT://" & strDomain) Set objNTComp = GetObject("WinNT://" & strDomain & "/" & strComp & "$") Call objDomain.Delete("Computer", strComp) '######################################### Loop Else 'Datei nicht vorhanden MsgBox "Die Datei" & " " & file & " " & "konnte nicht gefunden werden !", vbExclamation, "Abbruch" End If MsgBox "Script beendet" Gruß THUMB

Hi jkmaxXx, start /min C:\WINDOWS\system32\taskmgr.exe funktioniert; jedoch nur von der CommandLine, nicht von START>AUSFÜHREN ! Gruß THUMB