loading...

SCRIPT untuk menampilkan Product Key Microsoft

Dengan cara ini anda tidak perlu menggunakan aplikasi apa-apa untuk memeriksa CD Key produk Microsoft anda.
Cukup dengan sedikit code yang menggunakan bahasa Visual Basic Script, atau biasa disingkat VBS.
Silahkan copas script berikut ke text editor favorit anda, lalu simpan dengan nama Serial.vbs,

‘ ##############################################################
‘ # #
‘ # SCRIPT untuk menampilkan CD Key #
‘ # Microsoft Windows dan Microsoft Office 2003/2007 #
‘ # ———————————————————- #
‘ # Created by: Triwira #
‘ # #
‘ ##############################################################

CONST HKEY_LOCAL_MACHINE = &H80000002
CONST SEARCH_KEY = “DigitalProductID”
Dim arrSubKeys(4,1)
Dim foundKeys
Dim iValues, arrDPID
foundKeys = Array()
iValues = Array()
arrSubKeys(0,0) = “Microsoft Windows Product Key”
arrSubKeys(0,1) = “SOFTWARE\Microsoft\Windows NT\CurrentVersion”
arrSubKeys(2,0) = “Microsoft Office XP”
arrSubKeys(2,1) = “SOFTWARE\Microsoft\Office\10.0\Registration”
arrSubKeys(1,0) = “Microsoft Office 2003”
arrSubKeys(1,1) = “SOFTWARE\Microsoft\Office\11.0\Registration”
arrSubKeys(3,0) = “Microsoft Office 2007”
arrSubKeys(3,1) = “SOFTWARE\Microsoft\Office\12.0\Registration”
arrSubKeys(4,0) = “Microsoft Exchange Product Key”
arrSubKeys(4,1) = “SOFTWARE\Microsoft\Exchange\Setup”
strComputer = “.”
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\default:StdRegProv”)
For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1)
oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
Else
oReg.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys
If Not IsNull(arrGUIDKeys) Then
For Each GUIDKey In arrGUIDKeys
oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & “\” & GUIDKey, SEARCH_KEY, arrDPIDBytes
If Not IsNull(arrDPIDBytes) Then
call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
End If
Next
End If
End If
Next
MsgBox(“Selesai”)
Function decodeKey(iValues, strProduct)
Dim arrDPID
arrDPID = Array()
For i = 52 to 66
ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
arrDPID( UBound(arrDPID) ) = iValues(i)
Next
Dim arrChars
arrChars = Array(“B”,”C”,”D”,”F”,”G”,”H”,”J”,”K”,”M”,”P”,”Q”,”R”,”T”,”V”,”W”,”X”,”Y”,”2″,”3″,”4″,”6″,”7″,”8″,”9″)
For i = 24 To 0 Step -1
k = 0
For j = 14 To 0 Step -1
k = k * 256 Xor arrDPID(j)
arrDPID(j) = Int(k / 24)
k = k Mod 24
Next
strProductKey = arrChars(k) & strProductKey
If i Mod 5 = 0 And i <> 0 Then strProductKey = “-” & strProductKey
Next
ReDim Preserve foundKeys( UBound(foundKeys) + 1 )
foundKeys( UBound(foundKeys) ) = strProductKey
strKey = UBound(foundKeys)
MsgBox strProduct & vbNewLine & vbNewLine & foundKeys(strKey)
End Function

13 Responses to SCRIPT untuk menampilkan Product Key Microsoft

  1. … [Trackback]

    […] Find More on|Find More|Find More Infos here|There you can find 48004 more Infos|Informations to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  2. zdporn.com says:

    … [Trackback]

    […] Read More here|Read More|Find More Infos here|Here you will find 82466 more Infos|Infos on that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  3. … [Trackback]

    […] Find More here|Find More|Read More Infos here|Here you will find 42415 additional Infos|Informations to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  4. … [Trackback]

    […] Find More on|Find More|Find More Infos here|There you can find 18551 more Infos|Infos to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  5. … [Trackback]

    […] Find More here|Find More|Read More Infos here|Here you will find 6022 additional Infos|Informations to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  6. … [Trackback]

    […] Find More on|Find More|Find More Informations here|There you can find 47773 more Informations|Informations to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  7. … [Trackback]

    […] Find More here|Find More|Find More Infos here|There you will find 14657 additional Infos|Infos to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  8. … [Trackback]

    […] Find More on|Find More|Read More Infos here|There you can find 7510 more Infos|Informations to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  9. … [Trackback]

    […] Read More on|Read More|Read More Informations here|There you can find 27448 more Informations|Infos to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  10. … [Trackback]

    […] Find More here|Find More|Find More Informations here|Here you will find 58195 more Informations|Infos on that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  11. … [Trackback]

    […] Read More on|Read More|Find More Infos here|Here you can find 3897 additional Infos|Informations to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  12. … [Trackback]

    […] Find More on|Find More|Find More Informations here|There you can find 67368 more Informations|Infos on that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

  13. Bdsm chat says:

    … [Trackback]

    […] Read More here|Read More|Read More Infos here|Here you will find 86821 additional Infos|Infos on that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]

Mari berdiskusi dengan santun...