Question

我无法在VB6中检索PC型号，我从查询中请求的属性返回空。我尝试模拟此CMD命令的结果。

wmic computersystem get model

这是我尝试使用的代码。（我在项目中添加了Microsoft WMI脚本库lib 1.2作为参考。）

Function wmiInfo() As String
   Dim List
   Dim Msg
   Dim Object

   On Local Error Resume Next

   Set List = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BaseBoard")
   For Each Object In List
      Msg = Msg & "Motherboard Serial Number: " & Object.Model & vbCrLf
   Next

   MsgBox Msg
end function

我希望函数仅使用PC的模型来检索字符串，例如“ Optiplex 790”（这是cmd命令返回的内容）。任何帮助将不胜感激。

（操作系统Windows 7）

Answer 1

我发现了问题。我要求的课错了。 Win32_computerSystem具有我要寻找的属性。

Function wmiProcessorInfo() As String
    Dim msg As String
    Dim cpuSet As SWbemObjectSet
    Dim cpu As SWbemObject
    Dim itmx As ListItem

    On Local Error Resume Next

    Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_ComputerSystem")

    For Each cpu In cpuSet
       msg = cpu.Model
    Next

    MsgBox msg
End Function

使用WMIC获取计算机模型

1 个答案: