'==========================================================================
'
'
' NAME: <CimSettingClass.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 10/28/2003
'
' COMMENT: <The following concepts are demonstrated>
'1. use of IIS WMI provider
'2. enumerating all the instances of objects on server that belong To
'3. CIM_Setting class. 
'==========================================================================

Option Explicit 
On Error Resume Next
Dim strComputer
Dim wmiNS
Dim wmiQuery
Dim objWMIService
Dim colItems
Dim objItem

strComputer = "."
wmiNS = "/root/MicrosoftIISv2"
wmiQuery = "select * from CIM_Setting"
Set objWMIService = GetObject("winmgmts://" _
	 & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
    WScript.Echo ": " & objItem.name
Next