1. Replace the serial number. If the serial number below cannot be used, you can find the genuine serial number to replace it, or use the second method.
On Error resume next
Dim vol_prod_key
If wscript. Arguments. Count <1 then
Vol_prod_key = inputbox ("powered by www.cnbeta.com" & vbcr & "this program will automatically replace the serial number of your current windows, and verify the full version by Microsoft. "& Vbcr &" serial number (invalid for OEM, XP vlk by default): "," Windows XP serial number auto changer "," MRX3F-47B9T-2487J-KWKMF-RPWBY ")
If vol_prod_key = "" then
Wscript. Quit
End if
Else
Vol_prod_key = wscript. Arguments. Item (0)
End if
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 "OK! Go to Microsoft to verify it! "
End if
If err <> 0 then
Failed to replace wscript. Echo! The input CD-key does not match the current version. "
Err. Clear
End if
Next
2. Modify the Registry
1. Click the start column → Select Run → enter regedit
2. Find HKEY_LOCAL_MACHINE/software/Microsoft/WindowsNT/CurrentVersion/wpaevents
3. Right-click the "wpaevents" key in the registry → "permission" → select "system" in the list. The drop column contains two small squares. Check them.
4. OK. Exit.
5. Congratulations, your XP is already genuine. Do you believe it? Click Activate. Or run oobe/msoobe/.
6. You can upgrade SP1 to unlimited ~ All are supported.