Может кому будет полезно - идентификация компьютера:
Делал для себя, как часть защиты от нелегального использования самописных нотусевых приложений.
Никакой коммерческий код не использовался, поэтому абсолютно FREE для личного и коммерческого использования.
DLL-ка (28,5KB) читает SMART винта, на выходе pChar (ф-ия CheckD()) (" СерийныйНомер @ НомерМодели"), с SSD работает.
RAID не поддерживает, в этом случае "НомерМодели" будет равен например "Raid 1 Volume"
Работает "втемную" - если что-то не может прочесть, никаких месседжей об ошибке не выдает. Например, если не прочтет "СерийныйНомер" и "НомерМодели" на выходе будет просто " @ ".
Работает на всех виндах от XP до Win 8 и на серверах 2000 - 2008 (2012 - х.з., не тестировалась).
Разрядность ОС - 32 и 64. Админ права не нужны.
В нотусе использовать так:
Declare Function CheckD Lib "ch.dll" () As String 'если DLL в директории \Notes
SerialNumberAndModelNumber = Trim(CheckD()) 'что-бы убрать пробелы перед строкой
В архиве - собственно DLL-ка и EXE-шник для теста (DLL и EXE ест-но в одной директории)
MD5 ch.dll: 7c139dc627e7d485b6ff45e4ad8e9e18
MD5 UseCH.exe: 11015e7ae1e87995760dcd5356c842b1