获取电脑名称及机器编码-大海
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 综合其它


获取电脑名称及机器编码

发表时间:2018/1/30 8:15:25 评论(0) 浏览(5998)  评论 | 加入收藏 | 复制
   
摘 要:获取电脑名称及机器编码
正 文:


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


Access软件网交流QQ群(群号:198465573)
 
 相关文章
在局域网中,如何获取某一机器的日期和时间   【朱亦文  2004/11/10】
获取Windows登录机器名及用户  【咱家是猫  2008/2/2】
API获取当前电脑用户名  【宏鹏  2017/2/11】
在Access中获取本机IP地址、电脑名及开机登录用户名  【林岚  2018/1/29】
取得电脑CPU的名称及速度,网卡序列号  【林岚  2018/1/29】
常见问答
技术分类
相关资源
文章搜索
关于作者

大海

文章分类

文章存档

友情链接