用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確定腳本正在哪一個帳戶下運行