Windows 10, Windows 8 및 Windows 7에서 제품 키를 보는 방법

Windows 제품 키를 어디에 저장했는지 분실했거나 잊어버린 경우 해결 방법이 있습니다. 오늘 우리는 간단한 VBS 스크립트를 사용하여 설치된 Windows 10, Windows 8 또는 Windows 7의 제품 키를 표시하는 방법을 볼 것입니다. 타사 소프트웨어를 사용하지 않고 PC에 설치된 OS에서 제품 키를 추출하는 간단한 솔루션입니다. 여기 우리가 간다.

사실 예전에 포스팅한 유사한 솔루션 PowerShell을 사용했습니다. 그러나 많은 사용자가 실패했다고 불평했습니다. PowerShell에 서명되지 않은 cmdlet을 실행하려면 추가 사용자 기술과 추가 조정이 필요할 수 있습니다.

PowerShell과 비교할 때 이 VBScript 솔루션은 거의 완벽합니다. 파일을 클릭하기만 하면 됩니다. NS Windows 10 제품 키 보기

1. 메모장을 엽니다.
2. 다음 텍스트를 복사하여 메모장 창에 붙여넣습니다.

   옵션 명시적. Dim objshell, 경로, DigitalID, 결과. 설정 objshell = CreateObject("WScript. Shell") '레지스트리 키 경로 설정 = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" '레지스트리 키 값 DigitalID = objshell. RegRead(경로 및 "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName = "제품 이름: " & objshell. RegRead(경로 및 "제품 이름") ProductID = "제품 ID: " & objshell. RegRead(경로 & "ProductID") ProductKey = "설치된 키: " & ConvertToKey(DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey '파일에 저장하면 메시지 상자를 표시합니다. vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information")인 경우 ProductData를 저장합니다. 종료합니다. '바이너리를 문자로 변환 기능 ConvertToKey(Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 'OS가 Windows 8인지 확인 isWin8 = (키 (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 전류 = 키(j + 키 오프셋) + 현재 키(j + KeyOffset) = (현재 \ 24) Current=현재 Mod 24 j = j -1 Loop While j >= 0 i = i -1 KeyOutput = Mid(Maps, Current+ 1, 1) & KeyOutput Last = 현재 루프는 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) & "-" 및 중간 (KeyOutput, 21, 5) End Function '파일에 데이터 저장 Function Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") '현재 값 가져오기 사용자 이름. 사용자 이름 = objshell. ExpandEnvironmentStrings("%UserName%") '바탕 화면에 텍스트 파일을 만듭니다. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" 설정 fso = CreateObject("스크립팅. FileSystemObject") txt = fso로 설정합니다. CreateTextFile(fName) txt. 쓰기 데이터 txt. 닫기 종료 기능 
   

3. 바탕 화면에 ".vbs" 확장자를 가진 파일에 위의 텍스트를 저장합니다.
   보너스 팁: 확장자가 ".vbs"인 파일을 올바르게 저장하려면 "BackupWindowsKey.vbs"와 같이 큰따옴표로 묶인 이름을 입력할 수 있습니다.
   
4. 이제 BackupWindowsKey.vbs 파일을 엽니다.
5. 짜잔, 제품키가 화면에 표시됩니다!
   

BackupWindowsKey.vbs 파일을 다운로드하려면 여기를 클릭하십시오.

Windows 7, Windows 8 및 Windows 10에서 이 트릭을 테스트했습니다. 언급된 모든 운영 체제에서 완벽하게 작동합니다. 크레딧: 넌센스 @ MDL.