윈도우10 제품키 찾는 방법(How to Find Your Windows 10 Product Key)
윈도우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. 스크립트 실행
저장한 스크립트를 실행해서 결과를 확인한다.
