最近做一些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博客 ” ,链接:http://blog.itpub.net/24345566/viewspace-1053289/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/24345566/viewspace-1053289/