윈도우 제품키 인증 키(Product Key) 확인하는 5가지 방법

reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" /v BackupProductKeyDefault

Option Explicit

Dim shell, regKey, digitalId, finalMessage
Set shell = CreateObject("WScript.Shell")

' 레지스트리 경로 설정 거의 완벽
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

' 레지스트리 정보 수집
Dim osName, osID
osName = shell.RegRead(regKey & "ProductName")
osID = shell.RegRead(regKey & "ProductID")
digitalId = shell.RegRead(regKey & "DigitalProductId")

' 제품 키 디코딩
Dim productKey
productKey = DecodeKey(digitalId)

' 보기 좋게 정리된 출력 메시지
finalMessage = "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" & vbCrLf
finalMessage = finalMessage & "Windows 정품 인증 정보" & vbCrLf
finalMessage = finalMessage & "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" & vbCrLf & vbCrLf
finalMessage = finalMessage & "운영 체제:   " & osName & vbCrLf
finalMessage = finalMessage & "제품 ID:      " & osID & vbCrLf
finalMessage = finalMessage & "설치된 키:   " & productKey & vbCrLf & vbCrLf
finalMessage = finalMessage & "저장 위치: 바탕화면 - WindowsKeyInfo.txt" & vbCrLf
finalMessage = finalMessage & "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━"

' 출력 및 저장 여부 확인
If MsgBox(finalMessage & vbCrLf & vbCrLf & "해당 정보를 텍스트 파일로 저장할까요?", vbYesNo + vbQuestion, "Windows Key 정보 확인") = vbYes Then
    SaveToFile finalMessage
End If

' 디코딩 함수
Function DecodeKey(keyData)
    Const offset = 52
    Dim chars, decoded, i, j, cur, last, insertChar, tempPart
    chars = "BCDFGHJKMPQRTVWXY2346789"
    decoded = ""

    Dim isWin8
    isWin8 = (keyData(66) \ 6) And 1
    keyData(66) = (keyData(66) And &HF7) Or ((isWin8 And 2) * 4)

    For i = 24 To 0 Step -1
        cur = 0
        For j = 14 To 0 Step -1
            cur = cur * 256
            cur = keyData(j + offset) + cur
            keyData(j + offset) = Int(cur / 24)
            cur = cur Mod 24
        Next
        decoded = Mid(chars, cur + 1, 1) & decoded
        last = cur
    Next

    If isWin8 = 1 Then
        insertChar = "N"
        tempPart = Mid(decoded, 2, last)
        decoded = Replace(decoded, tempPart, tempPart & insertChar, 2, 1, 0)
        If last = 0 Then decoded = insertChar & decoded
    End If

    DecodeKey = Mid(decoded, 1, 5) & "-" & Mid(decoded, 6, 5) & "-" & Mid(decoded, 11, 5) & "-" & Mid(decoded, 16, 5) & "-" & Mid(decoded, 21, 5)
End Function

' 텍스트 파일 저장 함수
Sub SaveToFile(data)
    Dim fso, txt, desktopPath
    Set fso = CreateObject("Scripting.FileSystemObject")
    desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\WinKey.txt"
    Set txt = fso.CreateTextFile(desktopPath, True)
    txt.WriteLine data
    txt.Close
End Sub

(Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey