VB中使用WMI获取系统硬件和软件有关信息的操作方法

Private Sub wmiSoundDeviceInfo() Dim wmiObjSet As SWbemObjectSetDim obj As SWbemObject Set wmiObjSet = GetObject(winmgmts:{impersonationLevel=impersonate}). _InstancesOf(Win32_SoundDevice)On Local Error Resume Next For Each obj In wmiObjSetMsgBox obj.ProductNameNextEnd Sub

Private Sub wmiVideoControllerInfo() Dim wmiObjSet As SWbemObjectSetDim obj As SWbemObject Set wmiObjSet = GetObject(winmgmts:{impersonationLevel=impersonate}). _InstancesOf(Win32_VideoController) On Local Error Resume Next For Each obj In wmiObjSetMsgBox obj.VideoProcessorNextEnd Sub

Private Sub wmiPhysicalMemoryInfo() Dim wmiObjSet As SWbemObjectSetDim obj As SWbemObject Set wmiObjSet = GetObject(winmgmts:{impersonationLevel=impersonate}). _InstancesOf(Win32_PhysicalMemory) On Local Error Resume Next For Each objItem In wmiObjSetDebug.Print BankLabel: ＆ objItem.BankLabelDebug.Print Capacity: ＆ objItem.CapacityDebug.Print Caption: ＆ objItem.CaptionDebug.Print CreationClassName: ＆ objItem.CreationClassNameDebug.Print DataWidth: ＆ objItem.DataWidthDebug.Print Description: ＆ objItem.DescriptionDebug.Print DeviceLocator: ＆ objItem.DeviceLocatorDebug.Print FormFactor: ＆ objItem.FormFactorDebug.Print HotSwappable: ＆ objItem.HotSwappableDebug.Print InstallDate: ＆ objItem.InstallDateDebug.Print InterleaveDataDepth: ＆ objItem.InterleaveDataDepthDebug.Print InterleavePosition: ＆ objItem.InterleavePositionDebug.Print Manufacturer: ＆ objItem.ManufacturerDebug.Print MemoryType: ＆ objItem.MemoryTypeDebug.Print Model: ＆ objItem.ModelDebug.Print Name: ＆ objItem.nameDebug.Print OtherIdentifyingInfo: ＆ objItem.OtherIdentifyingInfoDebug.Print PartNumber: ＆ objItem.PartNumberDebug.Print PositionInRow: ＆ objItem.PositionInRowDebug.Print PoweredOn: ＆ objItem.PoweredOnDebug.Print Removable: ＆ objItem.RemovableDebug.Print Replaceable: ＆ objItem.ReplaceableDebug.Print SerialNumber: ＆ objItem.SerialNumberDebug.Print SKU: ＆ objItem.SKUDebug.Print Speed: ＆ objItem.SpeedDebug.Print Status: ＆ objItem.StatusDebug.Print Tag: ＆ objItem.TagDebug.Print TotalWidth: ＆ objItem.TotalWidthDebug.Print TypeDetail: ＆ objItem.TypeDetailDebug.Print Version: ＆ objItem.VersionNextEnd Sub

Private Sub Command1_Click()Dim wmiObjSet As SWbemObjectSetDim obj As SWbemObjectDim msg As StringDim dtb As StringDim d As StringDim t As StringDim bias As LongOn Local Error Resume NextSet wmiObjSet = GetObject(winmgmts:{impersonationLevel=impersonate}).InstancesOf(Win32_OperatingSystem)For Each obj In wmiObjSetMsgBox 你当前使用的系统是 ＆ obj.CaptionNextEnd Sub