mysqldump -u root -pПАРОЛЬ --all-databases | gzip > /home/adis/$(date +%F)_full_DB.sql.gz
пятница, 22 января 2016 г.
Бекап БД MySQL по cron с датой
mysqldump -u root -pПАРОЛЬ --all-databases | gzip > /home/adis/$(date +%F)_full_DB.sql.gz
пятница, 30 октября 2015 г.
Скрипт для инвентаризации компьютеров в сети
Данный великолепный скрипт был взят от сюда:
http://zheleznov.info/invent_comp.htm ОГРОМНОЕ СПАСИБО АВТОРУ!!!
и модифицирован под свои нужды. Добавлена возможность брать список компьютеров из текстового файла без необходимости ввода именни компьютера. Подробно описание работы скрипта на сайте автора (адрес см. выше).
Пример текстового файла со списком компьютеров:
--------------------------------------------------------------------
comp1
comp2
comp3
--------------------------------------------------------------------
Скрипт
--------------------------------------------------------------------
filename = "ПУСТЬ К ФАЙЛУ СО СПИСКОМ ПК"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)
Do Until f.AtEndOfStream
'Инвентаризация установленных программ и обновлений средствами WMI и VBScript (24.08.2010)
'Отчет в отдельном файле CSV для последующей сборки общего отчета
'Подробности - см. http://zheleznov.info/invent_soft.htm
'Автор: Павел Железнов
'== НАСТРОЙКИ
'настройки для инвентаризации программ
Const UPDATES = False 'не учитывать обновления
Const TITLE = "Инвентаризация установленных программ" 'заголовок диалоговых окон
Const DATA_DIR = "soft\" 'каталог для сохранения отчетов + "\" в конце
'Const DATA_DIR = "\\SRV\Invent\soft\" 'сетевой ресурс для сохранения отчетов + "\" в конце
'настройки для инвентаризации обновлений
'Const UPDATES = True 'учитывать только обновления
'Const TITLE = "Инвентаризация установленных обновлений" 'заголовок диалоговых окон
'Const DATA_DIR = "updates\" 'каталог для сохранения отчетов + "\" в конце
'Const DATA_DIR = "\\SRV\Invent\updates\" 'сетевой ресурс для сохранения отчетов + "\" в конце
'прочие настройки
Const DATA_EXT = ".csv" 'расширение файла отчета
Const SILENT = True 'тихий режим отключен, будет запрошено имя компьютера
'Const SILENT = True 'режим отчета о локальном компьютере без вывода диалогов
Const HEAD_LINE = True 'выводить заголовки в первой строке CSV-файла
'не завершать скрипт аварийно
On Error Resume Next
'== ВЫПОЛНЕНИЕ
'глобальные переменные
Dim wmio
'узнать имя локального компьютера
Dim comp, nwo
Set nwo = CreateObject("WScript.Network")
comp = f.ReadLine
'запросить имя удаленного компьютера
If Not SILENT Then
comp = InputBox("Введите имя компьютера:", TITLE, comp)
'проверить доступность компьютера
If Len(comp) > 0 And Unavailable(comp) Then
MsgBox "Компьютер недоступен:" & vbCrLf & comp, vbExclamation, TITLE
comp = ""
End If
End If
'провести инвентаризацию
If Len(comp) > 0 Then InventSoft
'если ошибка
If Len(Err.Description) > 0 Then _
If Not SILENT Then MsgBox comp & vbCrLf & "Ошибка:" & vbCrLf & Err.Description, vbExclamation, TITLE
'== ПОДПРОГРАММЫ
'обращение к WMI оформлено в подпрограмму, чтобы можно было корректно обработать возможную ошибку
'проверить указанный ключ реестра; вернуть строку для записи в файл отчета
'проверить доступность компьютера в сети; вернуть True, если адрес недоступен
Loop
f.Close
Sub InventSoft
'подключить реестр удаленного компьютера через WMI
Set wmio = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & comp & "\Root\default:StdRegProv")
'создать файл отчета
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(DATA_DIR) Then
If Not SILENT Then MsgBox "Не найден каталог для сохранения отчета:" & vbCrLf & DATA_DIR, vbExclamation, TITLE
Exit Sub
End If
Set tf = fso.CreateTextFile(DATA_DIR & comp & DATA_EXT, True)
'записать заголовки столбцов
If HEAD_LINE Then tf.WriteLine "Название и версия;Производитель;Дата установки"
'искать программы и оформить текст для отчета
Dim s
s = ExtractSoft("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\")
If Len(s) > 0 Then tf.Write s
'для 64-битных систем есть еще другой ключ! (32-битные программы на 64-битной системе)
s = ExtractSoft("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\")
If Len(s) > 0 Then tf.Write s
'закрыть файл отчета
tf.Close
If Not SILENT Then MsgBox "Отчет сохранен в файл:" & vbCrLf & DATA_DIR & comp & DATA_EXT, vbInformation, TITLE
End Sub
Function ExtractSoft(key)
'получить коллекцию
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Dim items
wmio.EnumKey HKLM, key, items
If IsNull(items) Then
ExtractSoft = ""
Exit Function
End If
'отобрать нужные элементы
Dim s, item, ok, name, publ, inst, x, prev
s = "" 'результат накапливать в строке
For Each item In items
ok = True 'флаг продолжения
'название, пропускать пустые и повторяющиеся
prev = name
wmio.GetStringValue HKLM, key & item, "DisplayName", name
If IsNull(name) Or Len(name) = 0 Or name = prev Then
ok = False
Else 'не допускать символ ";"
name = Replace(name, ";", "_")
End If
'отделить заплатки, по значению параметра ParentKeyName = "OperatingSystem"
If ok Then
wmio.GetStringValue HKLM, key & item, "ParentKeyName", x
'для программ
If UPDATES Then
If IsNull(x) Or x <> "OperatingSystem" Then ok = False
'для обновлений
Else
If Not IsNull(x) And x = "OperatingSystem" Then ok = False
End If
End If
'дата установки
If ok Then
wmio.GetStringValue HKLM, key & item, "InstallDate", inst
If IsNull(inst) Or Len(inst) < 8 Then
inst = "-"
Else 'преобразовать в читаемый вид
inst = Mid(inst, 7, 2) & "." & Mid(inst, 5, 2) & "." & Left(inst, 4)
End If
End If
'производитель
If ok Then
wmio.GetStringValue HKLM, key & item, "Publisher", publ
If IsNull(publ) Or Len(publ) = 0 Then publ = "-"
End If
If ok Then s = s & name & ";" & publ & ";" & inst & vbCrLf
Next
ExtractSoft = s
End Function
Function Unavailable(addr)
Dim wmio, ping, p
Set wmio = GetObject("WinMgmts:{impersonationLevel=impersonate}")
Set ping = wmio.ExecQuery("SELECT StatusCode FROM Win32_PingStatus WHERE Address = '" & addr & "'")
For Each p In ping
If IsNull(p.StatusCode) Then
Unavailable = True
Else
Unavailable = (p.StatusCode <> 0)
End If
Next
End Function
http://zheleznov.info/invent_comp.htm ОГРОМНОЕ СПАСИБО АВТОРУ!!!
и модифицирован под свои нужды. Добавлена возможность брать список компьютеров из текстового файла без необходимости ввода именни компьютера. Подробно описание работы скрипта на сайте автора (адрес см. выше).
Пример текстового файла со списком компьютеров:
--------------------------------------------------------------------
comp1
comp2
comp3
--------------------------------------------------------------------
Скрипт
--------------------------------------------------------------------
filename = "ПУСТЬ К ФАЙЛУ СО СПИСКОМ ПК"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)
Do Until f.AtEndOfStream
'Инвентаризация установленных программ и обновлений средствами WMI и VBScript (24.08.2010)
'Отчет в отдельном файле CSV для последующей сборки общего отчета
'Подробности - см. http://zheleznov.info/invent_soft.htm
'Автор: Павел Железнов
'== НАСТРОЙКИ
'настройки для инвентаризации программ
Const UPDATES = False 'не учитывать обновления
Const TITLE = "Инвентаризация установленных программ" 'заголовок диалоговых окон
Const DATA_DIR = "soft\" 'каталог для сохранения отчетов + "\" в конце
'Const DATA_DIR = "\\SRV\Invent\soft\" 'сетевой ресурс для сохранения отчетов + "\" в конце
'настройки для инвентаризации обновлений
'Const UPDATES = True 'учитывать только обновления
'Const TITLE = "Инвентаризация установленных обновлений" 'заголовок диалоговых окон
'Const DATA_DIR = "updates\" 'каталог для сохранения отчетов + "\" в конце
'Const DATA_DIR = "\\SRV\Invent\updates\" 'сетевой ресурс для сохранения отчетов + "\" в конце
'прочие настройки
Const DATA_EXT = ".csv" 'расширение файла отчета
Const SILENT = True 'тихий режим отключен, будет запрошено имя компьютера
'Const SILENT = True 'режим отчета о локальном компьютере без вывода диалогов
Const HEAD_LINE = True 'выводить заголовки в первой строке CSV-файла
'не завершать скрипт аварийно
On Error Resume Next
'== ВЫПОЛНЕНИЕ
'глобальные переменные
Dim wmio
'узнать имя локального компьютера
Dim comp, nwo
Set nwo = CreateObject("WScript.Network")
comp = f.ReadLine
'запросить имя удаленного компьютера
If Not SILENT Then
comp = InputBox("Введите имя компьютера:", TITLE, comp)
'проверить доступность компьютера
If Len(comp) > 0 And Unavailable(comp) Then
MsgBox "Компьютер недоступен:" & vbCrLf & comp, vbExclamation, TITLE
comp = ""
End If
End If
'провести инвентаризацию
If Len(comp) > 0 Then InventSoft
'если ошибка
If Len(Err.Description) > 0 Then _
If Not SILENT Then MsgBox comp & vbCrLf & "Ошибка:" & vbCrLf & Err.Description, vbExclamation, TITLE
'== ПОДПРОГРАММЫ
'обращение к WMI оформлено в подпрограмму, чтобы можно было корректно обработать возможную ошибку
'проверить указанный ключ реестра; вернуть строку для записи в файл отчета
'проверить доступность компьютера в сети; вернуть True, если адрес недоступен
Loop
f.Close
Sub InventSoft
'подключить реестр удаленного компьютера через WMI
Set wmio = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & comp & "\Root\default:StdRegProv")
'создать файл отчета
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(DATA_DIR) Then
If Not SILENT Then MsgBox "Не найден каталог для сохранения отчета:" & vbCrLf & DATA_DIR, vbExclamation, TITLE
Exit Sub
End If
Set tf = fso.CreateTextFile(DATA_DIR & comp & DATA_EXT, True)
'записать заголовки столбцов
If HEAD_LINE Then tf.WriteLine "Название и версия;Производитель;Дата установки"
'искать программы и оформить текст для отчета
Dim s
s = ExtractSoft("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\")
If Len(s) > 0 Then tf.Write s
'для 64-битных систем есть еще другой ключ! (32-битные программы на 64-битной системе)
s = ExtractSoft("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\")
If Len(s) > 0 Then tf.Write s
'закрыть файл отчета
tf.Close
If Not SILENT Then MsgBox "Отчет сохранен в файл:" & vbCrLf & DATA_DIR & comp & DATA_EXT, vbInformation, TITLE
End Sub
Function ExtractSoft(key)
'получить коллекцию
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Dim items
wmio.EnumKey HKLM, key, items
If IsNull(items) Then
ExtractSoft = ""
Exit Function
End If
'отобрать нужные элементы
Dim s, item, ok, name, publ, inst, x, prev
s = "" 'результат накапливать в строке
For Each item In items
ok = True 'флаг продолжения
'название, пропускать пустые и повторяющиеся
prev = name
wmio.GetStringValue HKLM, key & item, "DisplayName", name
If IsNull(name) Or Len(name) = 0 Or name = prev Then
ok = False
Else 'не допускать символ ";"
name = Replace(name, ";", "_")
End If
'отделить заплатки, по значению параметра ParentKeyName = "OperatingSystem"
If ok Then
wmio.GetStringValue HKLM, key & item, "ParentKeyName", x
'для программ
If UPDATES Then
If IsNull(x) Or x <> "OperatingSystem" Then ok = False
'для обновлений
Else
If Not IsNull(x) And x = "OperatingSystem" Then ok = False
End If
End If
'дата установки
If ok Then
wmio.GetStringValue HKLM, key & item, "InstallDate", inst
If IsNull(inst) Or Len(inst) < 8 Then
inst = "-"
Else 'преобразовать в читаемый вид
inst = Mid(inst, 7, 2) & "." & Mid(inst, 5, 2) & "." & Left(inst, 4)
End If
End If
'производитель
If ok Then
wmio.GetStringValue HKLM, key & item, "Publisher", publ
If IsNull(publ) Or Len(publ) = 0 Then publ = "-"
End If
If ok Then s = s & name & ";" & publ & ";" & inst & vbCrLf
Next
ExtractSoft = s
End Function
Function Unavailable(addr)
Dim wmio, ping, p
Set wmio = GetObject("WinMgmts:{impersonationLevel=impersonate}")
Set ping = wmio.ExecQuery("SELECT StatusCode FROM Win32_PingStatus WHERE Address = '" & addr & "'")
For Each p In ping
If IsNull(p.StatusCode) Then
Unavailable = True
Else
Unavailable = (p.StatusCode <> 0)
End If
Next
End Function
Скрипт для копирования файлов по сети
Данный vbs скрипт позволят скопировать файлы с локального компьютера на компьютеры в доменной сети, имена которых берутся из файла.
Пример текстового файла со списком компьютеров:
--------------------------------------------------------------------
comp1
comp2
comp3
--------------------------------------------------------------------
Скрипт
--------------------------------------------------------------------
filename = "ПУТЬ К ФАЙЛУ СО СПИСКОМ ПК"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)
Do Until f.AtEndOfStream
On Error Resume Next
Dim wmio
Dim comp, nwo
Set nwo = CreateObject("WScript.Network")
comp = f.ReadLine
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "ПУТЬ К ФАЙЛУ " , "\\" & comp & "ПРИМЕР ПУТИ НА УДАЛЕННОМ ПК \C$\temp", OverwriteExisting
Loop
MsgBox "ALL DONE"
f.Close
--------------------------------------------------------------------
вторник, 23 сентября 2014 г.
Рекомендации по развертыванию Symantec Endpoint Protection
Рекомендации по развертыванию Symantec Endpoint Protection
http://clientui-kb.symantec.com/resources/sites/BUSINESS/content/staging/DOCUMENTATION/4000/DOC4448/en_US/1.0/Endpoint%20Protection%20Sizing%20and%20Scalability%20Best%20Practices_%20v2.3.pdf
http://clientui-kb.symantec.com/resources/sites/BUSINESS/content/staging/DOCUMENTATION/4000/DOC4448/en_US/1.0/Endpoint%20Protection%20Sizing%20and%20Scalability%20Best%20Practices_%20v2.3.pdf
вторник, 22 июля 2014 г.
Консоль коммутатора HP V1910 Switch
Для отображения списка всех доступных команд из консоли необходимо через веб-интерфейс в разделе Network-Service разрешить подключения по ssh (telnet).
Далее, необходимо подключится к консоли коммутатора по ssh (telnet) и ввести следующую команду _cmdline-mode on .
Запросит ввести пароль. Вводим. Если у Вас не назначен пароль (а по умолчанию так и есть) необходимо ввести код 512900 .
Далее, необходимо подключится к консоли коммутатора по ssh (telnet) и ввести следующую команду _cmdline-mode on .
Запросит ввести пароль. Вводим. Если у Вас не назначен пароль (а по умолчанию так и есть) необходимо ввести код 512900 .
четверг, 5 июня 2014 г.
Установка MC (Midnight Commander) в Ubuntu
в терминале с правами рута:
sudo add-apt-repository ppa:webupd8team/unstable && sudo apt-get update
sudo apt-get install mc
Подписаться на:
Сообщения (Atom)