Ключ активации Windows 7

[tsvetkoff]

Ключ активации Windows 7

Здраствуйте!!! У меня может бональный вопрос) Но., все же.. Как узнать ключ активации винды на своем ноутуке?

 

[Технарь]

На наклейке, которая находиться на нижней крышке ноута...

 

[tsvetkoff]

В том то и дело.. Там нет( ничего..

 

[IronArgument]

Запускаете программку "Блокнот", копируете туда это:

Set WshShell = CreateObject("WScript.Shell" )
 regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
 DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId" )

 Win7ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName" ) & vbNewLine
 Win7ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID" ) & vbNewLine
 Win7ProductKey = ConvertToKey(DigitalProductId)
 strProductKey ="Windows 7 Key: " & Win7ProductKey
 Win7ProductID = Win7ProductName & Win7ProductID & strProductKey

 MsgBox(Win7ProductKey)
 MsgBox(Win7ProductID)

 Function ConvertToKey(regKey)
 Const KeyOffset = 52
 isWin7 = (regKey(66) \ 6) And 1
 regKey(66) = (regKey(66) And &HF7) Or ((isWin7 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 (isWin7 = 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, запускаете этот файлик и смотрите.

 

[tsvetkoff]

Читал, что можно как бы вроде текстовым документом через блокнот с помощью скрипта

 

[tsvetkoff]

)))) опередили) меня

 

[tsvetkoff]

Спасибо! Сейчас попробую!

 

[prima]

https://www.google.ru/search?client...&ie=utf-8&oe=utf-8&channel=suggest&gws_rd=ssl

 

[tsvetkoff]

Спасибо большое!!! Все получилось!!!)

 

[Smith]

только зачем его узнавать? при переустановке винда сама подцепит ключ, он зашит в биос/уефи

 

[Технарь]

он зашит в биос/уефи

Уже в семерке так было?
На сколько знаю, это с восьмерки начали вшивать в биос...