Sub 获取电脑名称及机器编码()
Dim 电脑名称 As String
Dim WMI As Object
Dim 机器编码 As String
电脑名称 = Environ("computername")
Set WMI = GetObject("winmgmts:")
机器编码 = GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorId
Set WMI = Nothing
MsgBox "电脑名称:" & 电脑名称 & vbCrLf & "机器编码:" & 机器编码, vbInformation, "系统提示"
End Sub