7zip backup

Первый скрипт
@echo off
rem скрипт бэкапа
::Что архивировать
set out=D:\Buhgalteria\
::Путь копирования на сервер хранения
set puth_srv=\\srv\r$\Buhgalteria\

:: Описание парметров-  a - ключ создания архива; -mx9 - степень сжатия архива;
:: -ssw - позволяет архивировать открытые для чтения файлы
:: -mx0 - без компрессии; -mx1 - очень быстрая компрессия; -mx3 - быстрая нормальная компрессия;
:: -mx5 - нормальная компрессия; -mx7 - максимальная компрессия; -mx9 - Ультра компрессия;
:: -mmt-4 число потоков или -mmt=on
:: Упаковываем и копируем по сети
start /wait "BackUP Buhgalteria" /min  "c:\Program Files\7-zip\7z.exe" a -t7z -ssw -mx3 -mmt=4 "%puth_srv%\Buhgalteria_%DATE%.7z" "%out%"
exit

Второй скрипт
@echo off
::Удаляем бэкапы старше 7 дней
forfiles.exe /P r:\servers_backup\muradm\Buhgalteria\ /S /M *.* /D -8 /C "cmd /c del /q /f @FILE"
exit

Удаление backup старше 7 дней

@echo off
::Удаляем бэкапы старше 7 дней
forfiles.exe /P r:\week_backup_sql\ /S /M *.* /D -7 /C "cmd /c del /q /f @FILE"
exit

Как переместить папки “Мои документы” и “Рабочий стол” в XP?

1. Мои документы:
В свойствах папки открыть вкладку "Путь назначения". Нажмите на кнопку "Переместить", укажите новый физический путь расположения папки.

2. Рабочий стол:
Указать новый место для папки рабочего стола, можно через реестр, см. ветку:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders

В параметре "Рабочий стол" , задать новый путь к папке "Рабочий стол".

Настройка адресной книги через LDAP в Thunderbird

1. Открываем адресную книгу.
2.  Файл-Создать-Адресную книгу LDAP

3. Заполняем поля в соответствии с параметрами вашего домена:

4. На вкладке "Дополнительно" указываем фильтр:

5. Переходим на вкладку "Автономно" и нажимаем "Загрузить сейчас"

6. В строке поиска контактов указываем @, в результате получим список контактов.

Ограничение версий MS SQL server

http://msdn.microsoft.com/en-us/library/cc645993.aspx

Настройка доступа к сетевому принтеру через localport

1. Click Start, click Control Panel and double click Printers.
2. Select "Add a local printer".
3. Select "Create a new port". Choose "Local Port" as the type of the port.
4. In the box "Enter a port name", type the address as the following format.
\\[IP address of the host computer]\[The Share Name of the printer]
Then click Next.

Mesh сеть c помощью MikroTik 751G

Будем делать беспроводную сеть Mesh на базе MikroTik 751G

В результате пользователь подключившейся по wifi или по проводу к Wifi Switch №2 или к Wifi Switch №1 должен будет попасть в локальную сеть. Технология  Wireless MESH позволит клиенту перемещаться между WiFi точками без обрыва связи.
Имеем два устройства MikroTik 751G
Схема:

Резервное копирование БД mysql

Создание дампа:

mysqldump --opt -u имя_пользователя -p -h имя_сервера_БД --add-drop-table имя_базы > dump.sql 

 Восстановление:

mysql -u имя_пользователя -p -h имя_сервера_БД имя_базы < dump.sql 

Дополнительные опции утилиты mysqldump.
--password=your_pass — параметр для ввода пароля без запроса.
--add-drop-table — опция, которая добавляет команду DROP TABLE перед созданием таблиц. Перед восстановлением таблиц из дампа, таблицы с таким же именем в рабочей базе данных будут удалены и пересозданы из резервной копии. Рекомендуется использовать для предотвращения возможных ошибок после восстановления;
--add-locks — опция, которая добавляет команды LOCK TABLES перед выполнением и UNLOCK TABLE после выполнения каждого дампа таблицы. Применяется для ускорения доступа к MySQL;
--quote-names — опция, сообщающая утилите о необходимости ставить кавычки для названий таблиц и столбцов.
Опции --quick и --opt рекомендуется использовать, если база данных MySQL слишком большая для того, чтобы целиком поместиться в памяти.

Тестирование скорости в локальной сети Ethernet

Для тестирования скорости будим использовать Iperf — кроссплатформенная консольная клиент-серверная программа — генератор TCP и UDP трафика для тестирования пропускной способности локальной или распределённой сети. Iperf не требует установки. Iperf для измерения ёмкости канала пользуются даже крупные провайдеры.
Запуск серверной части на порту 8887: iperf -s -p 8887
Запуск клиентской части: iperf -c 192.168.1.1 -p 8887 -t 180
Параметр -t 180 указывает, что тестирование будет продолжаться 180 секунд.

Скрипт для запуска на клиенте:
@echo off
chcp 1251
echo %COMPUTERNAME% >> \\192.168.5.3\"_ДляВсех"\iperf\test\test.txt
\\192.168.5.3\"_ДляВсех"\iperf\iperf.exe -c 192.168.5.10 -p 8887 -t 30 >> \\192.168.5.3\"_ДляВсех"\iperf\test\test.txt
Exit

Пути с русскими буквами

Пути с русскими буквами можно прописать так:
@echo off 
title 1 
chcp 1251 
copy C:\"Documents and Settings"\Admin\"Рабочий стол"\1.txt 

В таких папках где содержаться пробелы Documents and Settings, нужно ставить кавычки "Documents and Settings"

Дифференциальный backup с помощью 7zip

@echo off
rem задаем переменные, вроде все понятно
SET Z="C:\Program Files\7-Zip\7z.exe"
rem Папка для хранения бэкапов
SET BACKUPDIR=r:\servers_backup\adm\work\7zip\
rem каталог который бэкапить
SET SOURCEDIR=y:\
rem переменная для задания имени файла
SET filename=work_diff_
rem с переменной TIME1 пришлось извращаться, потому что дефолтная TIME содежит двоеточия,
rem которые не могут содержаться в именах файлов и папок.
rem Также от значения часа берется только вторая цифра, например если 12 часов - в H1 зпишется 2,
rem потому что если часы состоят из одной цифры, а выводятся две - начинаются косяки.
FOR /F "TOKENS=*" %%A IN ('TIME/T') DO SET TIME1=%%A
SET H1=%TIME1:~0,2%
SET M1=%TIME1:~3,2%
set TIME1=%H1%-%M1%

Двунаправленная синхронизация с помощью nnbackup

Двунаправленная синхронизация с помощью nnbackup

@echo
rem Скрипт двунаправленной синхронизации (накопительная), что бы удалить файл или каталог, нужно удалить
rem их в папке приемника и в папке источника
rem -i папка источник
rem -s учитывать вложенные каталоги;
rem -o приемный каталог;
rem -e копировать пустые каталоги;
rem -c игнорировать файловые ошибки при копировании;
rem -v отображать пути копируемых фалов
"C:\Program Files (x86)\nnBackup\nnbackup.exe" sync2 -i c:\Temp\1\ -o c:\Temp\2\ -s -v -e -c -ts -ad -log "c:\Program Files\scripts\sync\arch.log"

SQL backup + 7zip

Скрипт создает backup sql базы, а затем с помощью 7zip архивируем backup
Sql script
DECLARE @pathName NVARCHAR(512)
SET @pathName = 'C:\temp_backup\gismurom\bd_is.bak'
BACKUP DATABASE [bd_is] TO DISK = @pathName WITH NOFORMAT, INIT, NAME = N 'bd_is', SKIP, NOREWIND, NOUNLOAD, STATS = 10
GO

Bat script
@echo off
sqlcmd.exe -S server\SQL2008 -U sa -P passkey -i bd_is.sql
set h=%TIME:~0,2%
set m=%TIME:~3,2%
set s=%TIME:~6,2%
set curtime=%h%-%m%-%s%
:: Откуда брать
set P0=C:\Temp\b
:: Куда архивировать
set P1=C:\Temp\arch
:: Backup all folders
start /wait "BackUP sql base" /min  "c:\Program Files\7-zip\7z.exe" a -mmt "%P1%\sql_%DATE%_%curtime%.zip" "%P0%\*.bak"
::Удаляем то что заархивировалось
del "%P0%\*.bak" 2>>"%P1%\log_file.%date%.txt"
::Удаляем старые бэкапы
forfiles.exe -p %P1%\ -s -m *.* -d -2 -c "cmd /c del @FILE"
exit

Создание, открытие, запись в файл

'Скрипт пишет в файл, если файла нет, то метод OpenTextFile создаст его
Sub CreateFile()
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("C:\Temp\writefile.txt",8) '1-чтение 2-для записи 8 - дозапись
  ' Записать строку с переводом на новую строку.
  f.WriteLine("Тестирование qwerty")
  ' Записать три пустых строки в файл.    
  'tf.WriteBlankLines(3)
  ' Записать строку
  f.Write ("Это тест")
  f.Close
End Sub
CreateFile()


'Скрипт создания и записи данных в файл
Sub CreateFile()
  Dim fso, tf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set tf = fso.CreateTextFile("C:\Temp\writefile.txt", True)
  ' Записать строку с переводом на новую строку.
  tf.WriteLine("Тестирование 1, 2, 3.")
  ' Записать три пустых строки в файл.    
  tf.WriteBlankLines(3)
  ' Записать строку
  tf.Write ("Это тест")
  tf.Close
End Sub
CreateFile()

Запись в файл MAC-адреса

'17/02/2013 ITVolna
'Скрипт записи в файл новых значений пары - имя пк и его MAC
'Скрипт содержит две функции:macfunc - определения MAC и MACWrite - Записи MAC в файл
'
'
set WshShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName 'Имя ПК

' функция опеределения MAC адреса сетевой карты, в функцию должно передаваться имя ПК
Function macfunc(strComputer)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig In IPConfigSet
'MAC адрес
   strMACAddress = IPConfig.MACAddress(i)
   macfunc=strMACAddress 'Возвращенное значение
Next
End Function

'Объявляем функцию записи в файл МАК адреса
Function MACWrite()
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("C:\Temp\writefile.txt",8) '1-чтение 2-для записи 8 - дозапись
  ' Записать строку с переводом на новую строку.
  f.WriteLine(strComputer & ": "&+macfunc(strComputer)) 'Пишем имя ПК и MAC
  f.Close
End Function

' Процедура которая открывает файл и ищет в нем строку с именем ПК и MAC адресом, если MAC Машины и имя ПК совпадает со значением из файла, то выходим из скрипта
' Если такого МАК адреса нет, то пишем в файл MAC данной машины
Sub OpenFileScan()
  Dim fso, f, readmac
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("C:\Temp\writefile.txt",1) '1-чтение 2-для записи 8 - дозапись
If fso.FileExists("C:\Temp\writefile.txt") Then 'Файл со списком ПК
set readfile = FSO.OpenTextFile("C:\Temp\writefile.txt",1) 'Чтаем файл
While Not readfile.AtEndOfStream 'Читаем построчно, пока не конец файла
    readmac=readfile.ReadLine
s=strComputer & ": "&+macfunc(strComputer)
If s=readmac Then ' Если имя ПК и соответствующий ему мак адрес в файле есть то выходим из скрипта
WScript.Quit 'выход
End If
Wend
MACWrite() ' Вызываем функцию записи в файл Имя ПК и его MAC адреса
End If
End Sub

OpenFileScan()

Изменение DNS

'15/02/2013 ITVolna
'Скрипт читает файл со списком пк, имя пк передается в функцию ipfunc
'которая назначает данному компьютеру dns сервера (первичный и вторичный)
'Т.о списку ПК присваивается заданные dns параметры
On Error Resume Next 'Пропуск ошибок
dim readfile, readpc, i
set WshShell = CreateObject("WScript.Shell")
set WshNet = WScript.CreateObject("WScript.Network")
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
set fso=CreateObject("Scripting.FileSystemObject")
'strComputer = "."

If fso.FileExists("c:\temp\scr\pc.txt") Then 'Файл со списком ПК
set readfile = FSO.OpenTextFile("c:\temp\scr\pc.txt",1) 'Чтаем файл
While Not readfile.AtEndOfStream 'Читаем построчно, пока не конец файла
    readpc=readfile.ReadLine
strComputer=readpc
ipfunc(readpc) 'Вызываем функцию назначения DNS
Wend
else WScript.Quit 'выход
End If

'Объявляем функцию
Function ipfunc(readpc)
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
    arrDNSServers = Array("192.168.5.2" , "192.168.5.3")
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
End Function

Имя PC, ip, шлюза и DNS

'15/02/2013 ITVolna
'Скрипт выводит имя ПК, ip, шлюза и DNS

set WshShell = CreateObject("WScript.Shell")
set WshNet = WScript.CreateObject("WScript.Network")
Set objNetwork = CreateObject("WScript.Network")
'Получаем имя ПК
strComputer = objNetwork.ComputerName
'MsgBox strComputer

'Получаем Сетевые настройки
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig In IPConfigSet
'Ip-адрес
  For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
      strIP = strIP & "  " & IPConfig.IPAddress(i)
  Next
'Шлюз по умолчанию
  For i=LBound(IPConfig.DefaultIPGateway) to UBound(IPConfig.DefaultIPGateway)
      strIPGateway = strGateway & "  " & IPConfig.DefaultIPGateway(i)
  Next
'MAC адрес
   strDNS = strMACAddress & "  " & IPConfig.MACAddress(i)
  For i=LBound(IPConfig.DNSServerSearchOrder) to UBound(IPConfig.DNSServerSearchOrder)
      strDNS = strDNS & "  " & IPConfig.DNSServerSearchOrder(i)
  Next
Next

MsgBox  strComputer & strMACAddress & strDNS & strIPGateway & strIP