Cara Melihat Product Key / Lisensi Windows dan Office

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

Namun bagaimana jikalau Product Key yang kau punya hilang atau kau 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. 

Serial Key Windows dan Office

Cara Menemukan Produk Key Windows Tanpa Software Tambahan.

Cara pertama sangatlah praktis karena kita tidak perlu memakai software apapun, cukup dengan sedikit script di bawah kalian sudah mampu 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

Download ProductKey.vbs

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

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 kau hanya perlu menginstall sebuah software gratis ialah Nirsoft ProductKey. Kamu bisa menggunakannya tanpa perlu membayar lantaran software ini gratis. 

Kamu mampu mengunduhnya di tautan berikut, aku 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 praktis bukan.. sesudah mengetahui Serial Key Windows beserta Office maka kalian tidak akan kebingungan lagi dikala akan install ulang Windows ataupun Microsoft Office. Selamat Mencoba!

Bagikan di Facebook

Bagikan di Twitter

Bagikan di Google+

Bagikan di LinkedIn