用vbs实现禁用服务

2019-10-26 17:59:03

字体：大中小

来源：转载

供稿：网友

问：
您好，脚本专家！如何禁用服务？
-- DS
答：
您好，DS。您知道吗，脚本专家似乎无意中发现了一个好主意。在上期专栏中，我们向大家介绍了如何禁用 LMHosts 文件。今天，我们将向大家介绍如何禁用服务。如果我们这样继续下去的话，不久，我们便可将如何禁用计算机上的一切介绍给大家。请想象一下：不再有网络问题，不再有客户服务中心呼叫，不再有用户覆盖了不应覆盖的文件。我们所要做的就是禁用一切，从而所有这些问题都将消失！这可以是我们通往幸福时光的入场券。
不可否认，禁用计算机上的一切可能导致贵组织出现其他问题。但这只是需要由你们来处理的内部事务。
此外，我们可能忙于数钱而无法帮助您。
当然，在钞票开始滚滚而来之前，我们仍不得不编写此专栏，我们仍不得不付帐。正因为明确这一点，我们在下面提供了在计算机上禁用 Alerter 服务的脚本：
复制代码代码如下:

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 子句。在这种情况下，您的集合将包含安装在计算机上的所有服务，那么，你的脚本将尽职尽责地试图禁用每个服务。

上一篇：编写可以打开文本文件并打乱在该文件中所找到的单词顺序的

下一篇：用vbs确定脚本正在哪一个帐户下运行

学习交流

电脑开不了机的原因和解决办法

电脑开不了机的原因和解决办法...

热门图片

猜你喜欢的新闻

猜你喜欢的关注