Change windows CD Key in Registry
$20-25 USD
Pagado a la entrega
I am looking for someone to show me how to use the following visualbasic script code in a vb6 project.
I want to be able to convert the following code and use it inside a vb6 project.
The code has come from the Microsoft Site and is used to change the Windows CD Key.
The code is vbs but I want to know how to use it in a vb6 project with comments please.
I want a simple form with 5 text boxes and a command button which will change the Windows CD Key based on the information supplied in the text boxes. Simple error checking is also required.
Code example taken from microsoft.
<[url removed, login to view];en-us;328874>
' WMI Script - [url removed, login to view]
'
' This script changes the product key on the computer
'
'***************************************************************************
ON ERROR RESUME NEXT
if [url removed, login to view]<1 then
[url removed, login to view] "Script can't run without VolumeProductKey argument"
[url removed, login to view] "Correct usage: Cscript [url removed, login to view] ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
[url removed, login to view]
end if
Dim VOL_PROD_KEY
VOL_PROD_KEY = [url removed, login to view](0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = [url removed, login to view] (VOL_PROD_KEY)
if err <> 0 then
[url removed, login to view] [url removed, login to view], "0x" & Hex([url removed, login to view])
[url removed, login to view]
end if
Next
## Deliverables
1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Also required to have the code commented so I can learn from it
2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables):
## Platform
Windows XP
Nº del proyecto: #3711974