最近做一些VBA开发，总想让指定的人员（机器）使用，于是研究了怎么提取电脑的有关参数，再进行相应的判断。先从电脑名称及磁盘开始吧！
Sub 提取电脑名称()
Dim name As String
name = Environ("computername")
End Sub
Sub 提取C盘序列号()
Dim DRIVEID
Dim ID As String
Set DRIVEID = CreateObject("scripting.filesystemobject")
ID = DRIVEID.GETDRIVE("c").serialnumber
End Sub
Sub 提取CPU序列码()
MsgBox GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorId
End Sub
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/24345566/viewspace-1053289/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
内表数据导出到excel
下一篇：
提取电脑硬件有关数据（二）
请登录后发表评论
登录
全部评论
