script that counts queries, reports. packages in SMS

myITforum.com Community Forum

Home Forums Blogs Live Support chat Search Articles Wiki FAQ Email Lists Register Login My Profile Inbox Address Book My Subscription My Forums

Photo Gallery Member List Search Calendars FAQ Ticket List Log Out

All Forums RSS Feed Subscription:

script that counts queries, reports. packages in SMS

View related threads: (in this forum | in all forums)

Logged in as: Guest

Printable Version

All Forums >> [Management Products] >> Microsoft Systems Management Server >> SMS 2003 >> script that counts queries, reports. packages in SMS

Page: [1]

Message

<< Older Topic Newer Topic >>

script that counts queries, reports. packages in SMS - 11/6/2008 10:01:53 AM

avolkov173

Posts: 5
Score: 0
Joined: 10/7/2008
Status: offline

Hi ,
I have script that counts number of Queries, Reports, Packages, Advertisement, Software Metering Rules, Collections and folders in SMS.
Basicly scrip should count above items and display on the screen.
The question is where should I put argument for the Site server? Because the way it is, script goes through without any errors, but no output data being produced.
Please find script below,
Thanks in advance.

Option Explicit
On Error Resume Next

Dim objswbemservices

Sub ConnectSms(Siteserver)
Dim objSwbemLocator, objSwbemServices, ProviderLoc, Location
set objSwbemLocator = CreateObject("WbemScripting.SWbemLocator")
set objSWbemServices= objSWbemLocator.ConnectServer(siteserver, "root\sms")
Set ProviderLoc = objSWbemServices.InstancesOf("SMS_ProviderLocation")

For Each Location In ProviderLoc
       If Location.ProviderForLocalSite = True Then
           Set objSWbemServices = objSWbemLocator.ConnectServer(Location.Machine, "root\sms\site_" + Location.SiteCode)
       End If
Next

End Sub

Connectsms(".")
If Err.Number Then
WScript.Echo Err.Number & ":" & Err.Description
WScript.Quit(Err.Number)
Else
DisplaynrofObjects()
End If

'Displays the Nr of objects for each relevant sms object type
Sub DisplaynrofObjects()
Dim object

For each object in objswbemservices.execquery("select count(*) from sms_query")
   Wscript.echo "Number of queries:" & object.count
Next

For each object in objswbemservices.execquery("select count(*) from sms_report")
   Wscript.echo "Number of reports:" & object.count
Next

For each object in objswbemservices.execquery("select count(*) from sms_package")
   Wscript.echo "Number of packages:" & object.count
Next

For each object in objswbemservices.execquery("select count(*) from sms_collection")
   Wscript.echo "Number of collections:" & object.count
Next

For each object in objswbemservices.execquery("select count(*) from sms_advertisement")
   Wscript.echo "Number of advertisements:" & object.count
Next

For each object in objswbemservices.execquery("select count(*) from sms_objectcontainernode")
   Wscript.echo "Number of folders:" & object.count
Next

For each object in objswbemservices.execquery("select count(*) from sms_meteredproductrule")
   Wscript.echo "Number of software metering rules:" & object.count
Next
End Sub