' SIENEMS SCHWEIZ AG
' A. ZEAITER
' DONNERSTAG, DER 08.06.2006
'
'
'
'
'
'
' Das File mit allen Angaben zu den erstellten MP's, wie folgt vorbereiten: 
'
' Ein Text File mit dem Namen/Pfad von allen gesicherten MP's wie folgt erstellen:
' In das Verzeichnis wechseln in dem alle MP's sich befinden und dann, folgedes Befehl ausführen..
'	dir *.* /O /B /S >c:\xxxx\output.txt		(Bsp.)




Set fso = CreateObject("Scripting.FileSystemObject")
Set Logfile = fso.OpenTextFile("c:\temp\output.txt",1)


' ******* MOM_MGMT_SERVER = Produktiever MOM Adminserver ******

Const MOM_MGMT_SERVER = "XXX"

Do until Logfile.atendofstream

oLine = logfile.ReadLine

compname = oLine

DIM strCommand, objShell

Set objShell = Createobject("WScript.Shell")


' *** Hier muss den Pfad angepasst werden.. (D:\Program Files\MOM..)  ***

strCommand = chr(34) & "C:\Program Files\Microsoft Operations Manager 2005\ManagementModuleUtil.exe" & chr(34) & " -I " & MOM_MGMT_SERVER & " " &compname & " -F "

objShell.run strCommand


'wscript.echo (Compname)

	WScript.Sleep(20000)

loop


Wscript.Quit