='body-fauxcolumns'>

Saturday 26 August 2017

Cara Melihat Product Key Windows Yang Hilang Tanpa Aplikasi

Jika anda berniat untuk menginstal ulang Windows namun tidak menemukan Product Key Windows hal ini akan membuat pusing tentunya, mungkin Anda bisa menghubungi Microsoft atau juga membeli Windows yang baru. Namun hal tersebut tentunya memerlukan waktu dan biaya. Namun jangan khawatir ada cara yang praktis dan mudah untuk menemukan Product Key Windows baik untuk komputer yang masih bisa booting normal ataupun sudah tidak bisa booting.

Berikut penjelasan cara menemukan Product Key Windows yang hilang :
Untuk komputer/ Windows yang masih bisa booting Anda dapat dengan mudah menemukan Product key windows tanpa bantuan software apapun, yaitu dengan bantuan sebuah Vbscript yang akan membaca file registry dan akan menampilkan product key dari Windows tersebut.
Pertama yang perlu dilakukan adalah Copy script dibawah ini kedalam Notepad kemudian simpan dengan nama productkey.vbs , pada Save As Type pilih All Files
 


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

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 
Atau bisa juga download scriptnya disini, Setelah disimpan, kemudian jalankan script tersebut dan hasilnya akan menampilkan seperti contoh berikut :
  
Selain dengan cara diatas Anda bisa menggunakan bantuan software NirSoft ProduKey untuk melihat product key windows bahkan untuk komputer yang sudah tidak bisa booting, dengan cara melepas hardisknya dan dipasang pada PC lain kemudian jalankan NirSoft ProduKey dan gunakan File > Select Source untuk memilih hardisk yang kamu pasang tadi ke folder Windows. 

Sumber :
http://perpustakaan-ku.com/cara-melihat-product-key-windows-yang-hilang/

 
at