Monday, 5 December 2016

Cara Melihat Product Key / Lisensi Windows dan Office

Tags

Pada saat install ulang Windows atau Office kita diharuskan untuk memasukkan Serial Key agar Operating System atau software yang kita gunakan menjadi genuine, dan jika kamu berniat untuk install ulang Windows maka sangat penting sekali untuk mencatat Product Key yang ada.

Namun bagaimana jika Product Key yang kamu punya hilang atau kamu belum pernah melihat product key yang ada di PC milikmu, kamu tidak perlu panik karena kali ini kita akan melihat bagaimana cara menemukan serial key windows dan office. 
Cara Menampilkan Product Key Windows dan Office
Serial Key Windows dan Office

Cara Menemukan Produk Key Windows Tanpa Software Tambahan.

Cara pertama sangatlah mudah karena kita tidak perlu menggunakan software apapun, cukup dengan sedikit script di bawah kalian sudah bisa melihat Serial Key Windows.

copy dan paste script berikut di Notepad :


Set WshShell = CreateObject("WScript.Shell")
Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalID = WshShell.RegRead(key & "DigitalProductId")

ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductID = ProductName & ProductID & ProductKey

If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
Save ProductID
End if

Function ConvertToKey(Key)
Const KeyOffset = 52
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
X = 14
Do
Cur = Cur * 256
Cur = Key(X + KeyOffset) + Cur
Key(X + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
X = X -1
Loop While X >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
Last = Cur
Loop While i >= 0
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
a = Mid(KeyOutput, 1, 5)
b = Mid(KeyOutput, 6, 5)
c = Mid(KeyOutput, 11, 5)
d = Mid(KeyOutput, 16, 5)
e = Mid(KeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Function Save(Data)
Const ForWRITING = 2
Const asASCII = 0
Dim fso, f, fName, ts
fName = "SerialKeyWindows.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fName
Set f = fso.GetFile(fName)
Set f = f.OpenAsTextStream(ForWRITING, asASCII)
f.Writeline Data
f.Close
End Function


save dengan nama terserah dan ganti save as type menjadi all files save dengan ekstensi .vbs 

Cara Melihat Lisensi Windows 10 dan Office tanpa software

Setelah tersimpan cukup klik dua kali maka serial key Windows kamu akan di tampilkan. 

Cara Menampilkan Serial Key Windows dan Office. 

Lalu bagaimana cara menemukan serial key Windows beserta office sekaligus, caranya cukup mudah kamu hanya perlu menginstall sebuah software gratis yaitu Nirsoft ProductKey. Kamu bisa menggunakannya tanpa perlu membayar karena software ini gratis. 

Kamu bisa mengunduhnya di tautan berikut, saya sarankan untuk mengunduh versi portable (.zip) 

Setelah terunduh jalankan Nirsoft Product Key dan secara otomatis Produk Key Windows dan Office kalian akan di tampilkan. 

Cukup mudah bukan.. setelah mengetahui Serial Key Windows beserta Office maka kalian tidak akan kebingungan lagi saat akan install ulang Windows ataupun Microsoft Office. Selamat Mencoba!

Pendiam, cuek, pemalu, introvert, suka bercanda, sekali jatuh susah bangun 🤙