Цитата: Liveofan
На самом деле через процесс авторана вирус производит "первое" заражение, а затем он прописывается на обычные комманды открытия папки\диска и по этой причине ты, отключив обработку авторана, только "себя" обезопасишь от проникновения вира на комп, но не других если вир у тя уже живет ) - если конечно твой антивир вдруг подобный вирус пропустит!
Добавлено: Цитата: Есть ли какой нибудь способ перестартовать все машины за исключением этих 5-ти?
Заранее благодарен!
Ответ: конечно есть и этот способ - написать соответствующий скрипт ))))
Добавлено: Цитата: Ilyha58343
по поводу того как запустить ранее писано неск способов, а именно:
1) psexec
2) копируй в шарную папку и запускай с каждого компа из под админа или от его имени
[more=Start-Stop Service(s)]
'*****************
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
[/more]
Добавлено: еще есть в реестре - сам не искал конкретные - ключи относящиеся к групповым политикам + "выполнить\mmc>Файл\Добавить остнаску>Добавить(Add)\Групповая политика" и там либо на вкл\выкл компа или вх\вых пользователя
Добавлено: Цитата: минус нельзя указать какую службу запустить
ну а тогда, в твоем примере что же я выделил жирным???
Цитата: Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE name = 'Alerter'")
