Friday, June 26, 2009

Windows XP keychange and windows updates

1.Copy the following text save with notepad extension example.vbs2.This file copy to c:\3.Open the Run box c:\example.vbs V2C47-MK7JD-3R89F-D2KXW-VPK3J4.After that you restart the computer.5.You can install windows updates.6.This key is OK for windows updates and windows genius and etc...,

' ' WMI Script - ChangeVLKey.vbs'' This script changes the product key on the computer''***************************************************************************
ON ERROR RESUME NEXT
if Wscript.arguments.count<1 then Wscript.echo "Script can't run without VolumeProductKey argument" Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX" Wscript.quitend if
Dim VOL_PROD_KEYVOL_PROD_KEY = Wscript.arguments.Item(0)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 Err.Description, "0x" & Hex(Err.Number) Err.Clear end if
Next

No comments: