First, create a text file and enter the following information:
CopyCode The Code is as follows: on error resume next
Dim vol_prod_key
If wscript. Arguments. Count <1 then
Vol_prod_key = inputbox ("powered by www.jb51.net" & vbcr &" Program The 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
Save files
Choose tools> Folder Options> View on the left of the screen"
Remove the hooks before "hide the names of known file types"
Then modify the name of the text file.
Change the name to "key. vbs" and double-click it to run it ~~
Note: The default format of text files is "XXXX. txt". When we modify the name, we will remove the following "TXT ".
enter "key. vbs" directly.