myITforum.com Community Forum 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 >> [Scripting Technologies] >> VB Script >> script that counts queries, reports. packages in SMS Page: [1]
Login
Message << Older Topic   Newer Topic >>
script that counts queries, reports. packages in SMS - 11/6/2008 9:58:58 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

Post #: 1
RE: script that counts queries, reports. packages in SMS - 11/6/2008 11:15:09 AM   
rbennett806


Posts: 885
Score: 18
Joined: 6/14/2006
Status: offline 		Do you get errors if you comment out, or remove the On Error Resume Next line?

Here's a link with a VBScript that creates a collection, so it should show you how you can attach to the SCCM/SMS environment: http://www.myitforum.com/articles/11/view.asp?id=11653

(in reply to avolkov173)
Post #: 2
RE: script that counts queries, reports. packages in SMS - 11/7/2008 2:33:46 AM   
avolkov173

 

Posts: 5
Score: 0
Joined: 10/7/2008
Status: offline 		Thanks for your help rbennett806
objswbemservices veriable was the snag, it's defined twice globally, and localy(inside Sub ConnectSms), so when  Sub DisplaynrofObjects runs the variable is not defined.
When I deleted  Dim objSwbemServices from  Sub ConnectSms(Siteserver) it's solved the problem.

Have a nice day.

(in reply to rbennett806)
Post #: 3
RE: script that counts queries, reports. packages in SMS - 11/12/2008 3:31:52 PM   
rjackson582

 

Posts: 46
Score: 1
Joined: 4/2/2002
Status: offline 		Very cool -- I had just downloaded that script myself and ran into the same issue.  Thanks!

(in reply to avolkov173)
Post #: 4
Page:   [1]
All Forums >> [Scripting Technologies] >> VB Script >> script that counts queries, reports. packages in SMS Page: [1]
Jump to:





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts



  
Forum Software © ASPPlayground.NET Advanced Edition 2.4.5 ANSI

0.453