Question

vb读取主板型号

详细解说 最好有事例下载 谢谢

Answer 1

Function GetMainboardSerialNumber() As String
On Error Resume Next
Dim strComputer
Dim objWMIService
Dim objItem
Dim strOption
Dim colItems
GetMainboardSerialNumber = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In colItems
If objItem.SerialNumber <> "" Then
GetMainboardSerialNumber = objItem.SerialNumber
Exit Function
End If
Next
End Function
获取主板型号内存大小..等...?自己去实践一下吧

Answer 2

网上找到的 应该是好用的 我手里没有vb 你试验一下吧！~ Function GetMainboardSerialNumber() As String On Error Resume Next Dim strComputer Dim objWMIService Dim objItem Dim strOption Dim colItems GetMainboardSerialNumber = "" strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard") For Each objItem In colItems If objItem.SerialNumber <> "" Then GetMainboardSerialNumber = objItem.SerialNumber Exit Function End If Next End Function ~