ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if <1 then
VOL_PROD_KEY=InputBox("Powered By "&vbCr&vbCr&" This program will automatically replace your current Windows serial number and verify it completely authentic through Microsoft. "&vbCr&vbCr&" Serial number (OEM version is invalid, the default version is XP VLK): ","Windows XP Serial Number Automatic Changer","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
end if
else
VOL_PROD_KEY = (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 = (VOL_PROD_KEY)
if err = 0 then
"OK! Go to Microsoft to verify!"
end if
if err <> 0 then
"Replacement failed! The entered CD-KEY does not match the current version."
end if
Next