strComputer = "." Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2") Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where Name = 'Alerter'") For Each objService in colServiceList If objService.State = "Running" Then objService.StopService() Wscript.Sleep 5000 End If errReturnCode = objService.ChangeStartMode("Disabled") Next
如您所见，禁用服务并不需要很多代码，并且所需的一小段代码都是很基础的代码。不过，有一个棘手的部分，这就是我们为什么将花几分钟时间逐步向您介绍此脚本的原因。 除此以外，不管怎样 Rolls Royce 经销权都不会多开放一小时。 脚本开始并没什么奇特之处：我们只是连接到本地计算机上的 WMI 服务（尽管我们也可以禁用远程计算机上的服务）。然后，我们发出以下查询，该查询返回一个仅包含一项的集合：Alerter 服务： Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where Name = 'Alerter'") 顺便说一下，请确保包括了如上所示的 Where 子句。为什么？设想一下，假设您省略了 Where 子句。在这种情况下，您的集合将包含安装在计算机上的所有服务，那么，你的脚本将尽职尽责地试图禁用每个服务。 您说对了：这通常不是什么好事。此外，脚本专家可能会控告您；毕竟，禁用计算机上的一切是我们的主意！ 得到集合后，我们建立一个 For Each 循环以遍历该集合内的所有项。（是的，我们知道：集合中只有一项。但我们仍需使用 For Each 循环。）以下是棘手部分。您可以禁用运行中的服务；但是，该服务在停止运行前实际并未被禁用。如果禁用运行中的服务，该服务会一如既往地继续运行；更改将在服务停止后才生效。 正因为如此，我们使用下面这行代码来查看 Alerter 服务是否正在运行： If objService.State = "Running" Then 如果该服务正在运行，那么我们就调用 StopService() 方法来停止该服务。之后我们暂停 5 秒（5,000 毫秒）；使得服务有时间在我们继续操作以禁用它之前真正停止。我们就是照下面这样做的： objService.StopService() Wscript.Sleep 5000 注意：为了使该示例脚本尽可能简短，我们做了些手脚。我们假设您的服务仅处于“运行”或“停止”状态。实际上，服务还可能包含其他状态，最显著地是“暂停”或“继续”。要编写一个更稳妥的脚本，您或许还应该检查这些状态（并采取相应的措施）。但是，因为在 99.9% 情况下，服务都处于运行或停止状态，所以您通常可以使用我们给出的脚本蒙混过去。 服务停止后，我们就可以使用下面这行代码禁用它： errReturnCode = objService.ChangeStartMode("Disabled") 如您所见，我们只是使用 ChangeStartMode 方法更改 StartMode 属性的值。我们要禁用该服务，所以我们将参数“Disabled”传递给 ChangeStartMode。我们还可以将 StartMode 设置为“Manual”或“Automatic”；这样会将 StartMode 设置为“手动”或“自动”。 请记住，服务被停止并禁用后，将无法再启动；重新启动该服务的唯一方法是重新启用它（通过将 StartMode 更改为“手动”或“自动”）。但是，我们会等到说服每个人禁用其计算机上的一切后，才介绍如何重新启用这些东西。毕竟，我们也许能够对这些脚本收取双倍的费用。
