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