ник: akkorn
Как вариант- узнавать SN процессора....
(вернее ВСЕХ ядер в системе)))) - у меня пишет 4 раза для каждого ядра, но sn все одинкаовые))
Вот код, тока нужен ли- сам решай...
Public Sub GetCpuID()
Dim strComputer
Dim WMI
Dim wmiWin32Object
Dim wmiWin32Objects
Dim strText
Set WMI = GetObject("WinMgmts://" & strComputer)
Set wmiWin32Objects = WMI.InstancesOf("Win32_Processor")
For Each wmiWin32Object In wmiWin32Objects
strText = "ProcessorID: " & wmiWin32Object.ProcessorId & vbCrLf
MsgBox strText
Next
End Sub