Obter o número de Série do Windows (Windows Key)

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” Leia mais…