[alv1r]

Пример на vbs

Код:

set obj = CreateObject("Scriptlet.TypeLib")  
WScript.StdOut.WriteLine Replace(Replace(obj.GUID,"{",""),"}","")

cscript //nologo uid.vbs

Пример на PowerShell

Код:

powershell -Command "[guid]::NewGuid().ToString()"

Еще пример:

wmic path win32_computersystemproduct get uuid

Насчет изменений при смене железа/сносе системы можно поэкспериментировать на виртуалке.