Day > /dev/null

Открываем окно "параметры значков рабочего стола" через командную строку (консоль)

2017-11-17T06:06:00.000-08:00

В Windows 8, Windows 10 под учетной записью доменного администратора не дает открыть окно "параметры значков рабочего стола" - выскакивает ошибка rundll32.exe "Windows не удается получить доступ к указанному устройству, пути или файлу. Возможно, у вас нет нужных разрешений для доступа к этому объекту."

Нажимаем сочетание клавиш Win + R и в строке запуска команды вводим:

Rundll32 shell32.dll,Control_RunDLL desk.cpl,,5

И жмем кнопку "OK". В результате откроется окно "параметры значков рабочего стола".

Исправляем ошибку доступа SystemSettingsAdminFlows.exe

2017-06-19T06:24:00.000-07:00

В Windows 10 и Windows Server 2016 может появиться ошибка: c:\windows\system32\SystemSettingsAdminFlows.exe Windows не удается получить доступ к указанному устройству, пути или файлу. Возможно, у вас нет нужных разрешений для доступа к этому объекту.

или
c:\windows\system32\SystemSettingsAdminFlows.exe You cannot access this device, path or file. You don't have sufficient priviliges to access this element.

Исправляем в русской версии Windows:

1) Нажимаем Win + R или кликаем правой кнопкой мыши по иконке меню "Пуск" и выбираем пункт "Выполнить", в строке набираем secpol.msc и жмем кнопку "OK"
2) В окне "Локальная политика безопасности" переходим в "Локальные политики" - "Параметры безопасности"
3) Ищем политику "Контроль учетных записей: режим одобрения администратором для встроенной учетной записи администратора"

4) Жмем правой кнопкой мыши на политике и выбираем "свойства", меняем состояние политики с "Отключен" на "Включен"
5) Перелогиниваемся или перезагружаемся.

В англ. версии Windows :

1) Нажимаем Win + R или кликаем правой кнопкой мыши по иконке меню и выбираем пункт "Run", в строке набираем secpol.msc и жмем кнопку "OK"
2) В открывшемся окне переходим "Local Policies" - "Security Options"
3) Ищем "User Account Control: Admin Approval Mode for the Built-in Administrator account"
4) Переключаем в "Enable"
5) Перелогиниваемся или перезагружаемся.

Скрипт на PYTHON для отправки СМС через GSM шлюз ADDPACK AP-GS1002B

2014-09-12T06:28:00.000-07:00

Сегодня поделюсь своим скриптом на PYTHON для отправки СМС сообщений через двухканальный GSM шлюз ADDPACK AP-GS1002B. Данный шлюз имеет порт LAN RJ-45 и позволяет подключаться к нему TELNET -ом и отправлять СМС -ки через любой канал GSM. Скрипт писался мной для отправки СМС -ок серверами при возникновении определенных событий.

В скрипт должны передаваться 3 обязательных параметра:
1) Номер канала, через который отправлять СМС ( В данном устройстве это значение может быть 0 или 1)
2) Номер телефона, на который отправлять СМС ( сплошной строкой без пробелов и дефисов)
3) Сам текст СМС -ки (параметр необходимо заключать в кавычки для отправки СМС-ок из нескольких слов, иначе будет отправляться только первое слово. Текст не должен превышать максимальную длину сообщения ).

Параметры, передаваемые в скрипт не проверяются на валидность, поэтому сами следите за тем, что передаете в этот скрипт.

Для использования скрипта, необходимо отредактировать в нем переменные:
HOST - IP адрес нашего GSM шлюза в сети ( в моем случае 192.168.10.1 )
USER - пользователь, по умолчанию 'root'
PASSWORD - пароль (дефолтный пароль для AP-GS1002B 'router' )

Пример использования скрипта:

python send_sms_apgs1002b.py 1 "0917777777" "Test test"
python send_sms_apgs1002b.py 0 "+380917777777" "Test test"

Сам скрипт send_sms_apgs1002b.py

#!/usr/bin/python

#-------------------------------------------------
# -*- coding: utf-8 -*-
# Telnet Client for GSM gate ADDPACK AP-GS1002B
# Script for sending SMS
# Written by Scorp 2013
#-------------------------------------------------
# usage: send_sms_apgs1002b.py "GSM_CHANNEL" "PHONE_NUMBER" "SMS_TEXT"

import getpass
import sys
import telnetlib
import os
import string
import argparse
#-----------------------------------------------------
HOST = "192.168.10.1"
PORT = "23"
USER = "root"
PASSWORD = "router"
# ----------------------------------------------------
parser = argparse.ArgumentParser()

parser.add_argument("GSM_CHANNEL", help="GSM channel in this device must be 0 or 1")
parser.add_argument("PHONE_NUMBER", help="Telephone number for sending SMS")
parser.add_argument("SMS_TEXT", help="Text that you want to send in SMS ")
args = parser.parse_args()

print "=========================================="
print " Phone Number", args.PHONE_NUMBER
print " SMS Text ", args.SMS_TEXT
print "=========================================="
print " Telnet to host", HOST, PORT
print

TNT = telnetlib.Telnet(HOST, PORT, 10)

PROMPT = "Login: "
RESPONSE = TNT.read_until(PROMPT, 5)
if string.count(RESPONSE, PROMPT):
print " Connected"
else:
print "=================="
print " ERROR LOGIN STRING"
print RESPONSE

print "=========================================="
print " Entering User Name ", USER
TNT.write(USER + "\r")

PROMPT = "Password:"
RESPONSE = TNT.read_until(PROMPT, 5)
if string.count(RESPONSE, PROMPT):
print " OK"
print "=========================================="
else:
print "=================="
print "ERROR PASSWORD STRING"
print RESPONSE

print " Entering Password "
TNT.write(PASSWORD + "\r")

PROMPT = "GS1002>"
RESPONSE = TNT.read_until(PROMPT, 5)
if string.count(RESPONSE, PROMPT):
print " OK"
print "=========================================="
else:
print "=================="
print "ERROR ENTERING"
print RESPONSE
print " Entering to EN"
TNT.write("en\r")
PROMPT = "GS1002#"
RESPONSE = TNT.read_until(PROMPT, 5)
if string.count(RESPONSE, PROMPT):
print " OK"
print "=========================================="
else:
print "=================="
print "ERROR ENTERING EN"
print RESPONSE

print " Entering to CONFIG"
TNT.write("conf term\r")

PROMPT = "GS1002(config)#"
RESPONSE = TNT.read_until(PROMPT, 5)
if string.count(RESPONSE, PROMPT):
print " OK"
print "=========================================="
else:
print "=================="
print "ERROR ENTERING CONFIG"
print RESPONSE

print " Cleaning memory of device..."
print " On port 0 1"
TNT.write("mobile 0 1 sms message del all\r") # deleting all sms on sim 0 1
TNT.read_until(PROMPT, 15)
print " On port 0 0"
TNT.write("mobile 0 0 sms message del all\r") # deleting all sms on sim 0 0
TNT.read_until(PROMPT, 15)
print " OK"
print "=========================================="

print " Sending SMS ..."
LINETOSEND = "mobile 0 " + args.GSM_CHANNEL + " sms message send " + args.PHONE_NUMBER + " " + args.SMS_TEXT
print " String: ", LINETOSEND
TNT.write(LINETOSEND + "\r")

PROMPT = "GS1002(config)#"
RESPONSE = TNT.read_until(PROMPT, 15)
print
print "=========================================="
print RESPONSE
print "=========================================="

TNT.write("exit\r")
TNT.write("exit\r")
TNT.write("exit\r")
TNT.close()

Цветные выводы скриптов в BASH

2013-02-04T07:04:00.001-08:00

При написании сложных скриптов часто появляется необходимость выделить более важную информацию из потока служебной информации запущенного скрипта. Сегодня научимся раскрашивать вывод скрипта в BASH.

Начнем с небольшой таблицы соответствия esc-кодов:

Regular
\e[0;30m # Black
\e[0;31m # Red
\e[0;32m # Green
\e[0;33m # Yellow
\e[0;34m # Blue
\e[0;35m # Purple
\e[0;36m # Cyan
\e[0;37m # White
Bold
\e[1;30m # Black
\e[1;31m # Red
\e[1;32m # Green
\e[1;33m # Yellow
\e[1;34m # Blue
\e[1;35m # Purple
\e[1;36m # Cyan
\e[1;37m # White
Underline
\e[4;30m # Black
\e[4;31m # Red
\e[4;32m # Green
\e[4;33m # Yellow
\e[4;34m # Blue
\e[4;35m # Purple
\e[4;36m # Cyan
\e[4;37m # White
Background
\e[40m # Black
\e[41m # Red
\e[42m # Green
\e[43m # Yellow
\e[44m # Blue
\e[45m # Purple
\e[46m # Cyan
\e[47m # White
Text Reset
\e[0m

Использовать цвета вывода очень просто - необходимо использовать команду "echo" с параметром "-e" перед текстом, который хотим раскрасить, вставить esc-код нужного цвета, а за этим текстом вставить esc-код "Text Reset".

Примеры:

user@server: echo -e "\e[1;31m Цветные выводы скриптов в BASH\e[0m"
Цветные выводы скриптов в BASH

user@server: echo -e "\e[1;31m Цветные \e[4;37mвыводы \e[42mскриптов в BASH\e[0m"
Цветные выводы скриптов в BASH

W3M - терминальный текстовый браузер в Linux

2012-09-14T13:58:00.003-07:00

Главный аспект применения консольных текстовых браузеров в том, что их можно использовать в системах, где нет графической оболочки. W3M - инструмент для быстрого просмотра HTML страниц, который может отрисовывать таблицы и фреймы или отображать документ, переданный через поток STDIN.

В Ubuntu Server 12.04 W3M ставится вместе с системой, но если в системе нет браузера W3M, то его можно установить при помощи команды:

root@server: apt-get install w3m

W3M имеет множество параметров запуска, но для того, чтоб начать веб серфинг, необходимо указать веб-адрес страницы в качестве параметра, например :

user@server: w3m www.google.ru

Клавишами со стелками можно перемещать курсор по странице.
Основные клавиши управления W3M (регистр нажатых клавиш имеет значение):
ENTER - Активация элемента или переход по ссылке, на которой находится курсор
H - Вывод справки по командам
U - Ввести адрес веб страницы
o - Отобразить страницу настроек W3M, где можно ввести настройки экрана, настройки цветов, сетевые настройки, настройки прокси и т.д.
SPACE, Ctrl+v - Прокрутка страницы вниз
b, ESC v - Прокрутка страницы вверх
l, Ctrl+f - Переместить курсор вправо
h, Ctrl+b - Переместить курсор влево
j, Ctrl+n - Переместить курсор вниз
k, Ctrl+p - Переместить курсор вверх
R - Обновить страницу
B - Переход на страницу назад
v - Просмотр исходного кода страницы
Ctrl+h - Показать историю
T - Новая вкладка
Ctrl+t - Открыть ссылку в новой вкладке
Ctrl+q - Закрыть вкладку
{ , } - Переключение между вкладками
Esc t - Меню с открытыми вкладками
c - Показать в статусной строке URL текущей страницы
u - Показать в статусной строке URL на который показывает курсор
a - Сохранить в файл объект, на который показывает курсор
ESC m - Отобразить меню с ссылками текущей страницы, на которые можно перейти
= - Отобразить информацию о текущей странице.
q - Выход из W3C

Установка Java 7 (JDK) в Ubuntu 12.04

2012-09-13T00:56:00.002-07:00

Сегодня будем устанавливать последнюю версию Java JDK (Version 7 Update 7) на момент написания статьи. С момента отзыва лицензии «Operating System Distributor License for Java» компанией Oracle, в репозитории Linux стало невозможно включать перепакованные бинарники Java и задача установки Java на Linux стала несколько нетривиальной.

Так как на сайте нет прямой ссылки на архив и скачать скриптом не получится, придется качать вручную, браузером - заходим по ссылке:
http://www.oracle.com/technetwork/java/javase/downloads/jdk7u7-downloads-1836413.html
и скачиваем архив для Linux x86 jdk-7u7-linux-i586.tar.gz
копируем путь к архиву (напр /home/user/Downloads/jdk-7u7-linux-i586.tar.gz)
открываем терминал, заходим под rootом (sudo su -) и выполняем:
1) Распаковываем архив

root@desktop: tar -xvf /home/user/Downloads/jdk-7u7-linux-i586.tar.gz

......
jdk1.7.0_07/include/linux/jawt_md.h
jdk1.7.0_07/include/linux/jni_md.h
jdk1.7.0_07/include/jdwpTransport.h
jdk1.7.0_07/include/jvmti.h
jdk1.7.0_07/include/jvmticmlr.h
jdk1.7.0_07/include/jni.h
jdk1.7.0_07/include/jawt.h

2) Запоминаем название папки из вывода консоли предыдущей команды, (для данного архива папка называется jdk1.7.0_07). Для более универсального способа установки запомним название папки, которую перемещали, в переменную и далее будем использовать эту переменную:

root@desktop: javadir=jdk1.7.0_07

3) Перемещаем распакованную папку в /usr/lib/jvm/ :

root@desktop: mv -v $javadir /usr/lib/jvm/

«jdk1.7.0_07» -> «/usr/lib/jvm/jdk1.7.0_07»

4) Создаем симлинки на новую версию Java:
Симлинк для компилятора Java

root@desktop: update-alternatives --install /usr/bin/javac javac /usr/lib/jvm/$javadir/bin/javac 1

update-alternatives: используется `/usr/lib/jvm/jdk1.7.0_07/bin/javac' для предоставления `/usr/bin/javac' (javac) в автоматический режим.

Симлинк для Java

root@desktop: update-alternatives --install /usr/bin/java java /usr/lib/jvm/$javadir/bin/java 1

update-alternatives: используется `/usr/lib/jvm/jdk1.7.0_07/bin/java' для предоставления `/usr/bin/java' (java) в автоматический режим.

Симлинк для Java Web Start

root@desktop: update-alternatives --install /usr/bin/javaws javaws /usr/lib/jvm/$javadir/bin/javaws 1

update-alternatives: используется `/usr/lib/jvm/jdk1.7.0_07/bin/javaws' для предоставления `/usr/bin/javaws' (javaws) в автоматический режим.

Симлинк на плагин Java для браузера Mozilla

root@desktop: update-alternatives --install /usr/lib/mozilla/plugins/mozilla-javaplugin.so mozilla-javaplugin.so /usr/lib/jvm/$javadir/jre/lib/i386/libnpjp2.so 1

update-alternatives: используется `/usr/lib/jvm/jdk1.7.0_07/jre/lib/i386/libnpjp2.so' для предоставления `/usr/lib/mozilla/plugins/mozilla-javaplugin.so' (mozilla-javaplugin.so) в автоматический режим.

5) Следующий шаг - настройка ссылок, этот шаг необходим для того, чтоб каждый из компонентов ссылался на папку с новой версией Java. В случае, если в системе до этого стояли другие версии Java, появится список ссылок, из которого нам надо будет выбрать ссылку, которая указывает на нашу новую версию. Так как у меня "чистая" система, и в ней не стояло ни одной версии Java, то список с выбором ссылок не появляется.

root@desktop: update-alternatives --config javac

Есть только одна альтернатива в группе ссылок javac: /usr/lib/jvm/jdk1.7.0_07/bin/javac
Настраивать нечего.

root@desktop: update-alternatives --config java

Есть только одна альтернатива в группе ссылок java: /usr/lib/jvm/jdk1.7.0_07/bin/java
Настраивать нечего.

root@desktop: update-alternatives --config javaws

Есть только одна альтернатива в группе ссылок javaws: /usr/lib/jvm/jdk1.7.0_07/bin/javaws
Настраивать нечего.

root@desktop: update-alternatives --config mozilla-javaplugin.so

Есть только одна альтернатива в группе ссылок mozilla-javaplugin.so: /usr/lib/jvm/jdk1.7.0_07/jre/lib/i386/libnpjp2.so
Настраивать нечего.

6) Проверяем правильность наших симлинков:

root@desktop: ls -la /etc/alternatives/{java,javac,javaws,mozilla-javaplugin.so}

lrwxrwxrwx 1 root root 33 2012-09-10 22:55 /etc/alternatives/java -> /usr/lib/jvm/jdk1.7.0_07/bin/java
lrwxrwxrwx 1 root root 34 2012-09-11 00:47 /etc/alternatives/javac -> /usr/lib/jvm/jdk1.7.0_07/bin/javac
lrwxrwxrwx 1 root root 35 2012-09-11 00:51 /etc/alternatives/javaws -> /usr/lib/jvm/jdk1.7.0_07/bin/javaws
lrwxrwxrwx 1 root root 49 2012-09-10 23:58 /etc/alternatives/mozilla-javaplugin.so -> /usr/lib/jvm/jdk1.7.0_07/jre/lib/i386/libnpjp2.so

7) Проверяем версию Java

root@desktop: java -version

java version "1.7.0_07"

Java(TM) SE Runtime Environment (build 1.7.0_07-b10)

Java HotSpot(TM) Server VM (build 23.3-b01, mixed mode)

8) Перезапускаем браузер и идем по ссылке:
http://java.com/ru/download/installed.jsp
Нажимаем кнопку "Проверить версию Java" и если все правильно сделали, видим надпись об успешной проверке версии Java:

Linux Ubuntu Server 12.04 Русификация консоли. Неправильное отображение русских символов в консоли.

2012-09-07T20:03:00.003-07:00

После установки Ubuntu Server 12.04 в консоли вместо русских букв отображаются белые квадратики. Проблема появляется из-за того, что разработчиками была отключена поддержка фреймбуфера на этапе инициализации ядра. Скрипты initramfs проверяют включен ли фреймбуфер (т.е. присутствует ли параметр FRAMEBUFFER=y) и если включен, то подгружают шрифты, иначе мы видим белые квадратики вместо русских букв. Будем исправлять ситуацию.

Ели не вдаваться в подробности, то все что нам надо сделать - добавить параметр FRAMEBUFFER=y в файл /etc/initramfs-tools/initramfs.conf и после этого ОБЯЗАТЕЛЬНО! обновить образ initramfs.

root@server: echo "FRAMEBUFFER=y" >> /etc/initramfs-tools/initramfs.conf
root@server: update-initramfs -u

После этого перезагружаемся и радуемся корректному отображению русских символов в консоли.

Восстанавливаем загрузку с Soft Raid Linux. Ubuntu Server и MDADM - загружается в BusyBox

2012-09-06T04:16:00.000-07:00

После смены сбойного HDD на сервере с программным RAID 1 был добавлен новый HDD взамен вышедшего из строя, но при очередной перезагрузке сервера выскочила ошибка:

Check root=bootarg cat /proc/cmdline
or missing modules, devices: cat /proc/modules ls /dev
ALERT! /dev/disk/by-uuid/[UUID] does not exist. Dropping to a shell!
и сервер вывалился в BusyBox.

Итак, имеем нерабочий сервер и будем исправлять ситуацию. Первое, что мы должны сделать - разобрать RAID (если он частично собран) и собрать его заново. В моем случае, на сервере существовало 3 RAID 1 массива: md0, md1, md2. Останавливаем RAID массивы:

$(initramfs) mdadm --stop /dev/md0
$(initramfs) mdadm --stop /dev/md1
$(initramfs) mdadm --stop /dev/md2

Собираем массивы автоматически:

$(initramfs) mdadm --assemble --scan

или вручную:

$(initramfs) mdadm --assemble --force /dev/md0 /dev/sda1 /dev/sdb1
$(initramfs) mdadm --assemble --force /dev/md1 /dev/sda2 /dev/sdb2
$(initramfs) mdadm --assemble --force /dev/md2 /dev/sda3 /dev/sdb3

после того, как собрали RAID массив:

$(initramfs) exit

Система загрузится, но необходимо произвести некоторые действия, чтоб ситуация не повторилась при следующей перезагрузке сервера. Смотрим состояние RAID массива:

root@server: cat /proc/mdstat

Personalities : [linear] [multipath] [raid0] [raid1] [raid6] [raid5] [raid4] [raid10]
md2_2 : inactive raid1 sdb3[S]

md0 : active raid1 sdb1[0] sda1[1]
979840 blocks [2/2] [UU]

md1 : active raid1 sdb2[0] sda2[1]
136721088 blocks [2/2] [UU]

если название RAID массива поменялось или состояние массива перешло в "inactive" , как в случае выше, то пересобираем этот массив:

root@server: mdadm --stop /dev/md2_2
root@server: mdadm --assemble /dev/md2 /dev/sda3 /dev/sdb3

Теперь обязательно необходимо перезаписать новый конфиг mdadm и обновить initramfs:

root@server: /usr/share/mdadm/mkconf > /etc/mdadm/mdadm.conf
root@server: update-initramfs -u

Теперь можем спокойно перезагружаться.

Ubuntu Server 10.04 - делаем бэкапы при помощи BASH скрипта.

2012-06-18T16:31:00.000-07:00

Самое главное в администрировании - иметь свежий бэкап критически важных данных. Даже если у вас RAID массив с кучей HDD и сервер с информацией находится в подземном бункере с защитой от прямого попадания ядерной бомбы - даже это не защитит файлы от банального удаления их самим пользователем. Сегодня будем писать скрипт на BASH для резервного копирования файлового сервера.

Логика работы скрипта:
1) При запуске скрипта проверяется существование папки, которую необходимо бэкапить и если эта папка отсутствует, то скрипт завершает свою работу с указанием ошибки.
2) Проверяется существование папки, в которую следует складывать бэкапы, если не существует, то создаются все папки для существования пути, указанного в переменной SAVE_DIR_BACKUP.
3) Определяются переменные и выводится информация.
4) Проверяется существование файла- метки последнего бэкапа, если не существует - создается с текущей датой запуска скрипта.
5) Файлы бэкапа каждого месяца скрипт складывает в отдельную папку. Проверяется наличие папки текущего месяца, если не существует - создается.
6) Каждый первый запуск в новом месяце скрипт создает полный бэкап папки DIRTOBACKUP1.
Если файл полного бэкапа месяца существует :
а) Если файл-метка не содержит запись "FULL_ERROR", то создается список изменившихся файлов с даты последнего изменения файла-метки и создается бэкап изменившихся файлов.

б) Если файл-метка содержит запись "FULL_ERROR", значит по каким-то причинам файл полного бэкапа не смог полностью создаться (выключили сервер в момент создания бэкапа?) . В файл-метку пишется статус FULL_ERROR на случай, если процесс создания файла полного бэкапа не сможет завершиться успешно и создается полный бэкап. После создания бэкапа в файл-метку пишется текущая дата создания бэкапа (т.е. полный бэкап создался успешно).

Если файл полного бэкапа месяца не существует:
а) В файл-метку записывается статус "FULL_ERROR" для ситуации, если процесс создания полного бэкапа будет прерван. Создается файл полного бэкапа. В файл-метку записывается текущая дата создания бэкапа.
7) Завершение работы скрипта.

#!/bin/bash
echo
echo -e "\e[01;31m------------------------------------------------------\e[00m"
echo -e "\e[01;31m *** FILE BACKUP SCRIPT STARTED ***\e[00m"
echo -e "\e[01;31m------------------------------------------------------\e[00m"

#----------------------------------
# Что будем бэкапить (Путь к папке)
DIRTOBACKUP1=/home/PROJECTS
# Куда складывать бэкапы
SAVE_DIR_BACKUP=/home/BACKUP/PROJECTS

#------------------------------
# Проверяем входящие переменные
#------------------------------
if [ -d $DIRTOBACKUP1 ];
then
echo -e "\e[01;32m Папка, которую необходимо бэкапить: существует.\e[00m"
else
echo -e "\e[01;31m Папка, которую необходимо бэкапить: не существует.\e[00m"
echo -e "\e[01;31m Продолжение выполнения скрипта невозможно.\e[00m"
exit 1
fi

if [ -d $SAVE_DIR_BACKUP ];
then
echo -e "\e[01;32m Папка, для хранения бэкапов: существует.\e[00m"
else
echo -e "\e[01;31m Папка, для хранения бэкапов: не существует.\e[00m"
echo -e "\e[01;31m Создаем...\e[00m"
mkdir -p --verbose $SAVE_DIR_BACKUP
fi

#-----------------------------------
# Общие переменные для папки бэкапов
#-----------------------------------
# Текущий год и месяц в формате YYYY-MM
YEAR_MONTH=`date '+%Y-%m'`
# Полный путь к папке бэкапов текущего месяца
FULL_BACKUP_FOLDER_NAME="${SAVE_DIR_BACKUP}/${YEAR_MONTH}/"

#----------------
# ПОЛНЫЙ БЭКАП
#----------------
# Имя файла полного бэкапа
FULL_BACKUP_FILE="full_backup_$YEAR_MONTH"
# Полный путь файла полного бэкапа
FULL_BACKUP_FOLDER_FILE="${FULL_BACKUP_FOLDER_NAME}${FULL_BACKUP_FILE}.tar.gz"

#---------------------
# ИНКРЕМЕНТНЫЙ БЭКАП
#---------------------
# Метка последнего выполнения бэкапа
# для записи в файл lasttimebackup.log
#LAST_LABEL=`date '+%Y-%m-%d %H:%M:%S'`
# Файл с меткой последнего бэкапа
LAST="${SAVE_DIR_BACKUP}/lasttimebackup.log"
# Файл, в который будем записывать списог изменившихся файлов
LAST_FILE_MODIFED="${SAVE_DIR_BACKUP}/files_chaneged.log"
# Заготовка для имени файла инкрементного бэкапа (формат YYYY-MM-DD)
YEAR_MONTH_DAY=`date '+%Y-%m-%d'`
# Полный путь файла инкрементного бэкапа
INCREMENT_FOLDER_FILE="${FULL_BACKUP_FOLDER_NAME}${YEAR_MONTH_DAY}.tar.gz"
# Определяем свободное место на диске
freehd=`df -m | grep "/dev/md1" | awk '{print $4}'`
freehdmb=`expr $freehd / 1024`
echo " Свободное место на диске: $freehdmb GB"
echo "-------------------------------------------------"
echo " Текущая дата: $YEAR_MONTH_DAY"
echo " Имя папки, которую будем бэкапить: $DIRTOBACKUP1"
echo " Сохраняем бэкапы в: $SAVE_DIR_BACKUP"
#echo " Имя папки для бэкапа: $YEAR_MONTH"
echo " Полный путь к папке бэкапа текущего месяца: $FULL_BACKUP_FOLDER_NAME"
#echo " Полный путь файла полного бэкапа: $FULL_BACKUP_FOLDER_FILE"
#echo " Полный путь файла инкрементного бэкапа: $INCREMENT_FOLDER_FILE"
echo "-------------------------------------------------"
#-------------------------------------------------------------------------
# Проверяем существование файла метки последнего бэкапа, если нет - создаем
#--------------------------------------------------------------------------
if [ -f $LAST ];
then
echo " Файл метки последнего бэкапа существует"
else
echo " Файл метки последнего бэкапа не существует - создаем c текущей датой"
echo $YEAR_MONTH_DAY > $LAST
fi

# Проверяем существование папки для текущего месяца
if [ -d $FULL_BACKUP_FOLDER_NAME ];
then
echo " Папака текущего месяца для бэкапа существует"
else
echo " Папка текущего месяца для бэкапа не существует - создаем..."
mkdir $FULL_BACKUP_FOLDER_NAME
fi

# Считываем в переменную содержимое файла
ERR_CHK=$(cat $LAST)
echo "Последний бэкап завершился со статусом: $ERR_CHK"
#----------------------------------------
# Если файл полного бэкапа существует
#----------------------------------------
if [ -f $FULL_BACKUP_FOLDER_FILE ];
then
if [ $ERR_CHK != "FULL_ERROR" ];
then
# Файл полного бэкапа существует и не было ошибок при его создании
# Будем делать инкрементный бэкап
echo " Ошибки создания файла полного бэкапа не было"
echo " Файл полного бэкапа существует - делаем инкрементный бэкап"
# Ищем файлы старше даты модификации файла $LAST
find $DIRTOBACKUP1 -newer $LAST -type f -print > $LAST_FILE_MODIFED
TAR_PARAM="-T $LAST_FILE_MODIFED"
SAVENAME="$INCREMENT_FOLDER_FILE"
else
# Записываем статус ошибки в файл
echo FULL_ERROR>$LAST
echo " Последнее создание полного бэкапа произошло с ошибкой"
echo " Повторно делаем полный бэкап"
TAR_PARAM="$DIRTOBACKUP1"
SAVENAME="$FULL_BACKUP_FOLDER_FILE"
fi

else
# Записываем статус ошибки в файл
echo FULL_ERROR>$LAST
echo " Файл полного бэкапа не существует - делаем полный бэкап"
TAR_PARAM="$DIRTOBACKUP1"
SAVENAME="$FULL_BACKUP_FOLDER_FILE"
fi

echo -e " Команда запуска: \e[01;32m tar cpzfv ${SAVENAME} ${TAR_PARAM}\e[00m"
tar cpzfv ${SAVENAME} ${TAR_PARAM}
# Если все прошло нормально, сбрасываем статус ошибки
echo $YEAR_MONTH_DAY > $LAST

exit 0

Часть 1. Fail2ban - активная защита сервера Linux Ubuntu Server 10.04 на основе информации из логов.

2012-05-09T17:00:00.000-07:00

Fail2ban - утилита, которая парсит log-файлы на предмет определенных событий и выполняет действия, когда такие события появляются в log-файлах. Эта утилита позволит предотвратить перебор паролей (brute force) и различные подозрительные действия от удаленных компьютеров. Единственное условие - запись события в log- файле.

Базовая установка содержит готовые фильтры для ssh, exim, postfix,cyrus-imap, apache, lighttpd, named и т.д. Можно их создавать и самим, для этого понадобится некоторое знание регулярных выраженией (regexp) в python. Сама настройка Fail2ban очень проста и логична. Рассмотрим базовую установку на сервере Linux Ubuntu Server 10.04 и простую настройку защиты ssh сервера.

Предположим, что наш ssh сервер слушает порт tcp:30500

1) Устанавливаем fail2ban

root@server: apt-get update
root@server: apt-get install fail2ban

2) Основной файл конфигурации: /etc/fail2ban/jail.conf

root@server: nano /etc/fail2ban/jail.conf

Рассмотрим его подробней:
Секция "DEFAULT" описывает настройки для всех фильтров по умолчанию, и используются в случае, если в фильтре не заданы свои настройки.

[DEFAULT]
# "ignoreip" can be an IP address, a CIDR mask or a DNS host
ignoreip = 127.0.0.1
bantime = 600
maxretry = 3

ignoreip - это разделенный пробелами список ip-адресов, которые не могут быть блокированы fail2ban. Сюда можно занести свою локальную машину или компьютер, с которого будут проводится эксперименты над системой.
bantime - время в секундах, на которое будет блокироваться хост.
maxretry - максимальное число ошибочных попыток доступа к сервису, прежде чем хост будет заблокирован fail2ban.
Секция "ssh" описывает настройки фильтра для ssh сервера.

[ssh]
enabled = true
port = ssh
filter = sshd
logpath = /var/log/auth.log
maxretry = 6

enabled - может принимать значение true или false. Включен,выключен фильтр.
port - может принимать значение в соответствии с описанием в файле /etc/services или цифровое значение (номер порта).
filter - имя соответствующего файла-фильтра в /etc/fail2ban/filter.d, без конечного .conf
logpath - файл логов, мониторинг которого осуществляет fail2ban, для проверки подозрительных действий.
maxretry - максимальное число ошибочных попыток доступа к сервису (только для данного фильтра), прежде чем хост будет заблокирован fail2ban.

В нашем случае, установим значение port =30500 и maxretry = 2 (2 попытки ввода пароля перед блокировкой) и добавим bantime = 3600 - время блокировки на 1 час. Получаем:

[ssh]
enabled = true
port = 30500
filter = sshd
logpath = /var/log/auth.log
maxretry = 2
bantime = 3600

3) Включим фильтр ssh-ddos, который будет защищать ssh сервер от попыток ddos-a.
Ищем секцию"ssh-ddos"

[ssh-ddos]
enabled = false
port = ssh
filter = sshd-ddos
logpath = /var/log/auth.log
maxretry = 6

Включаем работу данного фильтра, изменяем порт сервера ssh на 30500 и изменяем значение maxretry и добавляем bantime.

[ssh-ddos]
enabled = true
port = 30500
filter = sshd-ddos
logpath = /var/log/auth.log
maxretry = 2
bantime = 3600

Сохраняем файл конфигурации (Ctrl+O)

4) Не забываем перезапустить fail2ban после редактирования конфигурационного файла:

root@server: service fail2ban restart

5) Пробуем подключиться с удаленного компьютера по ssh и вводить неправильные пароли/логины. При правильной настройке файлов конфигурации , после 2-х попыток ввода неправильного пароля, удаленный компьютер сможет повторить попытку подключения к ssh серверу только через 1 час.
6) Лог работы fail2ban находится здесь: /var/log/fail2ban.log

Снятие бана Fail2ban

Для того, чтоб посмотреть список забаненных IP необходимо ввести в консоли:

root@server iptables -L fail2ban-ssh
После этого удаляем правило, где НОМЕР - номер из предыдущего вывода
root@server iptables -D fail2ban-ssh НОМЕР

Vbscript + Active Directory + Excel. Генерируем документ в Excel при помощи скрипта на vbscript.

2012-05-03T13:26:00.001-07:00

Возникла необходимость вытянуть данные по пользователям из Active Directory (AD) в таблицу Excel в формате, понятном не только системному администратору :) . Т.к. пользователи приходят/увольняются, то вручную каждый раз переделывать таблицу размером в 2 листа формата А3 мелким шрифтом как-то не по админски, поэтому, будем автоматизировать процесс создания таблицы при помощи VBScript - предоставим серверу выполнение этой задачи, пока мы будем заниматься более полезными вещами.

Исходные данные:
1) Имя домена: domen.local
2) Существует несколько филиалов территориально расположенных вдали друг от друга, каждый филиал сидит в своем OU и имеет свой набор групп пользователей. Все группы пользователей филиалов являются членами одной общей группы филиала. В свою очередь каждая общая группа филиала является членом общей группы предприятия.

Условная схема групп домена:

Задача:
Отобразить в определенной таблице Excel всех сотрудников (пользователей) предприятия с данными о принадлежности к определенным группам безопасности.Соответственно по каждому пользователю отобразить дополнительные данные (почтовый ящик и т.д.). В пределах групп будем сортировать пользователей в алфавитном порядке. Уволившихся сотрудников отмечаем красным цветом.

Содержимое скрипта надо сохранить в виде обычного текстового файла (NOTEPAD) и изменить расширение на .vbs
Например:
examle.vbs

    Const ADS_SCOPE_SUBTREE = 2
   Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
   'On Error Resume Next ' Не спотыкаться на ошибках

    ' Обьявляем массивы
   Dim XLAp
   Dim XLWb
   Dim XLWs
   Dim objADObject, strGroup, objGroupList

    ' Запускаем EXCEL
   Set XLAp = CreateObject("Excel.Application")
   XLAp.Visible = True
   lst = 1
   Set XLWb = XLAp.Workbooks.Add
   Set XLWs = XLWb.Worksheets(lst)
   XLWs.Activate

    ' Настройки листа EXCEL
   XLAp.ActiveSheet.PageSetup.Zoom = 60
   XLAp.ActiveSheet.PageSetup.PaperSize = 8
   XLAp.ActiveSheet.PageSetup.CenterHorizontally = True
   XLAp.ActiveSheet.PageSetup.LeftMargin = XLAp.Application.InchesToPoints(0.25)
   XLAp.ActiveSheet.PageSetup.RightMargin = XLAp.Application.InchesToPoints(0.25)
   XLAp.ActiveSheet.PageSetup.TopMargin = XLAp.Application.InchesToPoints(0.75)
   XLAp.ActiveSheet.PageSetup.BottomMargin = XLAp.Application.InchesToPoints(0.75)
   XLAp.ActiveSheet.PageSetup.HeaderMargin = XLAp.Application.InchesToPoints(0.3)
   XLAp.ActiveSheet.PageSetup.FooterMargin = XLAp.Application.InchesToPoints(0.3)

    ' Выставляем длинну колонок
   XLAp.Columns("A:A").ColumnWidth = 0.58
   XLAp.Columns("B:C").ColumnWidth = 2.71
   XLAp.Columns("D:D").ColumnWidth = 21.86
   XLAp.Columns("E:E").ColumnWidth = 29.43
   XLAp.Columns("F:F").ColumnWidth = 4.43
   XLAp.Columns("G:G").ColumnWidth = 36.86
   XLAp.Columns("H:T").ColumnWidth = 5.00
   XLAp.Columns("U:U").ColumnWidth = 42.14
   XLAp.Columns("V:V").ColumnWidth = 2.43

    ' Выставляем параметры столбцов
   XLAp.Range("D:D").Select
   XLAp.Selection.HorizontalAlignment = -4108
   XLAp.Selection.VerticalAlignment = -4108
   XLAp.Selection.Font.Bold = True
   XLAp.Selection.Font.Name = "Tahoma"
   XLAp.Selection.Font.Size = 8

   XLAp.Range("H:T").Select
   XLAp.Selection.Font.Bold = True
   XLAp.Selection.Font.Name = "Tahoma"
   XLAp.Selection.Font.Size = 8
   XLAp.Selection.HorizontalAlignment = -4108
   XLAp.Selection.VerticalAlignment = -4108


    ' Выставляем высоту ячеек
   XLAp.Rows("1:1").RowHeight = 5.25
   XLAp.Rows("2:2").RowHeight = 12.75
   XLAp.Rows("3:3").RowHeight = 18.75
   XLAp.Rows("7:7").RowHeight = 15.75
   XLAp.Rows("4:6").RowHeight = 12.75
   XLAp.Rows("10:10").RowHeight = 132.75

    ' Задаем шрифт и высоту строк ячеек
   XLAp.Rows("13:255").Select
   XLAp.Selection.Font.Name = "Tahoma"
   XLAp.Selection.Font.Size = 8
   XLAp.Selection.RowHeight = 10.00


    ' Обьединяем ячейки
   XLAp.Range("B7:V7").Merge
   XLAp.Range("B10:C10").Merge
   XLAp.Range("F9:F10").Merge
   XLAp.Range("B9:C10").Merge
   XLAp.Range("D9:D10").Merge
   XLAp.Range("E9:E10").Merge
   XLAp.Range("H9:K9").Merge
   XLAp.Range("L9:P9").Merge
   XLAp.Range("Q9:Q10").Merge
   XLAp.Range("R9:R10").Merge
   XLAp.Range("S9:S10").Merge
   XLAp.Range("T9:T10").Merge
   XLAp.Range("U9:V10").Merge


    ' Оформляем шапку таблицы
   XLAp.Range("U2:U6").Select
   With XLAp.Selection.Font
       .Name = "Tahoma"
       .Size = 10
   End With
   XLAp.Range("U2:U2").Select
   XLAp.ActiveCell.FormulaR1C1 = "УТВЕРЖДАЮ"
   XLAp.Range("U3:U3").Select
   XLAp.ActiveCell.FormulaR1C1 = "__________________________________________"
   XLAp.Range("U4:U4").Select
   XLAp.ActiveCell.FormulaR1C1 = "__________________________________________"
   XLAp.Range("U5:U5").Select
   XLAp.ActiveCell.FormulaR1C1 = "__________________________________________"
   XLAp.Range("U6:U6").Select
   XLAp.ActiveCell.FormulaR1C1 = "__________________________________________"


   ' Красим, заполняем шапку таблицы
   XLAp.Range("B7:V7").Select
   With XLAp.Selection.Font
       .Bold = True
       .Name = "Calibri"
       .Size = 16
   End With
   XLAp.Selection.HorizontalAlignment = -4108
   XLAp.Selection.VerticalAlignment = -4108
   XLAp.ActiveCell.FormulaR1C1 = "Схема распределения прав пользователей в группах домена DOMEN.LOCAL"

   XLAp.Range("B9:V10").Select
   XLAp.Selection.HorizontalAlignment = -4108
   XLAp.Selection.VerticalAlignment = -4108
   With XLAp.Selection.Font
       .Bold = True
       .Name = "Tahoma"
       .Size = 8
   End With
   With XLAp.Selection.Borders
       .LineStyle = 1
       .Weight = -4138
        End With
   With XLAp.Selection.Interior
       .ThemeColor = 1
       .TintAndShade = -0.149998474074526
   End With

   XLAp.Range("B10:C10").Select
   XLAp.ActiveCell.FormulaR1C1 = "№"

   XLAp.Range("D9:D10").Select
   XLAp.ActiveCell.FormulaR1C1 = "Название группы"

   XLAp.Range("E9:E10").Select
   XLAp.Selection.Interior.Color = 14922893
   XLAp.ActiveCell.FormulaR1C1 = "Название подгруппы (Англ.)"

   XLAp.Range("F9:F10").Select
   XLAp.Selection.Orientation = -90
   XLAp.Selection.Interior.Color = 14922893
   XLAp.ActiveCell.FormulaR1C1 = " Основное место работы"

   XLAp.Range("G9:G9").Select
   XLAp.Selection.Interior.Color = 14922893
   XLAp.ActiveCell.FormulaR1C1 = "Название подгруппы (Рус.)"

   XLAp.Range("G10:G10").Select
   XLAp.ActiveCell.FormulaR1C1 = "Название ресурса"

   XLAp.Range("H9:K9").Select
   XLAp.Selection.Interior.Color = 10147522
   XLAp.ActiveCell.FormulaR1C1 = "Project 2007"

   XLAp.Range("L9:P9").Select
   XLAp.Selection.Interior.Color = 12106214
   XLAp.ActiveCell.FormulaR1C1 = "Сервера"

   XLAp.Range("H10:H10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Руководитель организации"

   XLAp.Range("I10:I10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Руководитель ресурсов"

   XLAp.Range("J10:J10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Руководитель проектов"

   XLAp.Range("K10:K10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Участник групп"

   XLAp.Range("L10:L10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "1С_User"

   XLAp.Range("M10:M10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Terminal_user"

   XLAp.Range("N10:N10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "VPN Доступ"

   XLAp.Range("O10:O10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Интернет"

   XLAp.Range("P10:P10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Почтовый ящик"

   XLAp.Range("Q9:Q10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Доступ к USB портам"

   XLAp.Range("R9:R10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Доступ к CD-RW"

   XLAp.Range("S9:S10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "Видеонаблюдение"

   XLAp.Range("T9:T10").Select
   XLAp.Selection.Orientation = -90
   XLAp.ActiveCell.FormulaR1C1 = "ПО `БАРЬЕР`"

   XLAp.Range("U9:V10").Select
   XLAp.ActiveCell.FormulaR1C1 = "Примечание"
'---------------------------------------------------------------------------------------

'Начинаем заполнять таблицу значениями из AD
Set objGroup = GetObject("LDAP://CN=domen_all,OU=domen,DC=rdomen,DC=local")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")

' Перестановка значений массива
   arMem0 = arrMemberOf(0)
   arMem1 = arrMemberOf(1)
   arMem2 = arrMemberOf(2)
   arMem3 = arrMemberOf(3)
   arrMemberOf(0) = arMem3
   arrMemberOf(1) = arMem0
   arrMemberOf(2) = arMem1
   arrMemberOf(3) = arMem2

x = 12           ' Номер строки для вывода
razdel = 1       ' Счетчик раздела для нумерации разделов в таблице
BorderMainX = x ' Счетчик для выделения рамкой общей группы предприятия
For Each strMember in arrMemberOf
'Рисуем строку с названием основной группы красным цветом
   XLAp.Rows(x).RowHeight = 15.00
   XLAp.Range("B"&x &":C"&x).Merge
   XLAp.Range("E"&x &":V"&x).Merge
   XLAp.Range("B"&x &":V"&x).Select
   XLAp.Selection.Font.Bold = True
   XLAp.Selection.Font.Name = "Tahoma"
   XLAp.Selection.Font.Size = 8
   XLAp.Selection.HorizontalAlignment = -4108
   XLAp.Selection.VerticalAlignment = -4108
   XLAp.Selection.Borders.LineStyle = 1
   XLAp.Selection.Borders.Weight = -4138
   XLAp.Selection.Interior.Color = 4671487
   'Обрезаем лишнее
   tmpv = instr(1,strMember,",") - 1
    tmpv1 = left(strMember,tmpv)
    tmpv2 = right(tmpv1, len(tmpv1) - 3)
   DescGr = GetDescript(strMember)
    XLAp.Cells(x, 2).Value = razdel
   XLAp.Cells(x, 4).Value = tmpv2
   XLAp.Cells(x, 5).Value = DescGr

           ' Следующий вложенный цикл
           Podrazdel1 = 1       ' Счетчик подраздела
           Set objGroup2 = GetObject("LDAP://" & strMember)
           objGroup2.GetInfo
           arrMemberOf2 = objGroup2.GetEx("member")
           Call quickSort( arrMemberOf2, 0, UBound( arrMemberOf2 ))

           For Each strMember2 in arrMemberOf2
           x = x + 2
           tmpv = instr(1,strMember2,",") - 1
           tmpv1 = left(strMember2,tmpv)
           tmpv2 = right(tmpv1, len(tmpv1) - 3)
           ' Рисуем желтую ячейку
           XLAp.Range("C"&x &":D"&x).Select
           XLAp.Selection.NumberFormat = "@"
           XLAp.Selection.Font.Bold = True
           XLAp.Selection.HorizontalAlignment = -4108
           XLAp.Selection.Borders.LineStyle = 1
           XLAp.Selection.Borders.Weight = -4138
           XLAp.Selection.Interior.Color = 65535
           XLAp.Cells(x, 3).Value = razdel &"." &Podrazdel1

           XLAp.Cells(x, 4).Value = tmpv2

                   ' Начинаем следующий вложенный цикл
                   BorderPrazdelX = x +1   ' Записываем начальную координату х для рамки раздела
                   Podrazdel2 = 1       ' Счетчик подраздела
                   Set objGroup3 = GetObject("LDAP://" & strMember2)
                   objGroup3.GetInfo
                   arrMemberOf3 = objGroup3.GetEx("member")
                   Call quickSort( arrMemberOf3, 0, UBound( arrMemberOf3 ))   'Сортировка
                   For Each strMember3 in arrMemberOf3
                   x = x + 1
                   tmpv = instr(1,strMember3,",") - 1
                   tmpv1 = left(strMember3,tmpv)
                   tmpv2 = right(tmpv1, len(tmpv1) - 3)
                   'Рисуем голубую ячейку
                   XLAp.Range("D"&x &":U"&x).Select
                   XLAp.Selection.NumberFormat = "@"
                   XLAp.Selection.Font.Bold = True
                   XLAp.Selection.Borders.LineStyle = 1
                   XLAp.Selection.Borders.Weight = -4138
                   XLAp.Selection.Interior.Color = 14922893
                   XLAp.Cells(x, 4).Value = razdel &"." &Podrazdel1 &"." &Podrazdel2
                   XLAp.Cells(x, 5).Value = tmpv2
                   DescGr3 = GetDescript(strMember3)
                   XLAp.Cells(x, 7).Value = DescGr3
                   DescGr3 = ""
                   'ProjectOrgDir проверка -----------------------------------
                       strGp = "ProjectOrgDir"
                       Set objADus = GetObject("LDAP://" & strMember3)
                       If (IsMember(objADus, strGp) = True) Then
                           XLAp.Cells(x, 8).Value = "V"
                           End If
                   'ProjectResManager проверка -----------------------------
                       strGp = "ProjectResManager"
                       Set objADus = GetObject("LDAP://" & strMember3)
                       If (IsMember(objADus, strGp) = True) Then
                           XLAp.Cells(x, 9).Value = "V"
                           End If
                   'ProjectManProect проверка ------------------------------
                       strGp = "ProjectManProect"
                       Set objADus = GetObject("LDAP://" & strMember3)
                       If (IsMember(objADus, strGp) = True) Then
                           XLAp.Cells(x, 10).Value = "V"
                           End If
                   'ProjectUsers проверка -----------------------------------
                       strGp = "ProjectUsers"
                       Set objADus = GetObject("LDAP://" & strMember3)
                       If (IsMember(objADus, strGp) = True) Then
                           XLAp.Cells(x, 11).Value = "V"
                           End If
                       '1C_user проверка -----------------------------------
                       strGp = "1C_user"
                       Set objADus = GetObject("LDAP://" & strMember3)
                       If (IsMember(objADus, strGp) = True) Then
                           XLAp.Cells(x, 12).Value = "V"
                           End If
                       'Terminal_user проверка------------------------------
                       strGp = "Terminal_user"
                       Set objADus = GetObject("LDAP://" & strMember3)
                       If (IsMember(objADus, strGp) = True) Then
                           XLAp.Cells(x, 13).Value = "V"
                           End If
                       'Inet_User проверка ---------------------------------
                       strGp = "internet_user"
                       Set objADus = GetObject("LDAP://" & strMember3)
                       If (IsMember(objADus, strGp) = True) Then
                           XLAp.Cells(x, 15).Value = "V"
                           End If

                           ' Начинаем следующий вложенный цикл, который выводит пользователей
                           Set objGroup4 = GetObject("LDAP://" & strMember3)
                           objGroup4.GetInfo
                           On Error Resume Next
                           'If Not (IsNull(objGroup4.GetInfo)) then
                           arrMemberOf4 = objGroup4.GetEx("member")
                           If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then

                               'XLAp.Cells(x, 25).Value = arrMemberOf4(0)
                               Call quickSort( arrMemberOf4, 0, UBound( arrMemberOf4 ))   ' Сортировка
                               For Each strMember4 in arrMemberOf4
                               x = x + 1
                               tmpv = instr(1,strMember4,",") - 1
                               tmpv1 = left(strMember4,tmpv)
                               tmpv2 = right(tmpv1, len(tmpv1) - 3)
                               XLAp.Range("F"&x &":U"&x).Select
                               XLAp.Selection.Borders.LineStyle = 1
                               XLAp.Range("F"&x &":G"&x).Select
                               If DisabledAkk(strMember4) Then
         'Выделяем красным отключенных пользователей
                                   XLAp.Selection.Interior.Color = 4671487
                               End If
                               UsEmail = GetEmail(strMember4)
                               XLAp.Cells(x, 21).Value = UsEmail
                               UsEmail = ""
                           XLAp.Cells(x, 7).Value = tmpv2

                           'ProjectOrgDir проверка ----------------------------
                           strGp = "ProjectOrgDir"
                           Set objADus = GetObject("LDAP://" & strMember3)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 8).Value = "V"
                           End If
                           'ProjectResManager проверка ----------------------
                           strGp = "ProjectResManager"
                           Set objADus = GetObject("LDAP://" & strMember3)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 9).Value = "V"
                           End If
                           'ProjectManProect проверка ------------------------
                           strGp = "ProjectManProect"
                           Set objADus = GetObject("LDAP://" & strMember3)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 10).Value = "V"
                           End If
                           'ProjectUsers проверка -----------------------------
                           strGp = "ProjectUsers"
                           Set objADus = GetObject("LDAP://" & strMember4)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 11).Value = "V"
                           End If
                           '1C_user проверка ----------------------------------
                           strGp = "1C_user"
                           Set objADus = GetObject("LDAP://" & strMember4)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 12).Value = "V"
                           End If
                           'Terminal_user проверка ----------------------------
                           strGp = "Terminal_user"
                           Set objADus = GetObject("LDAP://" & strMember4)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 13).Value = "V"
                           End If
                           'VPN_user проверка --------------------------------
                           strGp = "VPN_user"
                           Set objADus = GetObject("LDAP://" & strMember4)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 14).Value = "V"
                           End If
                           'Inet_User проверка --------------------------------
                           strGp = "internet_user"
                           Set objADus = GetObject("LDAP://" & strMember4)
                           If (IsMember(objADus, strGp) = True) Then
                               XLAp.Cells(x, 15).Value = "V"
                           End If
                           '----------------------------------------------------
                           XLAp.Range("H"&x &":K"&x).Select
                           XLAp.Selection.Interior.Color = 10147522
                           XLAp.Range("L"&x &":P"&x).Select
                           XLAp.Selection.Interior.Color = 12106214
                               Next
                               arrMemberOf4 =""   ' сбрасываем в ноль для предотвращения повторений
                       End If
                      Podrazdel2 = Podrazdel2 + 1
                   ' Выделяем рамкой раздел
                   XLAp.Range("D"&BorderPrazdelX &":U"&x).Select
                   BigBorder
                   XLAp.Range("E"&BorderPrazdelX &":E"&x).Select
                   BigBorder
                   XLAp.Range("G"&BorderPrazdelX &":G"&x).Select
                   BigBorder
                   XLAp.Range("F"&BorderPrazdelX &":F"&x).Select
                   BigBorder
                   XLAp.Range("H"&BorderPrazdelX &":K"&x).Select
                   BigBorder
                   XLAp.Range("L"&BorderPrazdelX &":P"&x).Select
                   BigBorder
                   XLAp.Range("Q"&BorderPrazdelX &":T"&x).Select
                   BigBorder
                   Next
               Podrazdel1 = Podrazdel1 + 1
           Next

    razdel = razdel + 1
   XLAp.Range("B"&BorderMainX &":V"&x+1).Select 'Рисуем рамку главной группы
   BigBorder
   x = x + 3   ' Делаем отступ для следующей группы
   BorderMainX = x
Next

Function BigBorder()' Функция выделения раздела рамкой
   XLAp.Selection.Borders(5).LineStyle = -4142
                   XLAp.Selection.Borders(6).LineStyle = -4142
                   With XLAp.Selection.Borders(7)
                   .LineStyle = 1
                   .ColorIndex = 0
                   .TintAndShade = 0
                   .Weight = -4138
                   End With
                   With XLAp.Selection.Borders(8)
                   .LineStyle = 1
                   .ColorIndex = 0
                   .TintAndShade = 0
                   .Weight = -4138
                   End With
                   With XLAp.Selection.Borders(9)
                   .LineStyle = 1
                   .ColorIndex = 0
                   .TintAndShade = 0
                   .Weight = -4138
                   End With
                   With XLAp.Selection.Borders(10)
                   .LineStyle = 1
                   .ColorIndex = 0
                   .TintAndShade = 0
                   .Weight = -4138
                   End With
End Function

Function GetDescript(LdpAd)' Функция возврата текстового поля description группы
   Set oGroup = GetObject ("LDAP://" & LdpAd)
   GetDescript = oGroup.Description
End Function

Function GetEmail(LdpAd)' Функция возврата текстового поля группы
   On Error Resume Next
   Set oGroup = GetObject ("LDAP://" & LdpAd)
   GetEmail = oGroup.EmailAddress
   Err.Clear
End Function

Function DisabledAkk(LdpAd)' Функция проверки отключен ли аккаунт
   Set oGroup = GetObject ("LDAP://" & LdpAd)
   DisabledAkk = oGroup.AccountDisabled
End Function
'--------------------------------------------------------------------------------
Function splitArray(anArray, leftBound, rightBound)           ' Сортировка массива
            Dim leftValue, rightValue, pivotValue, pivot, left, right
            left = leftBound
            pivot = left
            right = rightBound
            pivotValue = anArray( pivot )

            Do while left < right
                rightValue = anArray( right )
                Do while pivotValue <= rightValue and left < right
                    right = right - 1
                    rightValue = anArray( right )
                Loop
                anArray( left ) = rightValue

                leftValue = anArray( left )
                Do while pivotValue > leftValue and left < right
                    left = left + 1
                    leftValue = anArray( left )
                Loop
                anArray( right ) = leftValue
            Loop

            anArray( left ) = pivotValue
            splitArray = left
        End function

        ' собственно сортировка
        Function quickSort(anArray, leftBound, rightBound)
            Dim splitIndex, left, right
            left = leftBound
            right = rightBound
            If ( left < right ) then
                splitIndex = splitArray( anArray, left, Right )
                Call quickSort( anArray, left, splitIndex - 1 )
                Call quickSort( anArray, splitIndex + 1, right )
            End if
        End Function

'------------------------------------------------------------
Function IsMember(ByVal objADObject, ByVal strGroup)
    ' Function to test for group membership.
    ' objADObject is a user or computer object.
    ' strGroup is the NT name (sAMAccountName) of the group to test.
    ' objGroupList is a dictionary object, with global scope.
    ' Returns True if the user or computer is a member of the group.
    ' Subroutine LoadGroups is called once for each different objADObject.

    If (IsEmpty(objGroupList) = True) Then
        Set objGroupList = CreateObject("Scripting.Dictionary")
        objGroupList.CompareMode = vbTextCompare
        Call LoadGroups(objADObject)
    End If
    If (objGroupList.Exists(objADObject.sAMAccountName & "\") = False) Then
        Call LoadGroups(objADObject)
    End If
    IsMember = objGroupList.Exists(objADObject.sAMAccountName & "\" _
        & strGroup)
End Function

Sub LoadGroups(ByVal objADObject)
    ' Subroutine to populate dictionary object with group memberships.
    ' objGroupList is a dictionary object, with global scope. It keeps track
    ' of group memberships for each user or computer separately.

    Dim arrbytGroups, j
    Dim arrstrGroupSids(), objGroup

    objGroupList.Add objADObject.sAMAccountName & "\", True

    objADObject.GetInfoEx Array("tokenGroups"), 0
    arrbytGroups = objADObject.Get("tokenGroups")
    If (TypeName(arrbytGroups) = "Byte()") Then
        ReDim arrstrGroupSids(0)
        arrstrGroupSids(0) = OctetToHexStr(arrbytGroups)
        Set objGroup = GetObject("LDAP://<SID=" & arrstrGroupSids(0) _
            & ">")
        objGroupList.Add objADObject.sAMAccountName & "\" _
            & objGroup.sAMAccountName, True
        Exit Sub
    End If
    If (UBound(arrbytGroups) = -1) Then
        Exit Sub
    End If

    ReDim arrstrGroupSids(UBound(arrbytGroups))
    For j = 0 To UBound(arrbytGroups)
        arrstrGroupSids(j) = OctetToHexStr(arrbytGroups(j))
        Set objGroup = GetObject("LDAP://<SID=" & arrstrGroupSids(j) _
            & ">")
        objGroupList.Add objADObject.sAMAccountName & "\" _
            & objGroup.sAMAccountName, True
    Next

End Sub

Function OctetToHexStr(ByVal arrbytOctet)
    ' Function to convert OctetString (byte array) to Hex string.

    Dim k
    OctetToHexStr = ""
    For k = 1 To Lenb(arrbytOctet)
        OctetToHexStr = OctetToHexStr _
            & Right("0" & Hex(Ascb(Midb(arrbytOctet, k, 1))), 2)
    Next
End Function

'------------------------------------------------------------------

В результате выполнения скрипта имеем документ в EXCEL, который сразу можно отправлять на принтер:

Некоторые особенности:
1) Значение некоторых свойств и методов можно подсмотреть в режиме записи макроса (т.е. записать макрос и посмотреть какие свойства и методы применяются).
2) Для запуска скрипта в системе должен быть установлен принтер и компьютер, на котором запускается скрипт, должен быть в домене Active Directory.

Установка Ubuntu Server 10.04 или 12.04 + VirtualBox (virtualbox headless) + phpvirtualbox + автозапуск

2012-05-02T06:08:00.002-07:00

Сегодня будем устанавливать сервер виртуальных машин на базе ОС Ubuntu Server 10.04 и Virtualbox в режиме headless - без графического интерфейса (т.е. без запуска оконного менеджера на сервере). Управлять виртуальными машинами будем через веб интерфейс (phpvirtualbox) с любого компьютера в локальной сети. Так же напишем скрипт для автоматического запуска нашей виртуальной машины и научимся .

Часть 1. Установка VirtualBox

1) Устанавливаем Ubuntu Server 10.04 или 12.04 на наш физический сервер.
2) Настраиваем сетевые интерфейсы. (IP адрес моего сервера в сети 192.168.100.4)
3) устанавливаем ssh сервер и mc (Midnight Commander)

root@server: apt-get install ssh mc

4) подключаемся к серверу по ssh и далее все действия производим через ssh
5) добавляем репозиторий в /etc/apt/sources.list
Открываем файл в редакторе nano:

root@server: nano /etc/apt/sources.list

в конец файла добавляем адрес репозитория virtualbox для нашего релиза
(смотрим здесь: https://www.virtualbox.org/wiki/Linux_Downloads )

deb http://download.virtualbox.org/virtualbox/debian lucid contrib non-free

сохраняем. (Ctrl+O)
Выходим из редактора (Ctrl+Q)

6) Добавляем ключ репозитория. В консоли:

root@server: wget -q http://download.virtualbox.org/virtualbox/debian/oracle_vbox.asc -O- | sudo apt-key add -

7) Обновляем список доступных для установки пакетов:

root@server: apt-get update

8) Обновляем систему:

root@server: apt-get upgrade

9) Устанавливаем пакеты, необходимые для автоматической пересборки модуля ядра virtualbox после обновления системы командой apt-get upgrade

root@server: apt-get install linux-headers-$(uname -r) build-essential dkms

10) На странице https://www.virtualbox.org/wiki/Linux_Downloads напротив нашей OS Ubuntu 10.04 LTS ("Lucid Lynx") есть две ссылки - выбираем нужную для нашего релиза ( в нашем случае i386) в браузере правой кнопкой мыши - копировать ссылку на закачку пакета
Скачиваем пакет virtualbox

root@server: wget http://download.virtualbox.org/virtualbox/4.1.12/virtualbox-4.1_4.1.12-77245~Ubuntu~lucid_i386.deb

11) Устанавливаем пакет

root@server: dpkg -i virtualbox-4.1_4.1.12-77245~Ubuntu~lucid_i386.deb

12) Устанавливаем необходимые зависимости пакета:

root@server: apt-get -f install

13) Далее надо установить VirtualBox_Extension_Pack
Ссылка на странице https://www.virtualbox.org/wiki/Downloads
Скачиваем пакет:

root@server: wget http://download.virtualbox.org/virtualbox/4.1.12/Oracle_VM_VirtualBox_Extension_Pack-4.1.12-77245.vbox-extpack

14) Устанавливаем Extension_Pack, который добавляет следующий функционал:
     а) RDP сервер — позволяет подключаться к виртуальной системе удалённо с помощью любого RDP совместимого клиента;
     б) Поддержка USB — позволяет передавать виртуальной машине USB устройства;
     в) Intel PXE boot ROM — загрузка операционной системы по сети. Используется для создания тонких клиентов/бездисковых рабочих станций.

root@server: VBoxManage extpack install Oracle_VM_VirtualBox_Extension_Pack-4.1.12-77245.vbox-extpack

Видим вывод в консоли:

0%...10%...20%...30%...40%...50%...60%...70%...80%...90%...100%
Successfully installed "Oracle VM VirtualBox Extension Pack".

Установка PHPVirtualBox.

15) Ставим веб сервер apache и php

root@server: apt-get install apache2 php5

16) Теперь необходимо установить phpvirtualbox - бесплатная реализация веб интерфейса для virtualbox с открытым исходным кодом. Идем по ссылке http://code.google.com/p/phpvirtualbox/downloads/list и берем последнюю версию phpvirtualbox.
Скачиваем пакет:

root@server: wget http://phpvirtualbox.googlecode.com/files/phpvirtualbox-4.1-7.zip

17) Устанавливаем архиватор:

root@server: apt-get install unzip

18) Извлекаем файлы из архива:

root@server: unzip phpvirtualbox-4.1-7.zip

19) Запускаем Midnight Commander

root@server: mc

Удаляем все файлы в папке /var/www/
копируем содержимое распакованного архива из /root/phpvirtualbox-4.1-7 в /var/www
Выходим из mc.
20) Переходим в корень нашего сайта

root@server: cd /var/www/

21) Создаем конфигурационный файл из дефолтного командой:

root@server: mv config.php-example config.php

22) Добавляем пользователя vbox в систему командой

root@server: adduser vbox

Указываем пароль пользователя vbox, запоминаем этот пароль.
23) Добавляем пользователя vbox в группу vboxusers

root@server: usermod -a -G vboxusers vbox

24) Проверяем состоит ли пользователь в группе vboxusers

root@server: id vbox

25) Редактируем config.php

root@server: nano /var/www/config.php

Ищем строки:

/* Username / Password for system user that runs VirtualBox */
var $username = 'vbox';
var $password = 'pass';

Вместо pass - вводим пароль, который вы вводили при создании пользователя vbox.
----------------------------------------
В этом же файле находим строки:

/* SOAP URL of vboxwebsrv (not phpVirtualBox's URL) */
var $location = 'http://127.0.0.1:18083/';

Вместо 127.0.0.1 прописываем IP адрес нашего сервера в сети (у меня 192.168.100.4)
Получилось:

/* SOAP URL of vboxwebsrv (not phpVirtualBox's URL) */
var $location = 'http://192.168.100.4:18083/';

----------------------------------------
Находим строки:

// Host / ip to use for console connections
#var $consoleHost = '192.168.1.40';

Меняем IP на IP нашего сервера:

// Host / ip to use for console connections
var $consoleHost = '192.168.100.4';

----------------------------------------
Сохраняем файл (Ctrl+O)
Выходим из nano (Ctrl+Q)

26) Для работы нашего веб интерфейса нам понадобится конфигурационный файл.
Создаем файл:

root@server: nano /etc/default/virtualbox

Вставляем в файл содержимое ниже (IP адрес меняем на IP своего сервера):

VBOXWEB_USER=vbox
VBOXWEB_HOST=192.168.100.4
VBOXWEB_PORT=18083

Сохраняем файл
27) Перезагружаем vboxwebsrv командой:

root@server: /etc/init.d/vboxweb-service restart

28) Для правильной обработки нажатия кнопки питания на сервере установим пакет acpid.

root@server: apt-get install acpid

29) Перезагружаем наш сервер

root@server: reboot

30) После перезагрузки сервера в браузере вводим http://192.168.100.4 (т.е. IP нашего сервера) и попадаем в веб интерфейс управления виртуальными машинами.

Логин admin
Пароль admin

В веб интерфейсе phpvirtualbox можно сменить дефолтный пароль на свой и добавить / удалить пользователей, которые смогут управлять виртуальными машинами.

P.S.
Перекомпилировать модули ядра для virtualbox можно вручную запустив в консоли команду:

root@server: /etc/init.d/vboxdrv setup

Часть 2. Настраиваем автозапуск виртуальной машины при загрузке сервера.

После того, как мы создали виртуальную машину через веб интерфейс (имя: Windows2003), нам необходимо настроить автозапуск нашей виртуальной машины при загрузке сервера и сохранение состояния виртуальной машины (не выключение) при выключении/перезагрузке физического сервера.

Итак, я создал виртуальную машину с именем Windowz2003

1) Создаем скрипт автозапуска виртуальной машины (желательно, чтоб название скрипта совпадало с именем виртуальной машины - так будет легче в будущем запускать или останавливать виртуальные машины):

root@server: nano /etc/init.d/Windowz2003

Вставляем в файл следующий код:

#!/bin/bash
### BEGIN INIT INFO
# Provides: Windowz2003
# Required-Start: $all
# Required-Stop: $remote_fs $syslog
# Default-Start: 2 3 4 5
# Default-Stop: 0 1 6
# Short-Description: Start daemon at boot time
# Description: Enable service provided by daemon.
### END INIT INFO

# description: VirtualBox VM Autostarter v1.1 Written by Scorp.
. /lib/lsb/init-functions
VM_USER="vbox"
SU="sudo -H -u $VM_USER "
VM="Windowz2003"
#----------------------
VMSTATUS=`$SU VBoxManage showvminfo $VM |grep "State:"|awk 'NR<2{print $2}'`
# Вывод информации ---------------------
VMRUNS2=`$SU VBoxManage list -l runningvms|grep "Name:"`
VMRUNS=`$SU VBoxManage list vms | awk '{print $1}' | tr -d \"`
echo
echo -e "\e[0;36m===============================\e[00m"
echo -e "\e[01;33m Виртуальные машины в системе:\e[00m"
echo
for line in $VMRUNS
do
se_wd=`echo $VMRUNS2 | grep $line`
if [ -z "$se_wd" ]
then
echo -e "\e[01;31m OFF $line\e[00m"
else
echo -e "\e[01;32m ON $line\e[00m"
fi
done
echo -e "\e[0;36m===============================\e[00m"
echo
#---------------------------------------

case "$1" in
start)
if [ $VMSTATUS != "running" ]
then
log_daemon_msg "Starting VirtualBox $VM mashine"
$SU VBoxManage startvm $VM --type headless
log_end_msg 0
fi
;;
restart)
log_daemon_msg "Reseting VirtualBox $VM mashine"
$SU VBoxManage controlvm $VM reset
log_end_msg 0
;;
stop)
if [ $VMSTATUS != "saved" ]
then
log_daemon_msg "Saving state of VirtualBox $VM mashine"
$SU VBoxManage controlvm $VM savestate
log_end_msg 0
fi
;;
*)
echo "Usage: $0 {start|restart|stop}"
exit 1
;;
esac
:

В этом скрипте необходимо изменить только значение переменной VM, в ней нужно указать название вашей виртуальной машины, которая отображается в веб интерфейсе phpvirtualbox.

Делаем файл исполняемым и добавляем его в автозагрузку командами:

root@server: chmod +x /etc/init.d/Windowz2003
root@server: update-rc.d Windowz2003 start 70 2 3 4 5 . stop 20 0 1 6 .

Скрипт можно запускать вручную из командной строки:
a) выводит состояние виртуальной машины и список параметров:

root@server: etc/init.d/Windowz2003

б) запускает текущую виртуальную машину, если она не запущена (если не со статусом "running":
root@server: etc/init.d/Windowz2003 start
в) сохраняет состояние виртуальной машины, если она не со статусом "saved"

root@server: etc/init.d/Windowz2003 stop

г) рестарт виртуальной машины ( аналог нажатия кнопки reset)

root@server: etc/init.d/Windowz2003 restart

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

Внимание! Цель данной статьи - помочь начинающим пользователям Linux создать полигон для виртуальных машин в локальной сети. Если вы хотите выставить сервер в сеть интернет и управлять им - необходимо предпринять меры по защите сервера !!!