Hallo Jan
Besten Dank für deine prompte Antwort. Hab gleich ein Script dazu geschrieben. Schaut ihn Euch an für verbesserungsvorschläge währe ich Euch Dankbar.
Beschreibung:
‘Dieses Script durchsucht den angegebenen Ordner auf Dateien,
‘deren Dateinamenserweiterung “.dmp” lautet.
‘Deklaration der Konstanten/Variablen
‘Pfad des zu prüfenden Ordners
const path = “C:Documents and SettingsAll UsersApplication Dataxxxxxxxx”
‘Prüfkriterium Dateiendung
const extension = “.dmp”
‘ Deklarierung der Variable für FilesystemObjekte und für Property Bag
dim fso, file, folder, oAPI, oBag, fileExist
‘ Es wird vom Status ausgegangen, dass keine dmp Dateien existieren
fileExist= 0
‘Objekt des Dateisystems laden
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder (path)
‘Objeckt der property Bag laden
Set oAPI = CreateObject(“MOM.ScriptAPI”)
Set oBag = oAPI.CreatePropertyBag()
‘Prüfung aller im Prüfordner vorhandenen Dateien auf Kriterium
for each file in folder.files
if right(file.name , 4) = extension then
fileExist= 1
end if
next
‘Rüggabe der Parameter
Call oBag.AddValue(“DumpfileExist”,fileExist)
Call oAPI.Return(oBag)
Unhealth Expression
Paramenter name:Property[@Name=’DumpfileExist’]
Operator: Equal to
Value: 1
Health Expression
Paramenter name:Property[@Name=’DumpfileExis’]
Operator: Equal to
Value: 0
