手工法:
Click Start, click Run, type regedit, and then click OK.
- In the left pane, locate and then click the following registry subkey:
HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsNTCurrent VersionWPAEvents
- In the right pane, right-click OOBETimer, and then click Modify.
- Change at least one digit of the OOBETimer value to deactivate Windows.
- Click Start, click Run, type the following command, and then click OK:
%systemroot%system32oobemsoobe.exe /a
- Click Yes, I want to telephone a customer service representative to activate Windows, and then click Next.
- Click Change Product key, type the new product key in the New key boxes, and then click Update.
Note If the previous Activation Wizard screen appears again, click Remind me later, and then restart the computer.
- Repeat steps 6 and 7 to verify that Windows is started. Click OK when you receive the following message:
Windows is already activated. Click OK to exit.
- Install any Windows service packs that you want to install.
Note If you cannot restart Windows after you install a service pack, press F8 when you restart the computer, click Last Known Good Configuration, and then repeat this procedure.
脚本法:
ChangeVLKeySP1.vbs
ASP/Visual Basic代码
-
-
-
-
-
-
-
- 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.quit
- end if
-
- Dim VOL_PROD_KEY
- VOL_PROD_KEY = Wscript.arguments.Item(0)
- VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","")
-
- 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
ChangeVLKey2600.vbs
ASP/Visual Basic代码
-
-
-
-
-
-
-
- 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.quit
- end if
-
- Dim VOL_PROD_KEY
- VOL_PROD_KEY = Wscript.arguments.Item(0)
- VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","")
- Dim WshShell
- Set WshShell = WScript.CreateObject("WScript.Shell")
- WshShell.RegDelete "HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWPAEventsOOBETimer"
- 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