Windows Activation Scripting
Activate Windows OfflineActivate Windows Online
List Windows Product Activation Status
Suppress Windows Activation Notices
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
Activate Windows Offline
Uses the offline method to activate Windows. Requires a valid activation number
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
Activate Windows Online
Uses the online method to activate Windows. Requires an active Internet connection.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colWindowsProducts = objWMIService.ExecQuery _ ("Select * from Win32_WindowsProductActivation") For Each objWindowsProduct in colWindowsProducts objWindowsProduct.ActivateOnline() Next
List Windows Product Activation Status
Returns product activation information for a computer.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colWPA = objWMIService.ExecQuery _ ("Select * from Win32_WindowsProductActivation") For Each objWPA in colWPA Wscript.Echo "Activation Required: " & objWPA.ActivationRequired Wscript.Echo "Description: " & objWPA.Description Wscript.Echo "Product ID: " & objWPA.ProductID Wscript.Echo "Remaining Evaluation Period: " & _ objWPA.RemainingEvaluationPeriod Wscript.Echo "Remaining Grace Period: " & objWPA.RemainingGracePeriod Wscript.Echo "Server Name: " & objWPA.ServerName Next
Suppress Windows Activation Notices
Suppresses the Windows Activation reminder notices on a computer. This does not preclude the need to activate the computer; it simply prevents users from seeing the periodic reminders.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colWPASettings = objWMIService.ExecQuery _ ("Select * from Win32_WindowsProductActivation") For Each objWPASetting in colWPASettings objWPASetting.SetNotification(0) Next