Технический блог (заметки) - Artur K. Shakirov system administrator

Разделы

Полезности

Самые

Блогролл

Опции:

Скриптик для автоматического удаления log-ов и backup-ов

'========================================================================== ' ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1 ' ' NAME: remlogs.vbs ' ' AUTHOR: Подлячок ' DATE : 19.06.2005 ' ' COMMENT: Скриптик для автоматического удаления log-ов и backup-ов, срок актуальности которых истек. ' Срок после которго данный лог или бэкап вам уже точно не понадобиться определяется только вашим ' гражданским самосознанием, исходя из принципов разумности и политики вашей организации. '========================================================================== 'Объявляем пременные Dim Fso,File,BackupFolder,backupFiles,PathName,Result,Name,Output Dim Counter,CurrentDate,FileDate,WshShell,a,str 'Инициализируем переменные Counter=0 PathName="нужная вам папочка" 'Получаем значение текущей даты CurrentDate=Date 'Создаем объекты: WScript.Shell и Scripting.FileSysemObject Set WshShell=WScript.CreateObject("WScript.Shell") Set Fso=WScript.CreateObject("Scripting.FileSystemObject") 'Получаем объект - нужная нам папка Set BackupFolder=Fso.GetFolder(PathName) 'Получаем коллкцию объектов типа "File" из нужной папки Set backupFiles=BackupFolder.Files ' Цикл. Для каждого обекта-File из коллекции обектов - Files For Each File In backupFiles 'Получаем дату зоздания файла FileDate=File.DateCreated 'Получаем период между датой создания файла и текущей датой Result=CurrentDate-FileDate 'Если период между датой создания файла и текушей датой больше заданного значения, то 'удаляем файл и формируем строку, которую будем писать в лог-файл и строку которую мы будем выводить в наше сообщение '(можно не формировать строку здесь и далее это сделанно для наглядности). If Result>Количество дней после которого файлы будут удаляться Then Counter=Counter+1 str=Str + "Был удален файл" & File.Name & " " & CurrentDate & VbCrLf Name=Name & File.Name & VbCrLf File.Delete end If Next 'Открываем файл log.txt на запись (опционально) Set a=Fso.OpenTextFile("c:\log.txt",2,False) 'Записываем туда сформированную в цикле строку (опционально) a.WriteLine(Str) 'Закрываем файл (опционально) a.Close 'Выводим окно сообщения о том какие файлы мы удалили (опционально) Output=MsgBox("Было удаленно " & Counter & " файл(а/ов)" & vbCrLf & Name,64, "Output Box")

Oct. 19, 2006 // 16:35 | Комментарии (0)

VB скрипт который проводит сбор информации о доменных компьютерах.

dim strclass, objAD, obj dim invdate dim constmb, constgb, sizegb dim compname, temp, compad constmb=1048576 constgb=1073741824 strclass = array( "win32_ComputerSystem", "win32_bios", "win32_processor",_ "win32_diskdrive", "win32_videocontroller", "win32_NetworkAdapter",_ "win32_sounddevice", "win32_SCSIController", "win32_printer") set objAD=getobject("LDAP://CN=Computers,DC=akos-nissan,DC=local") objAD.filter=array("computer") on error resume next for each obj in objAD CompAD=right(obj.name, len(obj.name)-3) invdate = date temp="<html>"+chr(10)+"Дата сбора: " & invdate & "<table>"+chr(10) compname="" ' on error resume next set objWMIService = GetObject("winmgmts://"&CompAD&"/root\cimv2") i=0 s=0 d=0 q=0 ' sizegb="" for a=0 to 8 Set colitems = objwmiservice.instancesof(strclass(a)) for each objitem in colitems select case a case 0 temp=temp+"<tr><td>" temp=temp+"Имя компьютера"+"</td><td>"+objitem.name+ "</td>" + chr(10) temp=temp+"</tr>"+chr(10) temp=temp+"<tr><td>" temp=temp+"Оперативная память"+"</td><td>"+cstr(round(objitem.totalphysicalmemory/constmb))+ " MB</td>" + chr(10) temp=temp+"</tr>"+chr(10) temp=temp+"<tr><td>" temp=temp+"Модель компьютера"+"</td><td>"+objitem.model+ "</td>" + chr(10) temp=temp+"</tr>"+chr(10) compname=objitem.name case 1 temp=temp+"<tr><td>" temp=temp+"Материнская плата"+"</td><td>"+objitem.SMBIOSBIOSVersion+"</td>"+chr(10) temp=temp+"</tr>"+chr(10) temp=temp+"<tr><td>" temp=temp+"BIOS"+"</td><td>" + objitem.caption+"</td>"+chr(10)+"<td>"+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) case 2 s=s+1 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Процессор"+cstr(s)+"</td>"+chr(10)+"<td>"+objitem.name+" Частота "+cstr(objitem.CurrentClockSpeed)+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) case 3 i=i+1 temp=temp+"<tr>"+chr(10)+"<td>" if objitem.size > 0 then ' = nill then sizegb=cstr(round(objitem.size/constgb,2)) else sizegb=cstr(0) end if temp=temp+"Жесткий диск "+cstr(i)+"</td>"+chr(10)+"<td>"+objitem.model + " " + sizegb + " GB</td>" + chr(10) temp=temp+"</tr>"+chr(10) case 4 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Видеоконтролер"+"</td>"+chr(10)+"<td>"+objitem.caption+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) case 5 if objitem.adaptertypeid=0 and objitem.netconnectionstatus=2 then temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Сетевой адаптер"+"</td>"+chr(10) temp=temp+"<td>"+objitem.name+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) end if case 6 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Звуковая карта"+"</td>"+chr(10) temp=temp+"<td>"+objitem.caption+chr(10)+"</td></tr>"+chr(10) case 7 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"SCSI Адаптер"+"</td>"+chr(10) temp=temp+"<td>"+objitem.manufacturer+" "+objitem.caption+chr(10)+"</td></tr>"+chr(10) case 8 d=d+1 temp=temp+"<tr>"+chr(10)+"<td>" temp=temp+"Принтер "+cstr(d)+"</td>"+chr(10)+"<td>"+objitem.name+chr(10)+"</td>" temp=temp+"</tr>"+chr(10) end select next next 'Заключительная часть temp=temp+"</table></html>" 'Запись файла Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile(""&compname&".htm", True) tf.Write (temp) tf.Close next

Oct. 19, 2006 // 16:09 | Комментарии (0)

скрипты для AD

примеры скриптов из книги Inside Active Directory (авт. Sakari Kouti and Mika Seitsonen)

http://blog.shakirov.com/entry/68/file/insideadsamples.zip

Oct. 19, 2006 // 15:39 | Комментарии (0)

скрипт показывающий имена пользоватлей не логинившихся в AD N-ное количество дней.

//~~Author~~. Paul stuart //~~Email_Address~~. Paul.Stuart@schroders.com //~~Script_Type~~. Jscript //~~Sub_Type~~. DomainAdministration //~~Keywords~~. ADSI, last login date, domain, login //~~Comment~~. //Create a report showing users who haven't logged in to the Domain for X days or more. //Requires ADSI 2.5 and Jscript version 5. The results are sent to LOGFILE.TXT //~~Script~~. var sDomain = ""; // enter your domain here. var iCutOffDays = 0; // last login cut-off in days. var TRUE = 1; var ForReading = 1; var ForWriting = 2; var DAYMSECS = 86400000; // number of milliseconds in a day var DomObj, CollObj, sSubDir; var iNumUsers = 0; var CutOff; var WSHShell = new ActiveXObject("WScript.Shell"); var fs = new ActiveXObject("Scripting.FileSystemObject"); WSHShell.Popup("Starting Last Log Report " ); CutOff = new Date(); CutOff.setTime( CutOff.valueOf() - iCutOffDays*DAYMSECS ); DomObj = GetObject("WinNT://" + sDomain ); CollObj = new Enumerator(DomObj); for ( ; !CollObj.atEnd(); CollObj.moveNext()) { var Obj = CollObj.item(); if ( Obj.Class == "User" ) { iNumUsers++; try { if ( Obj.LastLogin < CutOff.valueOf() ) WriteLOG( Obj.name + " " + Obj.LastLogin ); } catch( ErrorObj ) { WriteLOG( Obj.name + " has never logged in" ); } } } WriteLOG("Total number of users is " + iNumUsers ); WSHShell.Popup("Finished"); WScript.Quit(); ////////////////////////////////////////////////////////////////////////////////// // WriteLOG // var LogFile = new Object(); function WriteLOG( sLogLine ) { var d = new Date(); if ( LogFile == null ) { LogFile = fs.OpenTextFile( ".\\Logfile.txt" , ForWriting, TRUE ); LogFile.WriteLine( sLogLine ); } else { LogFile.WriteLine( sLogLine ); } }

Oct. 19, 2006 // 15:33 | Комментарии (0)

скрипт для получения информации о пользователях домена

//************************************************************************* // JScript ShS 2004 // Этот скрипт предназначен для получения информации о пользователях домена // //************************************************************************* var objConn, //объект Connection objComm, //объект Command objRS, //объект RecordSet strRecord, //Результирующая строка, содержащая сведения о пользователе arrAttribs, //Перечень атрибутов, значения которых мы будем извлекать для каждого пользователя i, //Счетчик цикла strDevOut, //Устройство вывода RootDSE, DefaultDomain, //Домен для текущего пользователя strSpliter; //Раделитель полей для результирующей строки var ADS_UF_ACCOUNTDISABLE=2; //"Флаг" битового атрибута userAccountControl // strDevOut="Display" // //Получим имя домена для пользователя, от имени которого запущен данный скрипт RootDSE=GetObject("LDAP://RootDSE"); DefaultDomain=GetObject("LDAP://"+RootDSE.Get("DefaultNamingContext")); WScript.Echo(DefaultDomain.distinguishedName); // strSpliter="*"; //Информацию о атрибутах можно получить здесь: //[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ad/ad/user_object_attributes.asp[/url] //Массив атрибутов должен содержать по крайней мере один элемент arrAttribs = new Array ("displayName","sAMAccountName","profilePath","mail","userAccountControl","proxyAddresses"); // //Инициализируем переменные, необходимые для работы с AD, как с БД objConn = WScript.CreateObject("ADODB.Connection"); objComm = WScript.CreateObject("ADODB.Command"); objRS = WScript.CreateObject("ADODB.Recordset"); objConn.Provider = "ADsDSOObject"; objConn.Open("Active Directory Provider"); objComm.ActiveConnection = objConn; // //Формируем текст SQL-запроса к AD objComm.CommandText = "SELECT "; for ( i=0 ; i<arrAttribs.length-1; i++) { objComm.CommandText+=arrAttribs[i]+","; } //За последним полем в запросе не должна следовать запятая, //поэтому добавляем имя последнего поля вне цикла objComm.CommandText+=arrAttribs[i]; //[b]Поиск проводим внутри OU "mg"[/b] objComm.CommandText+= " FROM \'LDAP://[b]ou=mg[/b],"+DefaultDomain.distinguishedName+"\'"+ "WHERE objectClass = \'user\' and objectCategory = \'person\'"; //Фильтр для отбора тех, у кого есть внешний Email //Заглушка //objComm.CommandText+=" and (mail LIKE \'%mn.local\')"; // //выполняем запрос objRS = objComm.execute(); //Формируем строку-заголовок с названиями полей strRecord=""; for ( i=0 ; i<arrAttribs.length; i++) { strRecord+=arrAttribs[i]+strSpliter; } //Вывод результирующей строки на устройство вывода fnOut(strRecord,strDevOut); //Формируем строки данных objRS.MoveFirst(); while (!objRS.EOF) { strRecord=""; for ( i=0 ; i<arrAttribs.length; i++) { switch (arrAttribs[i]) { case "userAccountControl": //Выделяем бит ADS_UF_ACCOUNTDISABLE if (objRS.Fields(arrAttribs[i]).Value&2) strRecord+="UserDisabled"+strSpliter; else strRecord+="UserEnabled"+strSpliter; break; case "proxyAddresses": vbarrEmailAddreses = objRS.Fields(arrAttribs[i]).Value; if (vbarrEmailAddreses!=null) { arrEmailAddreses=vbarrEmailAddreses.toArray(); for (iEmailCounter=0;iEmailCounter<arrEmailAddreses.length-1;iEmailCounter++) { strRecord+=arrEmailAddreses[iEmailCounter]+"|"; } strRecord+=arrEmailAddreses[iEmailCounter]; } strRecord+=strSpliter; break; default: strRecord+=objRS.Fields(arrAttribs[i]).Value+strSpliter; } } fnOut(strRecord); objRS.MoveNext(); } objRS.close; /////////////////////////////////////////////////////////////////////////////////////////// //Функция вывода результирующей строки /////////////////////////////////////////////////////////////////////////////////////////// function fnOut(strOutRecord,strDev) { //Заглушка WScript.Echo(strOutRecord); } /*Для справки Константы для битового поля userAccountControl http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ad/ad/example_code_for_creating_a_user.asp Const ADS_UF_SCRIPT = &H1 Const ADS_UF_ACCOUNTDISABLE = &H2 Const ADS_UF_HOMEDIR_REQUIRED = &H8 Const ADS_UF_LOCKOUT = &H10 Const ADS_UF_PASSWD_NOTREQD = &H20 Const ADS_UF_PASSWD_CANT_CHANGE = &H40 Const ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = &H80 Const ADS_UF_TEMP_DUPLICATE_ACCOUNT = &H100 Const ADS_UF_NORMAL_ACCOUNT = &H200 Const ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = &H800 Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &H1000 Const ADS_UF_SERVER_TRUST_ACCOUNT = &H2000 Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 Const ADS_UF_MNS_LOGON_ACCOUNT = &H20000 Const ADS_UF_SMARTCARD_REQUIRED = &H40000 Const ADS_UF_TRUSTED_FOR_DELEGATION = &H80000 Const ADS_UF_NOT_DELEGATED = &H100000 Const ADS_UF_USE_DES_KEY_ONLY = &H200000 Const ADS_UF_DONT_REQUIRE_PREAUTH = &H400000 Const ADS_UF_PASSWORD_EXPIRED = &H800000 Const ADS_UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = &H1000000 */

Oct. 19, 2006 // 15:24 | Комментарии (0)

установка VerliHub (Linux)

Нам понадобится: 1. Сам Verlihub, взять его можно здесь: http://prdownloads.sourceforge.net/verlihub/verlihub-0.9.8c-RC2.tar.gz?download 2. GeoIP, взять можно здесь: http://www.maxmind.com/download/geoip/api/c/ 3. MySQL server (в том числе и devel) и удобства ради phpMyAdmin

# cd /usr/local/src/ # wget http://www.maxmind.com/download/geoip/api/c/GeoIP-1.4.0.tar.gz # tar zxf GeoIP-1.4.0.tar.gz # cd Geo* # ./configure # make # make install

# cd /usr/local/src/ # wget http://kent.dl.sourceforge.net/sourceforge/verlihub/verlihub-0.9.8c-RC2.tar.gz # tar zxf verlihub-0.9.8c-RC2.tar.gz # cd verl* # ./configure # make # make install

Заходим в phpMyAdmin и создаём базу данных verlihub, пользователя verlihub и даём ему все права на базу verlihub. теперь запускаем скрипт инсталляционный:

# /usr/local/bin/vh_install

и отвечаем на все вопросы.

Готово! verlihub установлен, теперь создадим скрипт для запуска демона. Для этого создадим файл /etc/rc.d/init.d/rc.verlihub с содержимым: #!/bin/sh PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/bin # program name PROG=verlihub #program path #DAEMON=/usr/local/bin/verlihub DAEMON=/usr/local/bin/vh_runhub # Do we pass options on the command line if yes put them here DOPTION="" #Test if it is there if not lets bail test -f $DAEMON || exit 0 case "$1" in start) echo -n "Starting $PROG " $DAEMON $DOPTION & echo "Done." ;; stop) echo -n "Stopping $PROG " killall $PROG echo "Done." ;; restart) echo -n "Restarting $PROG " killall $PROG sleep 2 $DAEMON $DOPTION & echo "Done." ;; *) echo "Usage: /etc/rc.d/rc.$PROG start|stop|restart" exit 1 ;; esac

сделаем его исполняемым: chmod +x rc.verlihub

Ну и конечно же добавим в автозагрузку: ln -s /etc/rc.d/init.d/rc.verlihub /etc/rc.d/rc3.d/S90rc.verlihub

также рекомендую ознакомиться с http://verlihub.aliki.ru/index.php?title=%D0%A3%D1%81%D1%82%D0%B0%D0%BD%D0%BE%D0%B2%D0%BA%D0%B0_Verlihub_%D0%B2_Debian

Oct. 18, 2006 // 11:48 | Комментарии (0)

mysql - сменить пароль

Сменить пароль можно с помощь оператора SET PASSWORD:

SET PASSWORD = PASSWORD('some password') SET PASSWORD FOR user = PASSWORD('some password')

Первая строчка меняет пароль текущему пользователю, а вторая пользователю с именем «user». Пример:

mysql#> SET PASSWORD FOR 'username'@'%.loc.gov' = PASSWORD('новый_пароль');

Или также пароль можно сменить с помощью утилиты «mysqladmin»:

# mysqladmin -p[старый_пароль] -u [пользователь] password [новый_пароль]

Если забыт пароль для учетной записи «root» сервера «mysql» то его можно сменить следующим образом: перезапустить сервер с опцией «--skip-grant-tables» эта опция заставляет сервер mysql не использовать таблицы привилегий. То есть разрешает полный доступ всех ко всем БД. сменить для пользователя «root» пароль оператором «UPDATE user SET Password=PASSWORD("<новый_пароль>") WHERE User="root";». выполнить команду «mysqladmin flush-privileges», которая перезагрузит таблицу привилегий (grant).

http://www.opennet.ru/docs/RUS/mysql_notes/#f3

Oct. 17, 2006 // 10:31 | Комментарии (0)

какой демон на каком порту

Как определить какой демон на каком порту слушает?

# netstat -tnlp

Oct. 16, 2006 // 21:56 | Комментарии (0)

Русификация консоли

[ Русификация консоли ]

Sep. 11, 2006 // 15:51 | Комментарии (0)

локаль

locale: Cannot set LC_CTYPE to default locale: No such file or directory
locale: Cannot set LC_MESSAGES to default locale: No such file or directory
locale: Cannot set LC_ALL to default locale: No such file or directory

проверяем есть ли наша локаль: locale -a|grep ru
должно быть что-то вроде:
ru_RU
ru_RU.cp1251
ru_RU.koi8r
ru_RU.utf8
ru_UA
ru_UA.utf8

если нет CP1251 то создать заново:
localedef --no-archive -c -f CP1251 -i ru_RU ru_RU.CP1251

Sep. 11, 2006 // 15:25 | Комментарии (0)

Запрещает запуск любых USB-storage.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]
"Type"=dword:00000001
"Start"=dword:00000004
"ErrorControl"=dword:00000001
"ImagePath"=hex(2):73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,44,00,\
52,00,49,00,56,00,45,00,52,00,53,00,5c,00,55,00,53,00,42,00,53,00,54,00,4f,\
00,52,00,2e,00,53,00,59,00,53,00,00,00
"DisplayName"="Драйвер запоминающих устройств для USB"
"AutoRun"=dword:00000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Security]
"Security"=hex:01,00,14,80,90,00,00,00,9c,00,00,00,14,00,00,00,30,00,00,00,02,\
00,1c,00,01,00,00,00,02,80,14,00,ff,01,0f,00,01,01,00,00,00,00,00,01,00,00,\
00,00,02,00,60,00,04,00,00,00,00,00,14,00,fd,01,02,00,01,01,00,00,00,00,00,\
05,12,00,00,00,00,00,18,00,ff,01,0f,00,01,02,00,00,00,00,00,05,20,00,00,00,\
20,02,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,0b,00,00,00,00,\
00,18,00,fd,01,02,00,01,02,00,00,00,00,00,05,20,00,00,00,23,02,00,00,01,01,\
00,00,00,00,00,05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum]
"Count"=dword:00000000
"NextInstance"=dword:00000000

Запрещает запуск любых USB-storage. Для разрешения в "Start"=dword:00000004 изменить на "Start"=dword:00000003
Прочие USB-устройства при этом работают.

Jul. 26, 2006 // 12:30 | Комментарии (0)

служба времени

> А как узнать, выполнила служба времени синхронизацию или нет?

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Parameters

Добавить WriteLog тип REG_SZ - True , будет писать уведомления в system лог о результатах синхронизации.

Feb. 06, 2006 // 09:11 | Комментарии (0)

линуксячий софт для Fido

FTN software for Linux HOW-TO & packets

http://www.opennet.ru/base/fido/
http://control.zcu.cz/~flidr/fido/
http://lib.ru/LINUXGUIDE/linuxfidofaq.txt

Jan. 03, 2006 // 16:22 | Комментарии (0)

NE2000 family и настройка сети в линуксах

[root@webserver] vi /etc/conf.modules

alias eth0 ne
options ne io=0x300

[root@webserver] modprobe eth0

[root@webserver] /sbin/ifconfig eth0 192.168.2.200 netmask 255.255.255.0
[root@webserver] /sbin/route add -net ${NETWORK} netmask ${NETMASK} eth0
[root@webserver] /sbin/route add default gw ${GATEWAY} netmask 0.0.0.0 metric 1

http://www.linuxcenter.ru/lib/articles/networking/network.phtml

Dec. 15, 2005 // 10:27 | Комментарии (0)

Использование флоппи-дисковода с интерфейсом USB для инсталлирования ОС

В Microsoft* Windows по умолчанию отсутствуют драйверы для всех флоппи-дисков USB. При использовании дискеты для добавления драйверов RAID драйвер загружается один раз. В процессе дальнейшей установки операционная система повторно запрашивает файл, но не может найти флоппи-дисковод. При загрузке дополнительных драйверов по время установки на дискете находится файл «txtsetup.oem». Откройте файл на другом ПК, используя текстовый редактор, как, например, Notepad, и добавьте следующие команды в конце раздела [HardwareIds.scsi.(имя устройства)].

id = "USB\VID_03F0&PID_2001", "usbstor" id = "USB\VID_054C&PID_002C", "usbstor" id = "USB\VID_057B&PID_0001", "usbstor" id = "USB\VID_0644&PID_0000", "usbstor"

Эта команда вынуждает операционную систему использовать стандартный драйвер USB storage для дополнительных флоппи-устройств. Если использование данных команд не устраняет проблему, возможно, необходимо связаться с поставщиком USB, чтобы получить идентификаторы VID (Vendor ID) и PID (Product ID).

Nov. 30, 2005 // 08:00 | Комментарии (0)

« Назад | Вперёд »

код