windows - 在 Perl for win32 中获取 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