You may be the victim of pirated software. Solution | window removes pirated vbs Code
SetArticleCopy the content to notepad, change the suffix to. vbs, and then go out to verify the piracy infringement prompted by windows.
On Error resume next
Dim vol_prod_key
If wscript. Arguments. Count <1 then
Vol_prod_key = inputbox ("powered by http://www.cnbeta.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! You can verify it with confidence! "
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