7 ΡΠΏΠΎΡΠΎΠ±ΠΎΠ², ΠΊΠ°ΠΊ ΡΠ·Π½Π°ΡΡ ΠΊΠ»ΡΡ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠΉ Windows 10 β ΠΠΉΡΠ΅ ΠΠΆΠ΅ΠΌΠΈΠ»Π΅Π²Π°
ΠΡΠΎΡΠ΅ΡΡ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Windows 10 ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π²ΡΠ΅Π³Π΄Π° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ. ΠΠΎΡΡΠΎΠΌΡ Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²ΠΎΠ²ΡΠ΅ Π½Π΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π²Π²ΠΎΠ΄ΠΈΡΡ Π»ΠΈΡΠ΅Π½Π·ΠΈΠΎΠ½Π½ΡΠΉ ΠΊΠ»ΡΡ Π²ΡΡΡΠ½ΡΡ. ΠΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΌΠΎΠ³ΡΡ ΡΡΠ°ΡΡ ΡΠ»ΡΡΠ°ΠΈ Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΎΠΉ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΉ ΠΈΠ»ΠΈ ΡΠΌΠ΅Π½ΠΎΠΉ Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΡΡΡΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ². Π― ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΡΠ°ΡΡΠΊΠ°ΠΆΡ, ΠΊΠΎΠ³Π΄Π° ΠΈ ΠΊΠ°ΠΊΠΎΠΉ ΠΊΠ»ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΡΠΊΠ°ΡΡ, ΠΈ ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΡ ΡΡΠΈΠ»ΠΈΡ ΠΈΠ»ΠΈ ΡΡΠΎΡΠΎΠ½Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
ΠΠ±Π° ΠΊΠ»ΡΡΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ Π΄Π»Ρ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Windows. Π Π°Π·Π½ΠΈΡΠ° ΡΠΎΡΡΠΎΠΈΡ Π»ΠΈΡΡ Π² ΡΠΎΠΌ, ΠΊΠΎΠ³Π΄Π° ΠΎΠ½Π° Π±ΡΠ»Π° ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π°. OEM Key β ΠΎΠ½ ΠΆΠ΅ ΠΊΠ»ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠ°, Π²ΡΠΈΡ Π² ΠΌΠ°ΡΠ΅ΡΠΈΠ½ΡΠΊΡΡ ΠΏΠ»Π°ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°/Π½ΠΎΡΡΠ±ΡΠΊΠ°. ΠΠΎΠ»ΡΡΠ°Π΅ΡΡΡ, ΡΡΠΎ ΠΏΡΠΈ ΠΏΠΎΠΊΡΠΏΠΊΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠΆΠ΅ Π·Π°ΡΠ°Π½Π΅Π΅ Π±ΡΠ»Π° ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π° ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½Π°. Install Key (ΠΈΠ»ΠΈ Product Key) β ΡΠΈΡΡΠΎΠ²Π°Ρ Π»ΠΈΡΠ΅Π½Π·ΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π²Π²ΠΎΠ΄ΠΈΡΡΡ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, ΠΈ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΊΡΠΏΠΊΠ΅ ΠΈΠ»ΠΈ ΡΠΊΠ°ΡΠΈΠ²Π°Π½ΠΈΠΈ ΠΎΡΠΈΡΠΈΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΎΡΡΠ°.Β
ΠΡΠ»ΠΈ, ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠΎΠΊΡΠΏΠ°Π» ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ ΡΠΎ Π²ΡΡΡΠΎΠ΅Π½Π½ΠΎΠΉ ΠΠ‘ Windows 7 ΠΈΠ»ΠΈ 8 Π²Π΅ΡΡΠΈΠΈ ΠΈ Π·Π°ΡΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΡΠ΅Π» Π½Π° 10, ΡΠΎ Π² ΡΠ°ΠΊΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π±ΡΠ΄Π΅Ρ ΡΠ³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°Π½ Install Key, ΠΎΡΠ»ΠΈΡΠ°ΡΡΠΈΠΉΡΡ ΠΎΡ Π²ΡΠΈΡΠΎΠ³ΠΎ ΠΏΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ.Β
ΠΡΠΎΡΡΠΎΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΈΠ»ΠΈ Π²ΡΡΡΠΎΠ΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ ΠΏΠΎΠΊΠ°Π·Π° Π»ΠΈΡΠ΅Π½Π·ΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΊΠ»ΡΡΠ° Π½Π΅ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½ΠΎ. ΠΠΎΡΡΠΎΠΌΡ ΡΠ½Π°ΡΠ°Π»Π° ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ ΠΏΠΎΠΈΡΠΊΠ° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΡ ΡΡΠΈΠ»ΠΈΡ.Β
Windows PowerShell β Π²ΡΡΡΠΎΠ΅Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΏΠΎ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»Ρ ΠΎΡΠ΅Π½Ρ ΡΡ ΠΎΠΆΠ°Ρ Ρ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ. Π§ΡΠΎΠ±Ρ Ρ Π΅Π΅ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ·Π½Π°ΡΡ Π½ΠΎΠΌΠ΅Ρ Π»ΠΈΡΠ΅Π½Π·ΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΊΠ»ΡΡΠ°, ΠΌΠ½Π΅ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΎΡΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ:
ΠΡΠΊΡΡΠ²Π°Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«ΠΠ»ΠΎΠΊΠ½ΠΎΡΒ» ΠΈ ΠΊΠΎΠΏΠΈΡΡΡ Π² Π½Π΅Π³ΠΎ ΡΠ°ΠΊΠΎΠΉ ΡΠΊΡΠΈΠΏΡ.
#Main function Function GetWin10Key { $Hklm = 2147483650 $Target = $env:COMPUTERNAME $regPath = Β«Software\Microsoft\Windows NT\CurrentVersionΒ» $DigitalID = Β«DigitalProductIdΒ» $wmi = [WMIClass]Β»\\$Target\root\default:stdRegProvΒ» #Get registry valueΒ $Object = $wmi.GetBinaryValue($hklm,$regPath,$DigitalID) [Array]$DigitalIDvalue = $Object.uValueΒ #If get successed If($DigitalIDvalue) { #Get producnt name and product ID $ProductName = (Get-itemproperty -Path Β«HKLM:Software\Microsoft\Windows NT\CurrentVersionΒ» -Name Β«ProductNameΒ»).ProductNameΒ $ProductID =Β (Get-itemproperty -Path Β«HKLM:Software\Microsoft\Windows NT\CurrentVersionΒ» -Name Β«ProductIdΒ»).ProductId #Convert binary value to serial numberΒ $Result = ConvertTokey $DigitalIDvalue $OSInfo = (Get-WmiObject Β«Win32_OperatingSystem» | select Caption).Caption If($OSInfo -match Β«Windows 10β³) { if($Result) { [string]$value =Β»ProductNameΒ : $ProductName `r`nΒ» ` + Β«ProductIDΒ Β : $ProductID `r`nΒ» ` + Β«Installed Key: $ResultΒ» $valueΒ #Save Windows info to a fileΒ $Choice = GetChoice If( $Choice -eq 0 ) { $txtpath = Β«C:\Users\Β»+$env:USERNAME+Β»\DesktopΒ» New-Item -Path $txtpath -Name Β«WindowsKeyInfo.txtΒ» -Value $value Β -ItemType File -Force | Out-NullΒ } Elseif($Choice -eq 1) { ExitΒ } } Else { Write-Warning Β«ΠΠ°ΠΏΡΡΠΊΠ°ΠΉΡΠ΅ ΡΠΊΡΠΈΠΏΡ Π² Windows 10Β» } } Else {Write-Warning Β«ΠΠ°ΠΏΡΡΠΊΠ°ΠΉΡΠ΅ ΡΠΊΡΠΈΠΏΡ Π² Windows 10Β»} } Else { Write-Warning Β«ΠΠΎΠ·Π½ΠΈΠΊΠ»Π° ΠΎΡΠΈΠ±ΠΊΠ°, Π½Π΅ ΡΠ΄Π°Π»ΠΎΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΊΠ»ΡΡΒ» }
} #Get user choiceΒ Function GetChoice { Β Β Β Β $yes = New-Object System.Management.Automation.Host.ChoiceDescription Β«&YesΒ»,»» Β Β Β Β $no = New-Object System.Management.Automation.Host.ChoiceDescription Β«&NoΒ»,»» Β Β Β Β $choices = [System.Management.Automation.Host.ChoiceDescription[]]($yes,$no) Β Β Β Β $caption = Β«ΠΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅Β» Β Β Β Β $message = Β«Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΊΠ»ΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ»?Β» Β Β Β Β $result = $Host.UI.PromptForChoice($caption,$message,$choices,0) Β Β Β Β $result } #Convert binary to serial numberΒ Function ConvertToKey($Key) { $Keyoffset = 52Β $isWin10 = [int]($Key[66]/6) -band 1 $HF7 = 0xF7 $Key[66] = ($Key[66] -band $HF7) -bOr (($isWin10 -band 2) * 4) $i = 24 [String]$Chars = Β«BCDFGHJKMPQRTVWXY2346789Β» do { $Cur = 0Β $X = 14 Do { $Cur = $Cur * 256Β Β Β Β $Cur = $Key[$X + $Keyoffset] + $Cur $Key[$X + $Keyoffset] = [math]::Floor([double]($Cur/24)) $Cur = $Cur % 24 $X = $X β 1Β }while($X -ge 0) $i = $i- 1 $KeyOutput = $Chars.SubString($Cur,1) + $KeyOutput $last = $Cur }while($i -ge 0) $Keypart1 = $KeyOutput.SubString(1,$last) $Keypart2 = $KeyOutput.Substring(1,$KeyOutput.length-1) if($last -eq 0 ) { $KeyOutput = Β«NΒ» + $Keypart2 } else { $KeyOutput = $Keypart2.Insert($Keypart2.IndexOf($Keypart1)+$Keypart1.length,Β»NΒ») } $a = $KeyOutput.Substring(0,5) $b = $KeyOutput.substring(5,5) $c = $KeyOutput.substring(10,5) $d = $KeyOutput.substring(15,5) $e = $KeyOutput.substring(20,5) $keyproduct = $a + Β«-Β» + $b + Β«-Β«+ $c + Β«-Β«+ $d + Β«-Β«+ $e $keyproductΒ Β } GetWin10Key
ΠΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ Π²ΠΎΡ ΡΠ°ΠΊ.
Π‘ΠΎΡ ΡΠ°Π½ΡΡ ΡΠ°ΠΉΠ» Ρ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ps1. ΠΠ°ΠΊΠΎΠ΅ Π΄Π°ΡΡ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ β Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
ΠΡΠΊΡΡΠ²Π°Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Windows PowerShell ΠΎΡ ΠΈΠΌΠ΅Π½ΠΈ Π°Π΄ΠΌΠΈΠ½ΠΈΡΡΡΠ°ΡΠΎΡΠ°. Π‘Π΄Π΅Π»Π°ΡΡ ΡΡΠΎ Ρ ΠΌΠΎΠ³Ρ Π΄Π²ΡΠΌΡ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ β ΡΠ΅ΡΠ΅Π· ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΠ½ΠΎΠ΅ ΠΌΠ΅Π½Ρ Β«ΠΡΡΠΊΒ»
ΠΈΠ»ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΡΠΎΠΊΠΈ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠΈΡΠΊΠ° Π² ΠΏΠ°Π½Π΅Π»ΠΈ Π·Π°Π΄Π°Ρ.
ΠΠ²ΠΎΠΆΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Set-ExecutionPolicy RemoteSigned ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Ρ Π½Π° ΠΊΠ»Π°Π²ΠΈΡΡ Β«EnterΒ».
ΠΠ½Π° Π½ΡΠΆΠ½Π°, ΡΡΠΎΠ±Ρ ΠΏΡΠΈΠ½ΡΡΡ Π½ΠΎΠ²ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΏΠΎΠ»ΠΈΡΠΈΠΊΠΈ, ΠΏΡΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π² ΡΠΎΡ ΡΠ°ΠΌΠΎΠΌ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΌ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ΅.
ΠΠ²ΠΎΠΆΡ Π΄Π°Π»ΡΡΠ΅ ΠΏΡΡΡ ΠΊ ΠΏΠ°ΠΏΠΊΠ΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ» ΡΠΎΡ ΡΠ°Π½Π΅Π½ ΡΠΊΡΠΈΠΏΡ. Π£ ΠΌΠ΅Π½Ρ ΠΎΠ½ ΡΠ°ΠΊΠΎΠ² β C:\windows10key.ps1. ΠΠ°ΠΆΠΈΠΌΠ°Ρ Π½Π° ΠΊΠ»Π°Π²ΠΈΡΡ Β«EnterΒ».
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π½Π° ΡΠΊΡΠ°Π½Π΅ Π²ΡΠΉΠ΄ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΠΎΡΠ΅ΠΊ, ΠΎΠ΄Π½Π° ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ β Β«Installed KeyΒ». ΠΠΈΠΆΠ΅ Π²ΡΡΠ²Π΅ΡΠΈΡΡΡ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΅Π³ΠΎ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ Π²ΠΈΠ΄Π΅. ΠΠ»Ρ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π½ΡΠΆΠ½ΠΎ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ»Π°Π²ΠΈΡΡ Y, Π΄Π»Ρ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΡ β N.
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Ρ ΠΏΠΎΠ»ΠΈΡΠΈΠΊΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠΊΡΠΈΠΏΡΠΎΠ² Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅, Π²Π²Π΅Π΄Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Set-ExecutionPolicy restricted.
ΠΠΎΠΆΠ½ΠΎ ΠΏΠΎΠΉΡΠΈ ΠΏΡΡΠ΅ΠΌ ΠΏΡΠΎΡΠ΅ β ΠΏΡΠΎΡΡΠΎ Π·Π°Π΄Π°ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π½Π° ΠΎΡΠΊΡΡΡΠΈΠ΅ ΡΠΊΡΠΈΠΏΡΠ°, ΡΠΊΠ°Π·Π°Π² ΠΏΡΡΡ ΠΊ Π½Π΅ΠΌΡ. Π ΠΌΠΎΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ°ΠΊ:
ΠΠΠΠΠΠΠΠ! Π Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠ»ΡΡΠ°ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Π° ΠΌΠΎΠΆΠ΅Ρ Π½Π΅ ΡΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΈΠ·-Π·Π° ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΠΉ Π² Π³ΡΡΠΏΠΏΠΎΠ²ΠΎΠΉ ΠΏΠΎΠ»ΠΈΡΠΈΠΊΠ΅. Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΠΌΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°ΠΌΠΈ.
Π‘Π°ΠΌΡΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠ·Π½Π°ΡΡ ΡΠΈΡΡΠΎΠ²ΡΡ Π»ΠΈΡΠ΅Π½Π·ΠΈΡ β ΡΠΎΠ·Π΄Π°ΡΡ ΡΠΊΡΠΈΠΏΡ Visual Basic Script. ΠΡΠΊΡΡΠ²Π°Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«ΠΠ»ΠΎΠΊΠ½ΠΎΡΒ» ΠΈ Π²Π²ΠΎΠΆΡ Π² ΠΏΠΎΠ»Π΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ΅ΠΊΡΡ:
Set WshShell = CreateObject(Β«WScript.ShellΒ») regKey = Β«HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Β» DigitalProductId = WshShell.RegRead(regKey & Β«DigitalProductIdΒ») Win10ProductName = Β«ΠΠ΅ΡΡΠΈΡ Windows 10: Β» & WshShell.RegRead(regKey & Β«ProductNameΒ») & vbNewLine Win10ProductID = Β«ID ΠΏΡΠΎΠ΄ΡΠΊΡΠ°: Β» & WshShell.RegRead(regKey & Β«ProductIDΒ») & vbNewLine Win10ProductKey = ConvertToKey(DigitalProductId) ProductKeyLabel =Β»ΠΠ»ΡΡ Windows 10: Β» & Win10ProductKey Win10ProductID = Win10ProductName & Win10ProductID & ProductKeyLabel MsgBox(Win10ProductID) Function ConvertToKey(regKey) Const KeyOffset = 52 isWin10 = (regKey(66) \ 6) And 1 regKey(66) = (regKey(66) And &HF7) Or ((isWin10 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 (isWin10 = 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