How to Query SMS Site Status for a Specified Interval

  • Article

Published : April 11, 2005

The site summary information is held in instances of the SMS Provider class SMS_SiteDetailSummarizer. An instance of the class exists for a variety of time intervals. For a given time interval, the SMS_SiteDetailSummarizer instance contains such information as the number of error, warning, and information messages generated during the interval. It also provides the version of SMS installed and the percentage of free space available to the SMS database and the database transaction log file.

In the same way that a component state can be queried for a time interval, a Tally Interval is used to define the summary time for the site. The following example summarizes from the first day of the current month.

See the SMS 2003 SDK for a complete list of summary intervals.

On This Page

Example
Compiling the Code
See Also

Example

On Error Resume Next
 
Dim objSWbemServices
Dim ProviderLoc
Dim Location
Dim QueryID
Dim objQuery
Dim colQuerySiteDetailsResults
Dim objResult
 
Set ProviderLoc = GetObject("winmgmts:{impersonationLevel=impersonate}!root/sms:SMS_ProviderLocation")
 
If err.number<>0 Then
wscript.echo "Couldn't get SMS Provider"
wscript.quit
End If
 
 
For Each Location In ProviderLoc.Instances_
     If Location.ProviderForLocalSite = True Then
Set objSWbemServices = GetObject("winmgmts:" & Location.NamespacePath)
Exit For
   End If
Next
 
'Query site details since the 1st of the month.
Set colQuerySiteDetailsResults=objSWbemServices.ExecQuery("SELECT * FROM SMS_SiteDetailSummarizer WHERE TallyInterval='000A470000284400'" ) 
 
If err.number<>0 Then
    wscript.echo "Couldn't get site details"
    wscript.quit
End If
 
'Run query.
wscript.echo "Site details"
wscript.echo "------------"
 
For Each objResult In colQuerySiteDetailsResults
    wscript.echo "Name      " + objResult.SiteName + " Sitecode " + objResult.SiteCode
    wscript.echo "Version    " +cstr(objResult.Version)
    Select Case objResult.Status
            Case 0 wscript.echo "Status OK"
            Case 1 wscript.echo "Status Warning"
            Case 2 wscript.echo "Status Critical"
        End Select
 
    wscript.echo "Errors    " +cstr(objResult.Errors)
    wscript.echo "Warnings  " + cstr (objResult.Warnings)
    wscript.echo "Database free " + cstr(objResult.DatabaseFree) + "%"
    wscript.echo "Log file free" + cstr(objResult.TransFree) + "%"
    wscript.echo 
Next
If colQuerySiteDetailsResults.Count=0 Then
    wscript.echo "      no query results"
End If
 
Set objSWbemServices=Nothing
Set ProviderLoc=Nothing
Set Location=Nothing
Set objQuery=Nothing
Set colQuerySiteDetailsResults=Nothing

Compiling the Code

  • Requires Windows 2000 Server SP2 or later.

  • You must run this sample on an SMS 2003 site server.

See Also

Tasks

How to Query SMS Component Status for a Specified Interval
How to Read SMS Objects
How to Summarize an SMS Site's Health