Option Explicit On Error Resume Next dim ObjShell set ObjShell=CreateObject("WScript.Shell") ObjShell.Run "CCleaner.exe /AUTO" MsgBox "CCleaner has been auto running" 'GFI MAX OutPut If err.number<>0 then WScript.Echo ("Script Check Failed") Wscript.Quit 1001 Else WScript.Echo ("Script Check Passed") Wscript.Quit 0 End If