YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
'*****************
dim Stat(24)
Stat(0)=" Success "
Stat(1)=" Not Supported "
Stat(2)=" Access Denied "
Stat(3)=" Dependent Services Running "
Stat(4)=" Invalid Service Control "
Stat(5)=" Service Cannot Accept Control "
Stat(6)=" Service Not Active "
Stat(7)=" Service Request Timeout "
Stat(8)=" Unknown Failure "
Stat(9)=" Path Not Found "
Stat(10)=" Service Already Running "
Stat(11)=" Service Database Locked "
Stat(12)=" Service Dependency Deleted "
Stat(13)=" Service Dependency Failure "
Stat(14)=" Service Disabled "
Stat(15)=" Service Logon Failure "
Stat(16)=" Service Marked For Deletion "
Stat(17)=" Service No Thread "
Stat(18)=" Status Circular Dependency "
Stat(19)=" Status Duplicate Name "
Stat(20)=" Status Invalid Name "
Stat(21)=" Status Invalid Parameter "
Stat(22)=" Status Invalid Service Account "
Stat(23)=" Status Service Exists "
Stat(24)=" Service Already Paused "
dim rezS
dim NC
NC=0
rez=msgbox("Если Вы хотите ЗАПУСТИТЬ службу - нажмите ДА" &vbcrlf &vbCr&"Если Вы хотите ОСТАНОВИТЬ службу - нажмите НЕТ", vbYesNo ,"Запуск/Остановка службы")
'*****************
'да=6
'нет=7
'msgbox rez
if (rez=7) then msg="остановить"
if (rez=6) then msg="запустить"
NC=inputBox("Укажите имя службы которую Вы хотите "& msg & " и нажмите ОК!","Запуск/Остановка конкретной службы","")
A1()
Sub A1()
'msgbox NC
if (NC<>"") then
NC="'"&NC&"'"
msgbox NC
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery ("Select * FROM Win32_Service WHERE Name =" & NC )
if (rez=7) then
'msgbox "START"
For Each objSoftware in colSoftware
msgbox Stat(objSoftware.StopService()) , ,"Результат операции " & "< "& msg &" службу с именем " & NC &" >"
Next
elseif (rez=6) then
'старт соответственно
For Each objSoftware in colSoftware
msgbox Stat(objSoftware.StartService() ) , ,"Результат операции " &"< "& msg &" службу с именем " & NC &" >"
Next
end if
end if
End Sub
|
Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 05:49 14-11-2008 | Исправлено: YNY, 07:47 14-11-2008 |
|
