WMI Query

Tue, 08 Jul 2008 14:11:59 -0700 

Looking for help with WMI query for an application (TSM). 

On Error Resume Next
strComputer = "Server1
               Server2
               Server3" 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_ProgramGroup",,48)
For Each objItem in colItems
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "GroupName: " & objItem.GroupName
    Wscript.Echo "Name: TSM & objItem.Name
    Wscript.Echo "SettingID: " & objItem.SettingID
    Wscript.Echo "UserName: " & objItem.UserName
Next

Can anyone help?

Thanks,

Mike

--------------------------------------------------------------------
mail2web LIVE – Free email based on Microsoft® Exchange technology -
http://link.mail2web.com/LIVE



~ Upgrade to Next Generation Antispam/Antivirus with Ninja!    ~
~ <http://www.sunbelt-software.com/SunbeltMessagingNinja.cfm>  ~

Reply via email to