VBS枚举出这个类的所有属性

1 '===========================
2 'Name: DisplayClassProperties.vbs
3 'Author：jevan
4 'Date: 2011-3-1
5
6 'Arguments:
7 '枚举出这个类的所有属性
8 '=============================
9 Option Explicit
10 On Error Resume Next '调试状态请把这行注销
11 Dim strComputer
12 Dim strWMINamespace
13 Dim strWMIquery
14 Dim objWMIService
15 Dim colItems
16 Dim objItem
17 strComputer="."
18 strWMINamespace="\root\CIMV2"
19 strWMIquery=":Win32_BootConfiguration" '":Win32_TimeZone" '注意冒号
20 Set objWMIService=GetObject("winmgmts:\\"&strComputer _
21 & strWMINamespace & strWMIQuery)
22 WScript.Echo "Number of properties of" &strWMIQuery _
23 &" class is " &objWMIService.Properties_.count
24 For Each objItem In objWMIService.Properties_
25 WScript.Echo "Property : "&objItem.name
26 Next