Jump to content

How to reset your Serial Number in Windows XP


FthrJACK

Recommended Posts

  • 2 months later...

  • 4 months later...
  • 3 weeks later...
Guest shivamparikh

is there a similar tweak to make the TRIAL versions of WindowsXP (120/180 day trial) and Windows 2003 Server (180 days trial) make them

full version or non-trial limited?

Link to comment
Share on other sites

  • 1 month later...

This also works for resetting your cd key on a Windows XP w/SP1 computer:

' 
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
'***************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
  Wscript.echo "Script can't run without VolumeProductKey argument"
  Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
  Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

  result = Obj.SetProductKey (VOL_PROD_KEY)

  if err <> 0 then
     WScript.Echo Err.Description, "0x" & Hex(Err.Number)
     Err.Clear
  end if

Next

This will reset your cd key on a Windows XP Computer WITHOUT SP1

' 
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
'***************************************************************************

ON ERROR RESUME NEXT

if Wscript.arguments.count<1 then
  Wscript.echo "Script can't run without VolumeProductKey argument"
  Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
  Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

  result = Obj.SetProductKey (VOL_PROD_KEY)

  if err <> 0 then
     WScript.Echo Err.Description, "0x" & Hex(Err.Number)
     Err.Clear
  end if

Next

Original MS Article: http://support.microsoft.com/default.aspx?...;en-us;328874#5

Not sure if this only works on corp versions or not....

Link to comment
Share on other sites

  • 1 month later...
  • 3 weeks later...

for changing Microsoft Windows XP Professional you can use this :

Censored By my self ! this is warza and it seems that it is forbidden to ditribute them in this site !

:):rolleyes:

its quiet cool ! and of cours works on any XP Professional version !

and also it's a solusion for who that have problems with installins SP 1 !

Enjoy it !

:D:D

Link to comment
Share on other sites

  • 1 month later...

don't know about the posted links, but i've got to mention sometimes msoobe.exe /a does not do anything at all.

if this is your case register "licdll.dll" again with the command "regsvr32.exe licdll.dll" then do the steps mentioned above.

after changing the key with success you can unregister the DLL with "regsvr32.exe -u licdll.dll" again.

Greetings! :)

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...