라이브 시스템이나 오프라인 컴퓨터의 레지스트리 하이브에서 제품 키를 추출하는 많은 도구가 있습니다. 또한 여기에는 타사 프로그램이 필요없는 현재 Windows 설치의 제품 키를 가져 오는 깔끔한 작은 Vbscript가 있습니다. 이 스크립트는 Windows 7, 8 및 Windows 10에서 작동합니다.
스크립트를 사용하여 Windows 10 제품 키보기
다음 코드를 메모장에 복사하고 파일을 GetProductKey.vbs로 저장합니다.
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 = "제품 이름 :"& objshell.RegRead (Path & "ProductName") ProductID = "제품 ID :"& objshell. RegRead (경로 및 "ProductID") ProductKey = "설치된 키 :"& ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey '파일에 저장하면 메시지 상자 표시 vbYes = MsgBox (ProductData & vblf & vblf & "파일로 저장 하시겠습니까?", vbYesNo + vbQuestion, "백업 Windows 키 정보") 그런 다음 ProductData 저장 경우 '이진을 문자로 변환 기능 ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput 마지막으로 keypart1, 'OS가 Windows 8인지 확인 isWin8 = (Key (66) \ 6) And 1 Key (66) = (키 (66) 및 & HF7) 또는 ((isWin8 And 2) * 4) i = 24 맵 = "BCDFGHJKMPQRTVWXY2346789"전류 = 0 j = 14 전류 = 전류 * 256 전류 = 키 (j + 키 오프셋) + 전류 Key (j + KeyOffset) = (현재 \ 24) Current = 현재 Mod 24 j = j -1 루프 동안 j> = 0 i = i -1 KeyOutput = Mid (맵, 현재 + 1, 1) & KeyOutput Last = 현재 루프 i> = 0 인 경우 (isWin8 = 1) 그렇다면 keypart1 = Mid (KeyOutput, 2, Last) insert = "N"KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Last = 0이면 KeyOutput = 삽입 및 KeyOutput 종료 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) Dim fso, fName, txt, objshell, UserName objshell = CreateObject ( "wscript. shell ") '현재 사용자 이름 가져 오기 UserName = objshell.ExpandEnvironmentStrings ("% UserName % ")'데스크톱에 텍스트 파일 만들기 fName ="C : \ Users \ "& UserName &"\ Desktop \ WindowsKeyInf o.txt "Set fso = CreateObject ("Scripting.FileSystemObject ") Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End 함수 출처 : Windows 제품 키 검색 · GitHub
Windows 설치의 제품 키를 찾기 위해 스크립트를 두 번 클릭하여 실행하십시오.
