debug.print "totalwidth: " & objitem.totalwidth
        debug.print "typedetail: " & objitem.typedetail
        debug.print "version: " & objitem.version
   next
end sub

操作系统信息

private sub command1_click()
    dim wmiobjset as swbemobjectset
    dim obj as swbemobject
    dim msg as string
    dim dtb as string
    dim d as string
    dim t as string
    dim bias as long
    on local error resume next
    set wmiobjset = getobject("winmgmts:{impersonationlevel=impersonate}").instancesof("win32_operatingsystem")
    for each obj in wmiobjset
        msgbox "你当前使用的系统是 " & obj.caption
    next
end sub

说明:

大家可能会发现一个规律,实际上wmi对信息的提取都是使用了win32_类库名这样的规律,下列表格就是微软的操作系统各种硬件类的描述

其它wmi管理的类的信息在

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/accessing_hardware_and_software_through_wmi.asp

可以找到,其中也还有部分示例代码

简单win_32类表

win32 classes

microsoft® windows® classes give you the means to manipulate a variety of objects. the following table identifies the categories of windows classes.

硬件类

computer system hardware classes

he cooling devices subcategory groups classes that represent instrumentable fans, temperature probes, and refrigeration devices.

input device classes

the input devices subcategory groups classes that represent keyboards and pointing devices.

mass storage classes

classes in the mass storage subcategory represent storage devices such as hard disk drives, cd-rom drives, and tape drives.