XP serial number replacement tool implemented by vbs

CopyCode The Code is as follows: on error resume next

Dim vol_prod_key
If wscript. Arguments. Count <1 then
Vol_prod_key = inputbox ("BenProgramIt helps you change the serial number of Windows XP. "& Vbcr &" serial number is searched and entered by you. The serial numbers listed below are not necessarily your current serial numbers. They are for format reference only. "& Vbcr &" Enter the new serial number: "," WindowsXP serial number changer by Donghai "," 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 "modified successfully. Click the included website to go to the Microsoft website for verification. Good luck! "
End if

If err <> 0 then
Failed to replace wscript. Echo! The serial number you entered is incorrect. "
Err. Clear
End if

Next