COMO VER / SACAR / EXTRAER LA CLAVE DE INSTALACION DE WINDOWS

Para ver la clave de Windows: - Abrimos el Bloc de Notas - Escribimos el siguiente texto: Dim bDigitalProductID Dim bProductKey() Dim bKeyChars(24) Dim ilByte Dim nCur Dim sCDKey Dim ilKeyByte Dim ilBit ReDim Preserve bProductKey(14) Set objShell = CreateObject("WScript.Shell") bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\Digital\ProductId") Set objShell = Nothing For ilByte = 52 To 66 bProductKey(ilByte - 52) = bDigita...
Más