Subscribe tidak dipungut bayaran, mari dukung saya dengan klik tombol subscribe.
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: 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
Bagikan artikel ini:
Artikel ini dilidungi oleh DMCA Takedown Services & Website Content Protection. Dilarang Copy-Paste.
Yang mau ngajakin ngopi silahkan klik
Hai teman-teman, jangan lupa subscribe Channel Youtube saya.
Subscribe tidak dipungut bayaran, mari dukung saya dengan klik tombol subscribe.
Like Facebook Wira Loksado dengan menekan tombol "Suka" di bawah ini agar tetap update informasi terbaru:
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [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 […]
… [Trackback]
[…] Find More on|Find More|Find More Informations here|There you can find 2383 more Informations|Infos to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]
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
I was just searching for this information for a while.After 6 hours of continuous Googleing, at last I got it in your website.I wonder what is the lack of Google strategy that do not rank this kind of informative web sites in top of the list.Usually the top sites are full of garbage. Rules of Survival No Survey Android
Thank you, I’ve recently been searching for information about this topic for a while and yours is the greatest I’ve came upon so far.But, what in regards to the bottom line? Are you sure about the supply? heroes evolved item build
… [Trackback]
[…] Read More on|Read More|Read More Infos here|Here you will find 48152 more Infos|Infos to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]
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 ?????
… [Trackback]
[…] Find More on|Find More|Read More Infos here|There you can find 14839 more Infos|Infos to that Topic: blog.loksado.com/script-untuk-menampilkan-product-key-microsoft […]
You are a very intelligent individual! Heroes Evolved 2018 Hack
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
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
I do agree with all the ideas you’ve presented in your post.They are very convincing and will definitely work.Still, the posts are very short for beginners.Could you please extend them a bit from next time? Thanks for the post. Rules of Survival Cheat
Hey there, I think your site might be having browser compatibility issues.When I look at your blog in Safari, it looks fine but when opening in Internet Explorer, it has some overlapping.I just wanted to give you a quick heads up! Other then that, superb blog! Heroes Evolved Mod Hack
Normally I don’t read article on blogs, but I wish to say that this write-up very forced me to try and do so! Your writing style has been surprised me.Thanks, quite nice article. Heroes Evolved Cheat
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
I loved as much as you will receive carried out right here.The sketch is attractive, your authored subject matter stylish.nonetheless, you command get bought an nervousness over that you wish be delivering the following.unwell unquestionably come more formerly again since exactly the same nearly a lot often inside case you shield this hike. Cooking Fever hack tool review
I really like what you guys tend to be up too.This sort of clever work and exposure! Keep up the good works guys I’ve included you guys to my blogroll. Heroes Evolved 2018 Hack
Aw, this was a really nice post.In thought I would like to put in writing like this additionally – taking time and actual effort to make an excellent article…but what can I say…I procrastinate alot and by no means appear to get one thing done. Heroes Evolved Glitch
obviously like your web site however you need to check the spelling on several of your posts.A number of them are rife with spelling problems and I to find it very troublesome to tell the truth nevertheless I’ll surely come back again. Jurassic Survival Unlimited Golds
I am curious to find out what blog platform you have been working with? I’m experiencing some small security problems with my latest site and I’d like to find something more secure.Do you have any suggestions? Dream League Soccer 2018 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
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
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
Spot on with this write-up, I actually suppose this website needs far more consideration.I’ll most likely be again to read way more, thanks for that info. IOS Mod Puzzle Game Cheat
Someone essentially help to make seriously posts I would state.This is the first time I frequented your web page and thus far? I amazed with the research you made to make this particular publish incredible.Great job! Destiny 6 Hack
This website online is mostly a walk-via for all the data you wanted about this and didn’t know who to ask.Glimpse here, and also you’ll positively discover it. Modded Game for Android
Hi there, I discovered your blog via Google whilst looking for a similar topic, your website came up, it seems good.I’ve bookmarked it in my google bookmarks. Apk Mod Game Cheat
Whats up this is kind of of off topic but I was wondering if blogs use WYSIWYG editors or if you have to manually code with HTML.I’m starting a blog soon but have no coding skills so I wanted to get advice from someone with experience.Any help would be enormously appreciated! 8 Ball Pool hack generator
You really make it seem so easy with your presentation but I find this matter to be really something which I think I would never understand.It seems too complicated and extremely broad for me.I am looking forward for your next post, I will try to get the hang of it! Jurassic Survival Unlimited Golds
very nice publish, i certainly love this website, keep on it world war heroes hack tool without survey
Your home is valueble for me.Thanks!… Dream League Soccer 2018 hack for iphone
Oh my goodness! a tremendous article dude.Thanks However I am experiencing situation with ur rss .Don’t know why Unable to subscribe to it.Is there anybody getting similar rss problem? Anybody who is aware of kindly respond.Thnkx Last Day on Earth Survival hack no human verification
I like the valuable info you provide in your articles.I will bookmark your weblog and check again here frequently.I’m quite certain I will learn plenty of new stuff right here! Best of luck for the next! Heroes Evolved Hack
Simply desire to say your article is as astonishing.The clearness in your post is simply great and i can assume you are an expert on this subject.Fine with your permission let me to grab your RSS feed to keep up to date with forthcoming post.Thanks a million and please carry on the enjoyable work. Heroes Evolved iPhone Mod
Thanks a bunch for sharing this with all of us you actually know what you are talking about! Bookmarked.Please also visit my web site =).We could have a link exchange arrangement between us! world war heroes hack tool without survey
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
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
I don’t even know how I ended up here, but I thought this post was great.I don’t know who you are but definitely you are going to a famous blogger if you aren’t already 😉 Cheers! The Sims FreePlay cheats ios
I am really enjoying the theme/design of your site.Do you ever run into any web browser compatibility problems? A few of my blog audience have complained about my blog not working correctly in Explorer but looks great in Firefox.Do you have any advice to help fix this issue? Android Adventure Game Hack
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
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
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