Получить серийный номер ПК из реестра

Question

Я пытаюсь получить серийный номер ПК пользователя из сценария VBS и отобразить его в msgbox. Мне известны методы командной строки (wmic bios getserialnumber), и я знаком с аппаратными методами (например, с помощью наклейки или коробки). Я проверил реестр (HKLM\HARDWARE\DESCRIPTION\System\BIOS) безрезультатно. Как я могу использовать VBS (без вызова командного файла) для отображения серийного номера пользователя?

Более того, я ищу место в реестре для серийного номера, я могу обойти сценарий, мне просто нужно знать, где искать

Answer 1

Вот код VBScript, чтобы найти серийный номер компьютера, который вы используете:

    strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystemProduct") 
For Each objItem in colItems 
    msgbox "This Device: " & objItem.IdentifyingNumber, vbOkayOnly, "Serial Number"
Next

Это сделает msgbox, который отображает серийный номер в стандартном формате. Спасибо за вашу помощь