윈도우10(Windows 10) 제품키(혹은 씨디키)를 분실하는 경우가 있다. 제품키를 분실했다 하더라도 현재 PC나 노트북에 해당 키로 운영체제가 설치되어 있는 경우라면 제품키를 찾을 수 있는 방법이 있다. 명령 프롬프트에 특정 명령어를 입력해서 제품키를 찾는 방법인데 자세한 방법은 아래와 같다. 

 

Windows10 Pro 버전은 스크립트를 이용한 방법으로만 가능

명령 프롬프트를 이용한 방법

1. 명령 프롬프트 관리자 권한으로 열기

명령 프롬프트를 관리자 권한으로 여는 방법은 윈도우 좌측 하단 돋보기 모양을 누른 후 cmd 라고 입력하여 앱이 나타나도록 한다. 

앱에 우클릭 하여 관리자 권한으로 실행을 누르거나 우측에 별도로 나타나는 관리자 권한으로 실행을 누르면 된다. 

 

 

2. 명령 프롬프트에 명령어를 입력

관리자 권한으로 실행된 명령 프롬프트가 열리면 아래 명령어를 입력하고 엔터 키를 누른다. 명령어는 잘못 입력되는 경우 잘못된 쿼리 입니다 라는 메시지나 나타날 수 있으므로 복사하여 붙여넣기 한다. 

 

wmic path softwarelicensingservice get OA3xOriginalProductKey

또는

powershell "(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey"

 

 

명령창에 25자리 제품키를 확인할 수 있다. 

 

 

스크립트를 이용한 방법

1. 스크립트를 만들기

메모장을 열어 아래 스크립트를 넣고 확장자(*.vbs)로 저장한다.

Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0

If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

2. 스크립트 실행

저장한 스크립트를 실행해서 결과를 확인한다.

Windows10 ProductKey Script
이 글은 (새창열림) 본 저작자 표시, 비영리, 변경 금지 규칙 하에 배포할 수 있습니다. 자세한 내용은 Creative Commons 라이선스를 확인하세요.

다른 글

다른 글 더 둘러보기

티스토리툴바