스크립트를 사용하여 Windows 10 제품 키를 보는 방법

라이브 시스템이나 오프라인 컴퓨터의 레지스트리 하이브에서 제품 키를 추출하는 많은 도구가 있습니다. 또한 여기에는 타사 프로그램이 필요없는 현재 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 + 키 오프셋) + 전류 키 (j + KeyOffset) = (현재 \ 24) Current = 현재 Mod 24 j = j -1 루프 동안 j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 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 \ WindowsKeyI nfo.txt "Set fso = CreateObject ("Scripting.FileSystemObject ") Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function 

출처 : Windows 제품 키 검색 · GitHub

Windows 설치의 제품 키를 찾기 위해 스크립트를 두 번 클릭하여 실행하십시오.

Vbscript를 사용하여 검색 한 제품 키

관련 기사