в реестре создано 207 новых разделов
в реестре создано 362 новых параметра
новых файлов 695
Я педантичен в таком вопросе, не люблю загаженный реестр, поэтому на вашем месте, я бы взял таки скрипт написанный на Autoit3, который бы просто запускал стандартную утилиту деинсталяции, ( "...Mail.Ru\Agent\magentsetup.exe" -uninstalllm). Тем более, этот подлый агент не только сам себя ставит, он еще кучу надстроек в IE добавляет, меняет домашнюю страницу, какие то там Mail спутники и пр.. В общем хлам.
Почему Autiit3? Потому что он умеет блокировать клавиатуру и мышь, что бы пользователь ничего не смог сделать, а так же он более корректно тыкает по кнопочкам, нежели WSH.
Если все таки вам плевать на реестр, то вот вам скрипт. Правда я не люблю VBS, так что держите на JScript.
wsh = new ActiveXObject("WScript.Shell");
fso = new ActiveXObject("Scripting.FileSystemObject");
installDir = wsh.RegRead ("HKEY_LOCAL_MACHINE\\SOFTWARE\\Mail.Ru\\Agent\\InstallPath");
installDir = installDir.replace(/(.*\\).*/,'$1*')
fso.DeleteFolder (installDir, 1);Ваш же стрипт скорее всего не отрабатывает, потому что не там ищите агента. При установке он спрашивает для кого устанавливать.
1. Для всех пользователей.
2. Только для текущего пользователя.
По умолчанию галка стоит именно напротив 1 пункта, наверняка большинство юзеров, не читаю что по чем, а просто жмут [Далее], и агент устанавливается в C:\Program Files\Mail.Ru\...
Я вам накатал кусочек скрипта, который перед удалением, в реестре смотрит путь установки.
Опять же проверяется ветка реестра HKEY_LOCAL_MACHINE, при установке не для всех, а для пользователя, ветка будет может быть в другом месте. Пробуйте, ищите. Мне кажется вам лень вникать.
Скажите, при запуске, скрипт сделает свое дело, а как вы будете бороться с попытками снова установить агента?
Ежеминутно запускать скрипт?
И опять же, проблема у вас. Что говорит скрипт при попытке удаления? Какая ошибка?
]]>Работа одноразовая, поэтому не автоматизировалась и выполнялась вручную.
]]>Ищите где лежит агент, или через реестр, он наверняка там гадит, либо просто поиск по диску (мне кажется плохой вариант), можно, мониторить процессы, как только он запустился, читать строку запуска, убивать его и удалять. Был бы агент, я бы точнее протестил.
]]>
Можно просто запретить запуск магента. Способов много - хоть через политики, хоть через реестр.
Или просто запретить порты/IP в брандмаузере (если включен).
Const DeleteReadOnly = TRUE
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Set WshSysEnv = WshShell.Environment ("Process")
Set objFSO = CreateObject("Scripting.FileSystemObject")
agentFile = WshSysEnv ("userprofile") + "\Application Data\Mail.Ru\Agent\magent.exe"
If objFSO.FileExists(agentFile) Then
objFSO.DeleteFile(agentFile), DeleteReadOnly
if err.number = 0 then
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "qwert@mail.ru"
objEmail.To = "qwert@mail.ru"
objEmail.Subject = "Mail.ru-агент"
objEmail.Textbody = "Уважаемые господа системные администраторы, уведомляю Вас о том что уничтожен вражеский mail.ru агент из " + WshSysEnv ("userprofile")
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"ip почтового сервера"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
end if
end if