VB中使用WMI获取系统硬件和软件有关信息

• 
  　　SoHo_Andy（原作）

  简介:

  WMI是英文Windows Management
  Instrumentation的简写，它的功能主要是：访问本地主机的一些信息和服务，可以管理远程计算机（当然你必须要拥有足够的权限），比如：重启，关机，关闭进程，创建进程等。

  实例如下:

  '用WMI,先工程-引用 Microsoft WMI Scripting V1.1 Library

  获取显卡/声卡/内存/操作系统的信息

  声卡信息

  Private Sub wmiSoundDeviceInfo()

  Dim wmiObjSet As SWbemObjectSet
  Dim obj As SWbemObject
  
  Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
  InstancesOf("Win32_SoundDevice")
  On Local Error Resume Next
  
  For Each obj In wmiObjSet
  MsgBox obj.ProdUCtName
  Next
  End Sub

  显卡信息

  Private Sub wmiVideoControllerInfo()

  Dim wmiObjSet As SWbemObjectSet
  Dim obj As SWbemObject
  
  Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
  InstancesOf("Win32_VideoController")
  
  On Local Error Resume Next
  
  For Each obj In wmiObjSet
  MsgBox obj.VideoProcessor
  Next
  End Sub

  内存信息

  Private Sub wmiPhysicalMemoryInfo()

  Dim wmiObjSet As SWbemObjectSet
  Dim obj As SWbemObject
  
  Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
  InstancesOf("Win32_PhysicalMemory")
  
  On Local Error Resume Next
  
  For Each objItem In wmiObjSet
  Debug.Print "BankLabel: " & objItem.BankLabel
  Debug.Print "Capacity: " & objItem.Capacity
  Debug.Print "Caption: " & objItem.Caption
  Debug.Print "CreationClassName: " & objItem.CreationClassName
  Debug.Print "DataWidth: " & objItem.DataWidth
  Debug.Print "Description: " & objItem.Description
  Debug.Print "DeviceLocator: " & objItem.DeviceLocator
  Debug.Print "FormFactor: " & objItem.FormFactor
  Debug.Print "HotSwappable: " & objItem.HotSwappable
  Debug.Print "InstallDate: " & objItem.InstallDate
  Debug.Print "InterleaveDataDepth: " & objItem.InterleaveDataDepth
  Debug.Print "InterleavePosition: " & objItem.InterleavePosition
  Debug.Print "Manufacturer: " & objItem.Manufacturer
  Debug.Print "MemoryType: " & objItem.MemoryType
  Debug.Print "Model: " & objItem.Model
  Debug.Print "Name: " & objItem.name
  Debug.Print "OtherIdentifyingInfo: " & objItem.OtherIdentifyingInfo
  Debug.Print "PartNumber: " & objItem.PartNumber
  Debug.Print "PositionInRow: " & objItem.PositionInRow
  Debug.Print "PoweredOn: " & objItem.PoweredOn
  Debug.Print "Removable: " & objItem.Removable
  Debug.Print "Replaceable: " & objItem.Replaceable
  Debug.Print "SerialNumber: " & objItem.SerialNumber
  Debug.Print "SKU: " & objItem.SKU
  Debug.Print "Speed: " & objItem.Speed
  Debug.Print "Status: " & objItem.Status
  Debug.Print "Tag: " & objItem.Tag
  Debug.Print "TotalWidth: " & objItem.TotalWidth
  Debug.Print "TypeDetail: " & objItem.TypeDetail
  Debug.Print "Version: " & objItem.Version
  Next
  End Sub

  
  

• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB中使用WMI获取系统硬件和软件有关信息 相关文章：
• ·VB中使用WMI获取系统硬件和软件有关信息
• VB中使用WMI获取系统硬件和软件有关信息 相关软件

上一篇:VB取磁盘序列号卷标和文件系统类型

下一篇:VB中使窗体右上角的X按钮失效

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐