Change windows CD Key in Registry

Completado Publicado May 11, 2005 Pagado a la entrega
Completado 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

Software integrado Ingeniería Microsoft MySQL PHP Arquitectura de software Verificación de software Windows Desktop

Nº del proyecto: #3711974

Sobre el proyecto

3 propuestas Proyecto remoto Activo May 11, 2005

Adjudicado a:

godigital

See private message.

$7 USD en 1 día
(9 comentarios)
3.3

3 freelancers están ofertando un promedio de $17 por este trabajo

thethirdinc

See private message.

$21.25 USD en 1 día
(8 comentarios)
2.7
chikuvw

See private message.

$21.25 USD en 1 día
(0 comentarios)
0.0