Obtenha o número de série do registro no PC

Question

Estou tentando obter o número de série do PC de um usuário de um script VBS e exibi-lo em um msgbox. Estou ciente dos métodos de linha de comando (wmic bios getserialnumber) e estou ciente dos métodos baseados em hardware (como olhar para o adesivo ou a caixa.) Eu verifiquei o registro (HKLM \ HARDWARE \ DESCRIPTION \ System \ BIOS) sem sucesso. Como posso usar o VBS (sem chamar um arquivo de lote) para exibir o número de série de um usuário?

Eu também estou procurando por um local no registro para o número de série, eu posso trabalhar o script em torno disso, eu só preciso saber onde procurar

    

Answer 1

Aqui está o código do VBScript para encontrar o número de série da máquina que você está usando:

    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

Isso fará com que uma msgbox exiba o número de série no formato padrão. Obrigado a todos pela vossa ajuda