You may be the victim of pirated software. Solution | window removes pirated vbs code

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