'Created: 11/11/08
'Author: Andrew Rushmer
 
Const WARNING_THRESHOLD = 10
Const FileLocation = "c:\Program Files\PDFCreator\Temp\PDFCreatorSpool"
Context.LogMessage "Checking Address=" & Context.GetProperty("Address")
Context.SetResult 0, "No error"
 
'Get server credentials and server address to use in WMI authentication
sWinUser = Context.GetProperty("CredWindows:DomainAndUserid")
sWinPass = Context.GetProperty("CredWindows:Password")
Address = Context.GetProperty("Address")
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
 
On Error Resume Next  
Set objWMIService = objSWbemLocator.ConnectServer(Address,"root\cimv2",sWinUser, sWinPass)
 
If Err.Number <> 0 Then  
 Context.LogMessage("The Account must be granted local admin rights on tartget " & sComputer & " failed. Err:" & Err.Description)  
 Err.Clear
End if 
 
Set colFileList = objWMIService.ExecQuery _
        ("ASSOCIATORS OF {Win32_Directory.Name='" & FileLocation & "'} Where ResultClass = CIM_DataFile")
            Context.LogMessage "File count is: " & colFileList.Count & " warning threshold is: " & WARNING_THRESHOLD
                if colFileList.Count > WARNING_THRESHOLD then
                                Context.SetResult 1, "Queue is currently to large!"
                else
                                Context.SetResult 0, "No error"
                end if