编写一个脚本取消Windows激活通知气球

众所周知，用于测试的系统，尤其是虚拟机里的系统，没有必要去激活。但是系统仍然会不间断的弹出“激活Windows”的气球提示。

下面这段VBScript脚本可以取消计算机上的“Windows 激活”提醒通知。这并不意味着不需要激活计算机；它只是使用户看不到定期提醒。这段脚本需要 Windows XP 或 Windows Server 2003。


strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"!\\" & strComputer & "\root\cimv2")
Set colWPASettings = objWMIService.ExecQuery _
("Select * from Win32_WindowsProductActivation")
For Each objWPASetting in colWPASettings
objWPASetting.SetNotification(0)
Next