获取电脑名称及机器编码

时　间:2018-01-30 08:15:25
作　者:大海   ID：42003  城市：深圳
摘　要:获取电脑名称及机器编码
正　文:

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