First, create a blank notepad, and then copy the following command to the previous blank notepad:
On Error resume next
Dim vol_prod_key
If wscript. Arguments. Count <1 then
Vol_prod_key = inputbox ("poweredHttp://www.liuyebo.com/archives/200801/www.liuyebo.com"& Vbcr &"ProgramThe serial number of your current windows will be automatically replaced, and the full genuine version will be verified 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
Finally, save the notepad file named key. vbs)
Notepad automatically saves it as the key file, and double-click the file to verify it through XP.
The stars in the lower right corner will automatically disappear and no longer prompt piracy!
Very useful.