Миграция на антивирус ESET NOD32 с помощью VBScript

Давненько я сюда ничего нового не добавлял.

И так, недавно предприятие, на котором я работаю, все же (после долгих лет томительных ожиданий) приобрело лицензию на корпоративный антивирус. Выбор пал на ESET NOD32 Antivirus Business Edition 4.0. В основном на компьютерах предприятия был установлен давно просроченный корпоративный TrendMicro OfficeScan 6.5, но также присутствовали различные Avira, Avast!, Kaspersky и прочии. В примерном соотношении OfficeScan ~ 90%, Avira ~ 7 %, все остальные ~ 3%. И, конечно, встал вопрос – как автоматизировать миграцию на NOD32 в автоматическом режиме?

Я принялся писать VBScript под эту задачу, при этом активно используя галерею скриптов на Microsoft TechNet (о гелерее я писал здесь). Базовая часть скрипта была написана и протестирована примерно за 1.5-2 недели и после в течении месяца скрипт обрастал различным дополнительным функционалом.

Ниже приведу описание работы скрипта и, конечно, сам скрипт.

Запуск программ, скриптов с административными правами

Иногда при выполнении различных программ и/или скриптов назначенных на исполнение групповой политикой при входе пользователя в домен, необходимо, что бы эта программа, скрипт выполнялась в системе с административными правами. Для этого следует использовать ниже приведенный скрипт и уже его указывать в групповой политике.

Для выполнения скрипта Вам потребуется утилита psexec.exe из пакета Sysinternals Suite. Также данный скрипт рекомендуется зашифровать утилитой Script Encoder, т.к. в нем открытым текстом указываются логин и пароль пользователя.

МАКС, на будущие посящения

Спустя неделю после посещения МАКС 2009 озадачился перечислением вещей, которые необходимо учесть при следующей поездке на выставку. Так же эта заметка надеюсь будет полезна и тем, кто только собирается впервые посетить МАКС 2011.

Европа нам не нужна!?

Вчера по телевизору пришлось наблюдать бесславное выступление наших клубов в отборочной стадии Лиги Европы по футболу.

А как много интересного предвещал новый европейский футбольный сезон. У России в Лиге Чемпионов – 3 клуба, в Лиге Европы – 3 клуба. Но все ожидания быстро начали таять.

Галерея скриптов на TechNet.Microsoft.com

В очередной ища в интернете скрипт для нужд по работе, наткнулся на галерею скриптов на сайте TechNet.Microsoft.com. Здесь представлено большое количество скриптов на разных скрипт языках и для выполнения различных задач. Так что легко можно подобрать подходящий скрипт и затем его «подпилить» под свои нужды. Учитывая, что пока, по не знанию, я не способен написать скрипт с нуля, то для меня эта галерея долгое время будет являться отправной точкой для поиска, создания скриптов. Возможно и Вам ознакомление с ее содержимым будет полезно.

TechNet Script Center Gallery

Скрипт перехода со статической на динамическую IP адресацию

На будущее сделаю себе заметку.

Если надо перейти от статического назначения IP адреса на выдачу IP адресов сервером DHCP, то можно использовать  ниже приведенный скрипт на VBScript.

strComputer = "."
Set objWMIService = GetObject(_
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration " _
& "where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
errEnable = objNetAdapter.SetDNSServerSearchOrder(dhcp)
errEnable = objNetAdapter.RenewDHCPLease

Next

Скрипт я отыскал на форуме Ru-Board.com , опубликованный пользователем cap77, за что ему отдельное спасибо.

Посещение МАКС 2009

В минувшую субботу (22 августа 2009) довелось мне побывать на МАКСе 2009.

Проснуться пришлось рано, аж 5:00 (ехать далеко от дома). Погрузившись в электричку на 6:17 в течении часа езды почитывал газетку. Прибыл на станцию Каланчевская, что возле трех вокзалов и уже от Казанского в 7:37 поехал до платформы 42 км. Где-то через минут 40 прибыл на платформу, там уже ждало милицейское оцепление. У всех проверили содержимое сумок на наличие оружия, алкоголя и стеклотары, затем затолкали всех плотно в автобус и отправили на аэродром. На автобусе ехали минут 5, но зато подвезли к самым кассам. К счастью билет у меня уже был, потому я сразу проследовал на второй милицейский кордон, где досмотр был более строгий. В очереди перед этим кордоном пришлось отстоять минут 30, а при учете затянутого неба и сильного ветра я изрядно замерз. На проверке заставляли открывать все бутылки с водами, соками, ощупывали всего металодетектором, а также заставили включить фотоаппарат. Но ни каких претензий к милиции – все правильно сделали.

Уведомление о статусе исполнения задачи NTBackup

Так как нормального средства архивирования нет, несколько серверов приходится архивировать с помощью NTBackup. Все бы хорошо если бы за исполнением задач архивирования на серверах хоть кто-нибудь следил, но этого конечно не делалось. И когда сервер Exchange перестал получать/отправлять почту я устранив причину заметил попутно, что архивирование почтового хранилища выполнялось месяца 4 назад.

Создав новую задачу архивирования я задумался о возможности уведомления администратора о статусе задачи. Так как в NTBackup подобное не предусмотрено, то поискав в интернете информацию пришел к выводу, что надо писать VBScript. К моему счастью, я пока в vbscript плохо разбираюсь, нашел готовое решение, которое после я немного изменил.