Cara Mengetahui Key Windows Melalui Script Visual Basic

Antusias Teknologi – Ingin mengetahui serial key produk Windows yang anda pakai saat ini, selain menggunakan utility aplikasi seperti ProduKey, anda juga dapat mengetahuinya melalui script visual basic, anda tinggal membuat scriptnya dengan teks editor seperti Notepad++, simpan dan jalankan, dalam sekejap anda bisa mengetahui serial dari windows.

Pertama silahkan anda copy/paste script dibawah ke Notepad atau Notepad++. Jika belum punya aplikasinya, anda bisa mendownloadnya disini:
https://notepad-plus-plus.org/download

Set WshShell = CreateObject("WScript.Shell")
 MsgBox ConvertToKey(WshShell.RegRead("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId"))
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

Kemudian simpan script tersebut dengan akhiran .vbs dalam kotak box misalnya seperti pada gambar dibawah.

Klik save dan bukalah folder tempat anda menyimpan script tadi, klik dua kali untuk menjalankannya.

Maka akan ditampilkan produk key windows yang anda gunakan.

Selamat mencoba.