wmic path SoftwareLicensingService get OA3xOriginalProductKey
해당 제품키를 마우스로 드래그해서 입력합니다.
그럼 현재 사용하고 있는 “윈도우7 시디키“가 나오게 되느데 일부 컴퓨터에서는 표시되지 않는 경우가 있습니다.
그런 경우 레지스트리 편집기를 확인합니다.
레지트스트리 편집기 윈도우 제품키 확인
윈도우 검색창에 “레지스트리 편집기“를 입력 후 실행합니다.
레지스트리 편집기가 열리면 “HKEY_LOCAL_MACHINE” 선택합니다.
다음 SOFTWARE 선택합니다.
다음 Microsoft 선택합니니다.
Windows NT 선택합니다.
CurrentVersion 선택합니다.
마지막으로 SortwareProtectionPlatform 선택합니다.
윈도우7 제품키 변경 및 삭제
오른쪽에 BackupProduct.. 항목을 살펴보면 데이터 아래 ‘영문+숫자‘ 조합으로 된 ”윈도우7 제품키“를 확인할 수 있으며 더블클릭 후 제품키 변경하거나 지우면 삭제가 가능합니다.
윈도우7 메모장 스크립트 제품키 확인
메모장을 실행 후 아래 명령어를 붙여넣기하고 다른이름으로 저장합니다.
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
메모장 이름을 “BackupWindowsKey.vbs“로 저장하며 파일형식은 모든파일로 변경합니다.
저장된 BackupWindowsKey.vbs 파일을 실행합니다.
그럼 Windows Product ID 및 Installed Key로 윈도우 제품ID 및 설치키를 확인할 수 있습니다.
레지스트리 편집기 윈도우 제품키 확인 및 변경
그럼 윈도우11, 윈도우10, 윈도우8, 윈도우7 등 설치 시 제품키를 확인할 수 있습니다.
1 thought on “윈도우7 제품키 확인 및 등록 삭제방법”