com+ inventory

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

com+ inventory

Logged in as: Guest

arrSession:exec spGetSession 2,16,26905

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> com+ inventory
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

com+ inventory - 10/13/2005 8:06:31 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

this is a quick script that inventories the com+ objects of the servers you specify.

servers = Array("server1","server2","server3")
 
 On Error Resume next
 Dim appCounter, comCounter
 
 For Each server In servers
     appCounter = 0
     comCounter = 0
     Set catalog = CreateObject("COMAdmin.COMAdminCatalog")
     Set root = catalog.Connect(server)
     'The A has to be capitalized for the getCollection method to work!
     Set applications = catalog.GetCollection("Applications")
     Call applications.Populate 
 
     WScript.Echo "******** " & server & " ********"
     
     For Each app In applications
         appCounter = appCounter + 1
         Set objComponentsColl = applications.GetCollection("Components", App.Key) 
                 objComponentsColl.Populate
             WScript.echo app.name
         For Each objComp in objComponentsColl
             'uncomment for a full listing of app/com objs
             WScript.Echo vbTab &  " |-> " & objComp.name '& " with dll path " & objComp.dll <- couldnt get this to work :|
             comCounter = comCounter + 1
         Next 
 
     Next
     WScript.Echo server & " has " & appCounter & " apps and " & comCounter & " com+ objects."
     WScript.Echo
 Next
 
 'cleanup
 Set catalog = Nothing
 Set root = Nothing
 Set applications = Nothing
 Set obComponentsColl = Nothing

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site