亚洲VA欧美VA天堂V国产综合 ,免费高清在线视频一色,欧美性色欧美精品视频69

主頁 > 知識庫 > 用vbs實(shí)現(xiàn)禁用服務(wù)

用vbs實(shí)現(xiàn)禁用服務(wù)

問：
您好，腳本專家！如何禁用服務(wù)？
-- DS
答：
您好，DS。您知道嗎，腳本專家似乎無意中發(fā)現(xiàn)了一個好主意。在上期專欄中，我們向大家介紹了如何禁用 LMHosts 文件。今天，我們將向大家介紹如何禁用服務(wù)。如果我們這樣繼續(xù)下去的話，不久，我們便可將如何禁用計(jì)算機(jī)上的一切介紹給大家。請想象一下：不再有網(wǎng)絡(luò)問題，不再有客戶服務(wù)中心呼叫，不再有用戶覆蓋了不應(yīng)覆蓋的文件。我們所要做的就是禁用一切，從而所有這些問題都將消失！這可以是我們通往幸福時光的入場券。
不可否認(rèn)，禁用計(jì)算機(jī)上的一切可能導(dǎo)致貴組織出現(xiàn)其他問題。但這只是需要由你們來處理的內(nèi)部事務(wù)。
此外，我們可能忙于數(shù)錢而無法幫助您。
當(dāng)然，在鈔票開始滾滾而來之前，我們?nèi)圆坏貌痪帉懘藢?，我們?nèi)圆坏貌桓稁?。正因?yàn)槊鞔_這一點(diǎn)，我們在下面提供了在計(jì)算機(jī)上禁用 Alerter 服務(wù)的腳本：

復(fù)制代碼代碼如下:

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 

如您所見，禁用服務(wù)并不需要很多代碼，并且所需的一小段代碼都是很基礎(chǔ)的代碼。不過，有一個棘手的部分，這就是我們?yōu)槭裁磳⒒◣追昼姇r間逐步向您介紹此腳本的原因。
除此以外，不管怎樣 Rolls Royce 經(jīng)銷權(quán)都不會多開放一小時。
腳本開始并沒什么奇特之處：我們只是連接到本地計(jì)算機(jī)上的 WMI 服務(wù)（盡管我們也可以禁用遠(yuǎn)程計(jì)算機(jī)上的服務(wù)）。然后，我們發(fā)出以下查詢，該查詢返回一個僅包含一項(xiàng)的集合：Alerter 服務(wù)：
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'Alerter'")
順便說一下，請確保包括了如上所示的 Where 子句。為什么？設(shè)想一下，假設(shè)您省略了 Where 子句。在這種情況下，您的集合將包含安裝在計(jì)算機(jī)上的所有服務(wù)，那么，你的腳本將盡職盡責(zé)地試圖禁用每個服務(wù)。
您說對了：這通常不是什么好事。此外，腳本專家可能會控告您；畢竟，禁用計(jì)算機(jī)上的一切是我們的主意！
得到集合后，我們建立一個 For Each 循環(huán)以遍歷該集合內(nèi)的所有項(xiàng)。（是的，我們知道：集合中只有一項(xiàng)。但我們?nèi)孕枋褂?nbsp;For Each 循環(huán)。）以下是棘手部分。您可以禁用運(yùn)行中的服務(wù)；但是，該服務(wù)在停止運(yùn)行前實(shí)際并未被禁用。如果禁用運(yùn)行中的服務(wù)，該服務(wù)會一如既往地繼續(xù)運(yùn)行；更改將在服務(wù)停止后才生效。
正因?yàn)槿绱耍覀兪褂孟旅孢@行代碼來查看 Alerter 服務(wù)是否正在運(yùn)行：
If objService.State = "Running" Then
如果該服務(wù)正在運(yùn)行，那么我們就調(diào)用 StopService() 方法來停止該服務(wù)。之后我們暫停 5 秒（5,000 毫秒）；使得服務(wù)有時間在我們繼續(xù)操作以禁用它之前真正停止。我們就是照下面這樣做的：
objService.StopService()
Wscript.Sleep 5000
注意：為了使該示例腳本盡可能簡短，我們做了些手腳。我們假設(shè)您的服務(wù)僅處于“運(yùn)行”或“停止”狀態(tài)。實(shí)際上，服務(wù)還可能包含其他狀態(tài)，最顯著地是“暫?！被颉袄^續(xù)”。要編寫一個更穩(wěn)妥的腳本，您或許還應(yīng)該檢查這些狀態(tài)（并采取相應(yīng)的措施）。但是，因?yàn)樵?nbsp;99.9% 情況下，服務(wù)都處于運(yùn)行或停止?fàn)顟B(tài)，所以您通?？梢允褂梦覀兘o出的腳本蒙混過去。
服務(wù)停止后，我們就可以使用下面這行代碼禁用它：
errReturnCode = objService.ChangeStartMode("Disabled")
如您所見，我們只是使用 ChangeStartMode 方法更改 StartMode 屬性的值。我們要禁用該服務(wù)，所以我們將參數(shù)“Disabled”傳遞給 ChangeStartMode。我們還可以將 StartMode 設(shè)置為“Manual”或“Automatic”；這樣會將 StartMode 設(shè)置為“手動”或“自動”。
請記住，服務(wù)被停止并禁用后，將無法再啟動；重新啟動該服務(wù)的唯一方法是重新啟用它（通過將 StartMode 更改為“手動”或“自動”）。但是，我們會等到說服每個人禁用其計(jì)算機(jī)上的一切后，才介紹如何重新啟用這些東西。畢竟，我們也許能夠?qū)@些腳本收取雙倍的費(fèi)用。

您可能感興趣的文章:

用vbs實(shí)現(xiàn)本地連接禁用/啟用腳本代碼
vbscript禁用啟用fso的方法
使用 iisext.vbs 禁用 Web 服務(wù)擴(kuò)展的方法
bat生成vbs通過注冊表禁用或啟用USB端口的代碼
使用VBS禁用、啟動USB存儲設(shè)備
VB實(shí)現(xiàn)禁用任務(wù)管理器的方法

標(biāo)簽：廣安嘉興臺灣延安漳州周口六安玉林

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用vbs實(shí)現(xiàn)禁用服務(wù)》，本文關(guān)鍵詞用,vbs,實(shí)現(xiàn),禁用,服務(wù),用,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。