file_id.diz: Windows XP Pro Volume License Key Keygen and Keychanger. Works with SP0, SP1, SP1a to allow SP2 to be installed safely. By: 'This space intentionally left blank.' Created: 7-9-2004 Tested: VMWare, SP2 RC2 sp0 Key Changer.vbs: On Error Resume Next Dim sKey Dim oShell If MsgBox("Warning: This script is designed to work only on systems tha t do not any service packs installed. Continue?", vbExclamation Or vbYe sNo) = vbYes Then sKey = InputBox("Please paste the product key you generated.") If sKey <> "" Then sKey = Replace(sKey, "-", "") Set oShell = WScript.CreateObject("WScript.Shell") oShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ WPAEvents\OOBETimer" For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate} ").InstancesOf("win32_WindowsProductActivation") result = Obj.SetProductKey(sKey) If Err <> 0 Then WScript.Echo Err.Description, "0x" & Hex(E rr.Number) Err.Clear End If Next End If MsgBox "Restart the computer for settings to take effect.", vbI nformation End If sp1 Key Changer.vbs: On Error Resume Next Dim sKey If MsgBox("Warning: This script is designed to work only on systems tha t have service pack 1 or 1a installed. Continue?", vbExclamatio n Or vbYesNo) = vbYes Then sKey = InputBox("Please paste the product key you generated.") If sKey <> "" Then sKey = Replace(sKey, "-", "") For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate} ").InstancesOf("win32_WindowsProductActivation") result = Obj.SetProductKey(sKey) If Err <> 0 Then MsgBox Err.Description, "0x" & Hex(Er r.Number) Err.Clear End If Next End If MsgBox "Restart the computer for settings to take effect.", vbI nformation End If Instructions.nfo: Assumes: Running Windows XP Pro (Volume License Key) on an x86 compatible s ystem, installed with an illegitimate key. Potential problems: May require antivirus to be turned off when running the scri pt files as antivirus programs usually block these. Warning: Run this before installing SP2 as installing SP2 may prevent you from r unning this afterwards. 1. Virus scan this package. 2. Run "KeyGen.exe." 3. Set 'Product Family' to "Windows XP Pro. VLK". 4. Change 'From' from "0" to "500". 5. Change 'To' from "999999" to "6&# 48;0". 6. Click 'Generate'. 7. Select/Copy entire key, including hyphens. 8a. If you are currently running Service Pack 1 or Service Pack 1a, run "sp1 Key Changer.vbs". 8b. If you are not currently running any Service Packs, run "sp0 Key Cha nger.vbs". 9. Confirm your service pack status. 10. Paste the key into the text box when prompted so and click 'OK'. 11. Click 'OK'. 12. Restart the computer. 13. Install Service Pack 2 as per the instructions provided by Microsoft. 14. Share this package, unmodified, on multiple P2P file sharing systems, we bsites, and the Usenet Credits: This space intentionally left blank. Created/Tested: 7-9-2004

Looking for real sex? Find someone now on the largest sex personals network. FREE signup! Post a FREE erotic ad w/5 photos, flirt in chatrooms, view explicit live Webcams, meet for REAL sex! 30,000 new photos every day! Find SEX now!