윈도우에서 라이센스키를 확인 하는 방법

Go down

윈도우에서 라이센스키를 확인 하는 방법  Empty 윈도우에서 라이센스키를 확인 하는 방법

올리기  Admin 2018-09-25, 2:04 pm

정품키를 잊어 버리신 분들중에 내 컴퓨터에 설치된 정품 라이센스키를 확인 하는 방법
여러가지 정품키를 알아 보는 프로그램이 있지만.. 이것이 안전하고 간편한듯합니다..

설치된 윈도우에서 시디키 확인하기

윈도우 xp , vista , 7 에서 확인하는 방법 해당 파일 : 윈도우7이하.vbs
아래 테이블에 있는 코드를 메모장에 붙혀넣기 한 다음 확장자를 .vbs 변경합니다.

Set WshShell = WScript.CreateObject("WScript.Shell")

KeyPath = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"
MsgBox ExtractKey(WshShell.RegRead(KeyPath))

Function ExtractKey(KeyInput)
Const KeyOffset = 52
i = 28
CharWhitelist = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = KeyInput(x + KeyOffset) + Cur
KeyInput(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(CharWhitelist, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ExtractKey = KeyOutput

End Function


윈도우 8 , 10 에서 확인하는 방법 해당 파일 : 윈도우 8,10.vbs
아래 테이블에 있는 내용을 메모장에 붙혀넣기 한 다음 확장자를 ,vbs 로 변경하고 실행합니다.

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
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & 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 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


- 메모장을 열어 해당 내용을 복사해서 붙혀 넣기 한다음 다른 이름으로 저장해서 실행하면 아주 잘 됩니다.
- 메모장에서 바로 저장후 바탕하면에서 해당 파일의 확장자만 변경해도 됩니다.

--------------------------------------------

윈도우7, 8, 10 제품키 분실시 확인하는 방법

윈도우가 설치되어 있는 PC나 태블릿 등에서 여러가지 문제로 인하여
윈도우를 재 설치하여야 할때, 꼭 필요한 것중에 하나가 바로, 제품키입니다.
기본적으로 윈도우 정품유저라면, 제품키를 어떤 형태로든 보유하고 있을 것입니다.
하지만 위와같은 상황에서 제품키를 분실하였다면?
이런 경우, 현재 내 PC나 태블릿 등에 설치된 정품 제품키를 확인할 수 있는 방법이 있습니다.

아래와 같은 절차를 따라하기만 하면 됩니다.

윈도우 7, 8, 10에서 동일하게 확인할 수 있습니다.

1. 실행창 (윈도우키 + R)에 명령프롬프트(CMD)를 실행합니다.
2. 명령 프롬프트 창이 실행되면,
아래의 명령어를 입력하고 실행하면 됩니다.
wmic path softwarelicensingservice get 0a3xOriginalProductKey
3. 명령어를 실행하면 제품키가 노출됩니다.

Admin
Admin

게시물 갯수 : 182
Join date : 2011-12-11

https://hyora.forumkorean.com

위로 Go down

위로

- Similar topics

 
Permissions in this forum:
답글을 올릴 수 없습니다