Resolving winxp with vbs You are a victim of pirated software tips

  
First, create a text file and enter the following information: Copy Code
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&vbCr&" This program will automatically replace your current Windows serial number, fully verified by Microsoft "&vbCr&vbCr&" serial number (OEM version is invalid, default version is XP VLK): ","Windows XP serial number autochanger", "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 "O K! Go to Microsoft to verify it!"
end if
if err <> 0 then
Wscript.echo "Replacement failed! The input CD-KEY does not match the current version."
Err.Clear
end if
Next
Save the file in turn to open the "Tools" on the top left of the screen - "Folder Options" - "View" Put "Hide the name of the known file type" in front of The hook is removed and the name of the text file is changed to "key.vbs". Double click to run OK~~ Note: The default format of the text file is "XXXX.TXT". When we change the name, we put the following "TXT". "Remove the direct input "key.vbs" and it will be OK.
Copyright © Windows knowledge All Rights Reserved