获取win32中Perl的CPU ID序列号

Question

如何在不使用任何模块的情况下为Windows机器获取perl中的CPU /处理器序列号或唯一ID，可能使用系统调用等？

Answer 1

http://metacpan.org/pod/Win32::SystemInfo。没有模块，您可以学习该模块的源代码并使用它。您将看到该模块从kernel32.dll导入函数GetSystemInfo而不是使用它，您可以以相同的方式执行它

Answer 2

您无法获取CPU序列号。在短时间内，英特尔发布了一系列奔腾III处理器，每个芯片都有一个唯一的序列号。对于他们而言，由于隐私问题，它已成为公关混乱，他们在后续处理器版本中停止了这组指令。

但是，如果您正在为Windows安装寻找“唯一ID”，而这种安装通常是唯一的，那么您可以尝试以下任何一项：

1. 生成一个唯一的GUID（uuidgen，CoCreateGuid），将其保存到注册表/磁盘，然后稍后再回读。

2. 获取机器SID。 http://www.perlmonks.org/?node_id=645077