提取电脑硬件有关数据（一）

最近做一些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

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24345566/viewspace-1053289/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24345566/viewspace-1053289/