使用离线方法来激活 Windows。需要 Windows XP 或 Windows Server 2003、以及一个有效的激活编号。

脚本代码
[code]strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colWindowsProducts = objWMIService.ExecQuery _
("SELECT * FROM Win32_WindowsProductActivation")
For Each objWindowsProduct In colWindowsProducts
objWindowsProduct.ActivateOffline("1234-1234")
Next
[/code]