【VB】获取CPU ID
Dim CPUID, strComputer As String Dim objWMIService, colDevices, objDevice strComputer = "." On Error Resume Next Set objWMIService = GetObject("winmgmts:\\" & strComputer) Set colDevices = objWMIService.execquery("select * from win32_processor") For Each objDevice In colDevices CPUID = objDevice.processorid Me.Caption = CPUID Next