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

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