윈 도 우 윈도우8.1키를 찾아보았습니다.
2020.03.12 22:19
아래 올려주신글 https://windowsforum.kr/index.php?mid=lecture&document_srl=13030695&rnd=13033122#comment_13033122
이걸 보고 따라했는데 중간에 이해가 안가서 시행착오 해가면 머리 빠개지는줄 알았습니다. ^^
결국 찾아 냈네요. ^^
했던거 쉽게 풀어봤습니다.
실행창 열어놓고 아무것도 안하고 그냥 두면 됩니다.
텍스트 문장은 아래 문장 복사해서 붙여 넣으시면 됩니다.
"
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, 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
ConvertToKey = KeyOutput
End Function
"
붙여 넣었으면 다른이름으로 저장을 합니다.
여기서 확장자는 꼭 VBS 로 해야 합니다.
파일이 생성 되었네요. 이걸 열어보면 됩니다.
하고 보니 쉬운데 설명이 중간에 저의 이해력 부족으로 무진장 삽질을 했네요.^^
댓글 [7]
-
frolian 2020.03.12 22:28
-
cungice 2020.03.12 22:58
감사합니다. 수고 하셨습니다.
-
9802 2020.03.14 01:15
감사합니다
-
려니 2020.03.14 01:52
좋은정보 감사합니다..
수고하셨습니다
-
천소망 2020.03.14 21:23
그냥 메모장에 내용 집어넣고 저장한 후에, 확장자만 바꾸시면 간단합니다.
-
하늘은높고구름은뭉개구름 2020.03.15 10:16
그렇게 쉬운 방법이 있었네요.
감사합니다. ^^
-
tokyocafe 2020.03.17 15:16
호 신기하네요 어케된거죠?
Windows10 에서도 되는데요
번호 | 제목 | 글쓴이 | 조회 | 추천 | 등록일 |
---|---|---|---|---|---|
[공지] | 강좌 작성간 참고해주세요 | gooddew | - | - | - |
861 | 윈 도 우| 카조님 PE에 파일 넣는 방법입니다. [12] | 하늘은높고 | 2031 | 10 | 03-04 |
860 | 윈 도 우| PrincePE_V20 [52] |
|
2835 | 72 | 03-05 |
859 | 윈 도 우| 카리스마조님 PE Win10XPE34 의 내용설명 비교 [7] | 하늘은높고 | 2255 | 12 | 03-05 |
858 | 윈 도 우| PrincePE_V21 [30] |
|
2449 | 45 | 03-06 |
857 | 윈 도 우| 카리스마조님 PrincePE V21 실행 방법입니다. [19] | 하늘은높고 | 2715 | 19 | 03-06 |
856 | 윈 도 우| PrincePE_V22 [53] |
|
6602 | 59 | 03-06 |
855 | 윈 도 우| Win10XPE 시스템 속성 컴퓨터 이름 [12] |
|
2478 | 16 | 03-07 |
854 | 윈 도 우| 카리스마조님 마지막 PrincePE USB만들기 입니다. [27] | 하늘은높고 | 3415 | 33 | 03-10 |
853 | 윈 도 우| 카조님의 PrincePE_V36 버전을 USB에 마무리 하는 방법입... [36] | 하늘은높고 | 3878 | 36 | 03-10 |
852 | 소프트웨어| 텍스트를 음성으로 읽기 VBScript [25] | 지후빠 | 1657 | 10 | 03-11 |
851 | 윈 도 우| Windows 10 제품 키를 찾는 방법 [11] | VenusGirl | 11176 | 10 | 03-12 |
850 | 윈 도 우| 메모장으로 텍스트 스크랩 편하게하기 [5] |
|
1647 | 5 | 03-12 |
» | 윈 도 우| 윈도우8.1키를 찾아보았습니다. [7] | 하늘은높고 | 1502 | 6 | 03-12 |
848 | 소프트웨어| Total Commander 9.5x 32비트 및 64비트용 한국어 확장 메... [11] | VenusGirl | 4715 | 25 | 03-13 |
847 | 소프트웨어| UEFI 시스템 디스크 복사하기 ( TrueImage ) [10] | gooddew | 2428 | 22 | 03-14 |
846 | 서버 / IT| Wireless PXE 부팅 서버 구축하기 [6] | gooddew | 1398 | 6 | 03-14 |
845 | 윈 도 우| WinRE 복구에 대해서.............. [4] | 밤이슬216 | 1391 | 8 | 03-15 |
844 | 기 타| [추가2] 파일/폴더들을 새로운 폴더 만들어 이동 VBS [13] | 지후빠 | 1295 | 10 | 03-15 |
843 | 윈 도 우| PE에서 Edge 즐겨찾기 유지하기 [26] | 선우 | 1289 | 12 | 03-16 |
842 | 소프트웨어| USB 로 UEFI 와 MBR 로 부팅 되도록 ISO 파일 설치하기 [42] | 좋은이웃 | 7072 | 57 | 03-17 |
수고 하셨습니다.