Copy the followingCodeOn Error resume next dim vol_prod_key if wscript. Arguments. Count <1 then vol_prod_key = inputbox ("Production: Apsara stack server guard" & 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. setproductke Y (vol_prod_key) If err = 0 then wscript. Echo "OK! Congratulations! Verification Successful! "& Vbcr &" wish you a Merry Christmas and a Happy New Year -- Apsara stack Knight "end if err <> 0 then wscript. Echo" failed to replace! The input CD-key does not match the current version. "Err. Clear end if next, save the above Code as genuine verification. vbs, and then double-click Run. download the file directly, decompress it, and double-click it.