none
Recuperar chave de ativação server 2016 satrdard etition RRS feed

  • Pergunta

  • Tenho um servidor com o sistema operativo Windows Server 2016 Standard Edition instado e activado. Agora por erro de um aplicativo necessito reinstalar o servidor mas não sei onde coloquei a chave de activação. Como posso ler a chave de activação no servidor antes de o reinstalar para depois o poder activar de novo com a mesma chave?
    segunda-feira, 8 de abril de 2019 12:28

Respostas

  • Boa tarde,

    No Windows 10 é possível imprimir a chave através de um script, teste se o script funciona no Server 2016 também.

    Crie um documento de texto, cole o algoritmo a seguir e salve com a extensão .vbs

    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

    • Marcado como Resposta IgorFKModerator sexta-feira, 12 de abril de 2019 13:55
    segunda-feira, 8 de abril de 2019 18:13

Todas as Respostas

  • Boa tarde,

    No Windows 10 é possível imprimir a chave através de um script, teste se o script funciona no Server 2016 também.

    Crie um documento de texto, cole o algoritmo a seguir e salve com a extensão .vbs

    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

    • Marcado como Resposta IgorFKModerator sexta-feira, 12 de abril de 2019 13:55
    segunda-feira, 8 de abril de 2019 18:13
  • OK! vou experimentar no windows server e depois dou feed back!
    segunda-feira, 20 de maio de 2019 10:10