Windows 제품 키를 저장 한 위치를 분실했거나 잊어 버린 경우 해결 방법이 있습니다. 오늘은 간단한 VBS 스크립트를 사용하여 설치된 Windows 10, Windows 8 또는 Windows 7 사본의 제품 키를 표시하는 방법을 살펴 보겠습니다. PC에 설치된 OS에서 제품 키를 추출하는 간단한 솔루션입니다. 타사 소프트웨어 사용. 여기 있습니다.
광고
사실, 이전에 유사한 솔루션 PowerShell을 사용했습니다. 그러나 많은 사용자가 실패한다고 불평했습니다. PowerShell은 서명되지 않은 cmdlet을 실행하기 위해 추가 사용자 기술과 추가 조정이 필요할 수 있습니다.
Windows 10으로 업그레이드하는 것을 피하는 방법
PowerShell과 비교할 때이 VBScript 솔루션은 거의 완벽합니다. 파일을 클릭하기 만하면됩니다. 에 Windows 10 제품 키보기
- 메모장을 엽니 다.
- 다음 텍스트를 메모장 창에 복사하여 붙여 넣습니다.
Option Explicit Dim objshell, path, DigitalID, Result Set objshell = CreateObject ( 'WScript.Shell') '레지스트리 키 경로 설정 Path ='HKLM SOFTWARE Microsoft Windows NT CurrentVersion ''레지스트리 키 값 DigitalID = objshell.RegRead (경로 & '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 '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 , 마지막, keypart1, 'OS가 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 '파일에 데이터 저장 기능 저장 (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject ('wscript. shell ')'현재 사용자 이름 가져 오기 UserName = objshell.ExpandEnvironmentStrings ( '% UserName %') '데스크톱에 텍스트 파일 만들기 fName ='C : Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Set fso = CreateObject ('Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function
- 위의 텍스트를 바탕 화면에서 '.vbs'확장자를 가진 파일에 저장합니다.
추가 팁 : '.vbs'확장자를 사용하여 파일을 올바르게 저장하려면 큰 따옴표로 묶은 이름 (예 : 'BackupWindowsKey.vbs')을 입력 할 수 있습니다.
- 이제 BackupWindowsKey.vbs 파일을 엽니 다.
- 짜잔, 제품 키가 화면에 표시됩니다!
BackupWindowsKey.vbs 파일을 다운로드하려면 여기를 클릭하십시오.
이 트릭을 Windows 7, Windows 8 및 Windows 10에서 테스트했습니다. 언급 된 모든 운영 체제에서 완벽하게 작동합니다. 크레딧 : MDL에서 무용지물 .