Menu Close

Script untuk menampilkan Product Key Microsoft Office

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,

loading...
loading...

' ##############################################################
' # #
' # SCRIPT untuk menampilkan CD Key #
' # Microsoft Windows dan Microsoft Office 2003/2007 #
' # ---------------------------------------------------------- #
' # Created by: Wira Loksado#
' # #
' ##############################################################
'
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


DMCA.com Protection Status
Artikel ini dilidungi oleh DMCA Takedown Services & Website Content Protection. Dilarang Copy-Paste.
Yang mau ngajakin ngopi silahkan klik
Jangan lupa like kami di Facebook untuk update informasi terbaru:

Artikel ini berada dalam kategori Visual Basic

Artikel Terkait:

54 Comments

  1. Pingback:tooth implants Jupiter

  2. Pingback:zdporn.com

  3. Pingback:Eavestrough Cleaning

  4. Pingback:3598-6629 ?????????

  5. Pingback:agen bola terpercaya

  6. Pingback:masini de inghetata pret

  7. Pingback:roof contractor near me

  8. Pingback:click for info

  9. Pingback:engineering uodiyala

  10. Pingback:sscn.bkn.go.id 2018

  11. Pingback:how to make money with a iphone

  12. Pingback:Stix Event Management

  13. Pingback:Bdsm chat

  14. Pingback:???? ??????? ?????? ????????? ?????

  15. Destiny 6 Cheat

    My programmer is trying to convince me to move to .net from PHP.I have always disliked the idea because of the expenses.But he’s tryiong none the less.I’ve been using Movable-type on numerous websites for about a year and am concerned about switching to another platform.I have heard very good things about blogengine.net.Is there a way I can transfer all my wordpress posts into it? Any help would be really appreciated! Destiny 6 Cheat

  16. Pingback:sscn bkn d

  17. ??????? goon ?????

    After research a number of of the blog posts on your website now, and I really like your method of blogging.I bookmarked it to my bookmark website checklist and will likely be checking back soon.Pls check out my web page as effectively and let me know what you think. ??????? goon ?????

  18. Pingback:Engineer Aws UoD Alkhazraji

  19. Rules of Survival Cheat

    There are definitely a number of details like that to take into consideration.That is a great level to convey up.I offer the ideas above as normal inspiration but clearly there are questions like the one you carry up the place crucial thing shall be working in trustworthy good faith.I don?t know if greatest practices have emerged round issues like that, however I’m positive that your job is clearly identified as a good game.Both girls and boys really feel the influence of only a moment’s pleasure, for the rest of their lives. Rules of Survival Cheat

  20. jurassic survival guide

    I know this if off topic but I’m looking into starting my own blog and was curious what all is required to get set up? I’m assuming having a blog like yours would cost a pretty penny? I’m not very internet smart so I’m not 100% sure.Any tips or advice would be greatly appreciated.Thank you jurassic survival guide

  21. Last Day On Earth Cheats

    I was wondering if you ever thought of changing the layout of your blog? Its very well written; I love what youve got to say.But maybe you could a little more in the way of content so people could connect with it better.Youve got an awful lot of text for only having one or 2 images.Maybe you could space it out better? Last Day On Earth Cheats

  22. Heroes Evolved Apk Hack

    Definitely believe that that you stated.Your favorite justification appeared to be on the web the simplest thing to take into accout of.I say to you, I certainly get annoyed at the same time as other folks think about worries that they just don’t recognise about.You managed to hit the nail upon the highest and also outlined out the whole thing without having side-effects , folks could take a signal.Will likely be back to get more.Thank you Heroes Evolved Apk Hack

  23. Apk Mod Game Cheat

    Wonderful goods from you, man.I have understand your stuff previous to and you’re just too fantastic.I actually like what you’ve acquired here, really like what you are saying and the way in which you say it.You make it entertaining and you still take care of to keep it wise.I can’t wait to read much more from you.This is actually a terrific site. Apk Mod Game Cheat

  24. Game Mod Hack

    Thanks for your marvelous posting! I genuinely enjoyed reading it, you could be a great author.I will be sure to bookmark your blog and will eventually come back later on.I want to encourage that you continue your great job, have a nice afternoon! Game Mod Hack

  25. Heroes Evolved Hack

    Woah! I’m really enjoying the template/theme of this blog.It’s simple, yet effective.A lot of times it’s very hard to get that “perfect balance” between superb usability and visual appeal.I must say you’ve done a very good job with this.In addition, the blog loads super quick for me on Chrome.Superb Blog! Heroes Evolved Hack

  26. Apk Sport Mod Game Cheat

    hey there and thanks for your information – I’ve certainly picked up anything new from right here.I did alternatively experience a few technical issues the usage of this website, as I experienced to reload the site a lot of occasions previous to I could get it to load correctly.I had been considering if your web hosting is OK? Now not that I’m complaining, but sluggish loading circumstances times will often affect your placement in google and could damage your high quality ranking if advertising and ***********|advertising|advertising|advertising and *********** with Adwords.Anyway I’m including this RSS to my e-mail and can look out for a lot more of your respective interesting content.Make sure you update this once more soon.. Apk Sport Mod Game Cheat

  27. yeezy boost 350 v2

    There are actually a number of details like that to take into consideration. That is a nice point to bring up. I supply the thoughts above as basic inspiration however clearly there are questions just like the one you carry up the place an important factor shall be working in trustworthy good faith. I don?t know if best practices have emerged around issues like that, but I’m positive that your job is clearly identified as a fair game. Both girls and boys feel the impression of only a moment抯 pleasure, for the rest of their lives.
    yeezy boost 350 v2 http://linkrag.com/GNGIzD

  28. nike flyknit

    I would like to show some thanks to the writer just for rescuing me from such a matter. Just after checking throughout the the net and finding techniques which are not helpful, I assumed my life was well over. Existing minus the solutions to the problems you have sorted out as a result of your entire guideline is a crucial case, as well as those that could have adversely affected my career if I had not come across your website. Your competence and kindness in handling a lot of stuff was precious. I’m not sure what I would have done if I hadn’t encountered such a point like this. It’s possible to now look ahead to my future. Thank you very much for the skilled and amazing help. I will not hesitate to endorse your web site to anybody who needs and wants tips about this problem.
    nike flyknit http://slnk.info/fav1s

  29. jordan 6

    Thank you a lot for providing individuals with an extremely terrific chance to check tips from here. It is always very enjoyable and as well , packed with a good time for me personally and my office friends to search your website on the least three times per week to study the newest issues you have. And definitely, I am just actually happy with all the great techniques served by you. Some 2 tips on this page are in fact the most impressive we have had.
    jordan 6 http://nah.uy/bd9qi4

Mari Berdiskusi