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