Узнать ключ активации Windows

[uzverss]

Создайте Текстовый документ.
Скопируйте в него текст скрипта.
развернуть

Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin8 = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Нажмите Файл - Сохранить как:
Выберите Тип файлов: Все файлы. Задайте любое имя файла, но обязательно укажите расширение .VBS Нажмите Сохранить.
При нажатии на сохраненный файл откроется окно с ключом активации windows.

взято тут
http://www.nirsoft.net/utils/product_cd_key_viewer.html

активация
https://learn.microsoft.com/ru-ru/windows-server/get-started/kms-activation-planning
https://learn.microsoft.com/ru-ru/windows-server/get-started/kms-client-activation-keys
slmgr /ipk W269N-WFGWX-YVC9B-4J6C9-T83GX
slmgr /skms kms.digiboy.ir # но лучше использовать свой kms
slmgr /ato

Как загрузить, установить Office 2024 LTSC с сайта Microsoft и активировать навсегда?
https://config.office.com/deploymentsettings
https://github.com/farag2/Office
irm https://get.activated.win | iex

KMS сервер для активации Windows и Office в Docker
Установка KMS сервера vlmcsd на Linux для активации Windows и Office

Сервер KMS
https://github.com/mikolatero/docker-vlmcsd
https://hub.docker.com/r/mikolatero/vlmcsd/
https://github.com/py-kms-organization/py-kms/pkgs/container/py-kms
docker run -d --name py-kms --restart always -p 1688:1688 ghcr.io/py-kms-organization/py-kms

https://massgrave.dev/
https://massgrave.dev/hwid
https://massgrave.dev/kms38
https://github.com/massgravel/Microsoft-Activation-Scripts
irm https://massgrave.dev/get | iex

https://github.com/SystemRage/py-kms
https://hub.docker.com/r/pykmsorg/py-kms

Бесплатный KMS сервер
Установка KMS сервера vlmcsd на Linux для активации Windows и Office
Установка KMS сервера активации Microsoft на базе vlmcsd в Debian или Ubuntu
Активация Microsoft Windows и Office через контейнер Docker (параллельный импорт)

http://wind4.github.io/vlmcsd/
https://hub.docker.com/r/mikolatero/vlmcsd/
https://github.com/Wind4/vlmcsd

активация XP и Server 2003
https://github.com/Neo-Desktop/WindowsXPKg

Как сбросить пароль администратора домена
Сброс или изменение пароля Windows с помощью Linux
Как сбросить пароль Windows
Как УЗНАТЬ пароль Windows?