VB2008工程代码 获取主板序和CPU列号

VB2008工程代码-获取主板序和CPU列号 Module Module1 Function GetMainboardSerialNumber() As String On Error Resume Next Dim strComputer Dim objWMIService Dim objItem Dim strOption Dim colItems GetMainboardSerialNumber = "" strComputer = "."