jeykey
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
Dim strComputer, strService
Dim objWMIService
Dim objItem, colItems
strComputer = "."
strService = "RemoteRegistry"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Service where name = '" & strService & "'")
For Each objItem in colItems
If objItem.Started Then
objItem.StopService
End If
If objItem.StartMode <> "disabled" Then
objItem.ChangeStartMode("disabled")
End If
Next
|
