OK, I do it but it still don't work. hire is my script
Dim fs, f, foldername,fd set oAPI=CreateObject("MOM.ScriptAPI") set oBag=oAPI.CreatePropertyBag() Set fs = CreateObject("Scripting.FileSystemObject") foldername="c:\" status="OK" Set fd = fs.Getfolder(foldername) for each f in fd.files if instr(f.name,".encrypted") then status="NOT OK" exit for end if next Set fs = CreateObject("Scripting.FileSystemObject") foldername="d:\" status="OK" Set fd = fs.Getfolder(foldername) for each f in fd.files if instr(f.name,".encrypted") then status="NOT OK" exit for end if next Set fs = CreateObject("Scripting.FileSystemObject") foldername="z:\" status="OK" Set fd = fs.Getfolder(foldername) for each f in fd.files if instr(f.name,".encrypted") then status="NOT OK" exit for end if next Call oBag.AddValue("Status",status) Call oAPI.Return(oBag)
I have 3 leters of disk on my server.
and it runs every 15 minutes. why it dont work?? where I cant find where is the problem?