Opção 1

O procedimento é bem simples, crie um arquivo chamado GetWindowsKey.vbs (pode usar o notepad mesmo) com o seguinte conteúdo:

Set WshShell = CreateObject(“WScript.Shell”)
MsgBox ConvertToKey(WshShell.RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId”))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = “BCDFGHJKMPQRTVWXY2346789”
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 – i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = “-” & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

Com esse script, execute sempre que precisar obter o número de série de um computador com Windows.

Opção 2

Abra o registro do Windows, vá em HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion e procure a chave com nome SoftwareProtectionPlatform. O valor dessa chave será o número de série do Windows.

Opção 3

Abra o CMD como administrador e execute o seguinte comando:

wmic path softwareLicensingService get OA3xOriginalProductKey

Fontes/Referências

https://gist.github.com/eyecatchup/d577a2628666a0ad1375
https://itechfever.com/find-windows-10-product-key/
https://www.sysnative.com/forums/threads/find-windows-product-key-code-vbs-script-windows-10-8-1-8-7-vista.19052/
https://www.thewindowsclub.com/find-windows-10-product-key-using-vb-script

Mais Informações

Esperamos ter ajudado da melhor forma possível e estaremos sempre a disposição para mais informações.

Entre em contato conosco pelo e-mail equipe@nvlan.com.br.

NVLAN - Consultoria