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 更改為“手動”或“自動”）。但是，我們會等到說服每個人禁用其計算機上的一切后，才介紹如何重新啟用這些東西。畢竟，我們也許能夠對這些腳本收取雙倍的費用。
