欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

歡迎來到入門教程網(wǎng)!

vb

當(dāng)前位置:主頁 > 軟件編程 > vb >

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

來源:本站原創(chuàng)|時間:2020-01-10|欄目:vb|點擊: 次

問:
您好,腳本專家!如何禁用服務(wù)?
-- DS
答:
您好,DS。您知道嗎,腳本專家似乎無意中發(fā)現(xiàn)了一個好主意。在上期專欄中,我們向大家介紹了如何禁用 LMHosts 文件。今天,我們將向大家介紹如何禁用服務(wù)。如果我們這樣繼續(xù)下去的話,不久,我們便可將如何禁用計算機上的一切介紹給大家。請想象一下:不再有網(wǎng)絡(luò)問題,不再有客戶服務(wù)中心呼叫,不再有用戶覆蓋了不應(yīng)覆蓋的文件。我們所要做的就是禁用一切,從而所有這些問題都將消失!這可以是我們通往幸福時光的入場券。
不可否認,禁用計算機上的一切可能導(dǎo)致貴組織出現(xiàn)其他問題。但這只是需要由你們來處理的內(nèi)部事務(wù)。 
此外,我們可能忙于數(shù)錢而無法幫助您。
當(dāng)然,在鈔票開始滾滾而來之前,我們?nèi)圆坏貌痪帉懘藢?,我們?nèi)圆坏貌桓稁?。正因為明確這一點,我們在下面提供了在計算機上禁用 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)都不會多開放一小時。
腳本開始并沒什么奇特之處:我們只是連接到本地計算機上的 WMI 服務(wù)(盡管我們也可以禁用遠程計算機上的服務(wù))。然后,我們發(fā)出以下查詢,該查詢返回一個僅包含一項的集合:Alerter 服務(wù):
Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name = 'Alerter'")
順便說一下,請確保包括了如上所示的 Where 子句。為什么?設(shè)想一下,假設(shè)您省略了 Where 子句。在這種情況下,您的集合將包含安裝在計算機上的所有服務(wù),那么,你的腳本將盡職盡責(zé)地試圖禁用每個服務(wù)。
您說對了:這通常不是什么好事。此外,腳本專家可能會控告您;畢竟,禁用計算機上的一切是我們的主意!
得到集合后,我們建立一個 For Each 循環(huán)以遍歷該集合內(nèi)的所有項。(是的,我們知道:集合中只有一項。但我們?nèi)孕枋褂?nbsp;For Each 循環(huán)。)以下是棘手部分。您可以禁用運行中的服務(wù);但是,該服務(wù)在停止運行前實際并未被禁用。如果禁用運行中的服務(wù),該服務(wù)會一如既往地繼續(xù)運行;更改將在服務(wù)停止后才生效。
正因為如此,我們使用下面這行代碼來查看 Alerter 服務(wù)是否正在運行:
If objService.State = "Running" Then
如果該服務(wù)正在運行,那么我們就調(diào)用 StopService() 方法來停止該服務(wù)。之后我們暫停 5 秒(5,000 毫秒);使得服務(wù)有時間在我們繼續(xù)操作以禁用它之前真正停止。我們就是照下面這樣做的:
objService.StopService()
Wscript.Sleep 5000
注意:為了使該示例腳本盡可能簡短,我們做了些手腳。我們假設(shè)您的服務(wù)僅處于“運行”或“停止”狀態(tài)。實際上,服務(wù)還可能包含其他狀態(tài),最顯著地是“暫?!被颉袄^續(xù)”。要編寫一個更穩(wěn)妥的腳本,您或許還應(yīng)該檢查這些狀態(tài)(并采取相應(yīng)的措施)。但是,因為在 99.9% 情況下,服務(wù)都處于運行或停止?fàn)顟B(tài),所以您通常可以使用我們給出的腳本蒙混過去。
服務(wù)停止后,我們就可以使用下面這行代碼禁用它:
errReturnCode = objService.ChangeStartMode("Disabled")
如您所見,我們只是使用 ChangeStartMode 方法更改 StartMode 屬性的值。我們要禁用該服務(wù),所以我們將參數(shù)“Disabled”傳遞給 ChangeStartMode。我們還可以將 StartMode 設(shè)置為“Manual”或“Automatic”;這樣會將 StartMode 設(shè)置為“手動”或“自動”。
請記住,服務(wù)被停止并禁用后,將無法再啟動;重新啟動該服務(wù)的唯一方法是重新啟用它(通過將 StartMode 更改為“手動”或“自動”)。但是,我們會等到說服每個人禁用其計算機上的一切后,才介紹如何重新啟用這些東西。畢竟,我們也許能夠?qū)@些腳本收取雙倍的費用。

上一篇:用vbs實現(xiàn)在啟動 Windows 資源管理器時打開特定文件夾

欄    目:vb

下一篇:防SQL注入的VBSrcipt代碼

本文標(biāo)題:用vbs實現(xiàn)禁用服務(wù)

本文地址:http://mengdiqiu.com.cn/a1/vb/7919.html

網(wǎng)頁制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語言數(shù)據(jù)庫服務(wù)器

如果侵犯了您的權(quán)利,請與我們聯(lián)系,我們將在24小時內(nèi)進行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有