VBScript подойдет?

sComputer = "."

set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & sComputer & " ootcimv2")
set oCollection = oWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct")
For Each item In oCollection
msgbox item.Name & vbCrLf & item.IdentifyingNumber & vbCrLf & item.UUID
Next

Добавь компонент VBJScript и туда этот текст закатай