Eh, you probably mean something like this:
On Error Resume Next
strComputers = Array ("Server1", "Server2", "Server3")
For i = LBound (strComputers) To UBound(strComputers)
strcomputer = strcomputers[i]
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
set colItems = Nothing
set objWMIService = Nothing
Next
Regards,
Michael B. Smith
MCITP:EM/MCSE/Exchange MVP
http://TheEssentialExchange.com
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 08, 2008 5:12 PM
To: NT System Admin Issues
Subject: WMI Query
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 MicrosoftR Exchange technology -
http://link.mail2web.com/LIVE
~ Upgrade to Next Generation Antispam/Antivirus with Ninja! ~
~ <http://www.sunbelt-software.com/SunbeltMessagingNinja.cfm> ~
~ Upgrade to Next Generation Antispam/Antivirus with Ninja! ~
~ <http://www.sunbelt-software.com/SunbeltMessagingNinja.cfm> ~
