Получение серийного номера CPU ID в Perl для win32

Question

Получение серийного номера CPU ID в Perl для win32

Как получить серийный номер процессора или уникальный идентификатор процессора в perl для windows machine без использования каких-либо модулей, возможно, используя syscalls или что-то еще?

678 2

perl windows cpu serial-number

2 ответов:

Comments

Ничего не найдено.

Kostia Shiian · Accepted Answer · 2014-04-26 22:36:30

Http://metacpan.org/pod/Win32::SystemInfo . без модулей вы можете узнать исходный код этого модуля и использовать его. Вы увидите, что модуль импортирует функцию GetSystemInfo из kernel32.dll и чем она используется, Вы можете сделать это таким же образом

selbie · Accepted Answer · 2012-12-26 09:37:29

Вы не можете получить серийный номер процессора. В течение короткого времени Intel выпустила серию процессоров Pentium III, где каждый чип имел уникальный серийный номер. Это стало для них пиаром из-за проблем с конфиденциальностью, и они прекратили этот набор инструкций в последующих выпусках процессоров.

Но если вы ищете "уникальный идентификатор" для установки Windows, которая в основном гарантируется unique, вы можете попробовать любое из следующих действий:

Создание уникального GUID (uuidgen, CoCreateGuid), сохраните его в реестре / на диске, а затем прочтите его позже.

Достань машину, Сид. http://www.perlmonks.org/?node_id=645077