FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору                                  Коллеги-администраторы  ....   Часть 2я Часть 1 Думаю каждый из вас сталкивался с необходимостью выполнять некие несложные рутинные операции, на котороые уходит много драгоценного времени.  Например, создать определенную структуру каталогов для каждого пользователя домена, изменить некие параметры в профилях всех или части пользователей, изменить полномочия/владельца однотипных файлов в разных каталогах т.д.   Я, как сисадмин, тоже не раз был вынужден делать все это.  Руками делать это тоскливо и муторно, как вы понимаете. Должен заметить, что по неким "религиозным" убеждениям я всегда старался избегать любых отношений с бейсиком и его производными. Еще мой отец учил меня не иметь с ним никаких дел. Буквально. А теперь я учу своего сына тому же. Но, тем не менее, полностью избежать этого, по всей видимости, невозможно, тем более, что бейсик от M$ сейчас уже далеко не та "лапша", которой он был изначально, а современный структурированный язык, нашедший множество применений. Похоже, что для меня в очередной раз настала пора выучить еще что-то. Знаете, как курильщик много раз безуспешно пытается бросить курить, так и я не раз пытался подступиться к изучению VBScript, но пока никак не одолел. Лень, знаете ли. А инструмент в делах административных был бы весьма пользительный, должен заметить, для быстрого написания всякого рода скриптов.   Внимание   !  !  !   Поскольку данный топ весьма не мал, не забывайте  использовать "версию для печати" для более удобного поиска по теме. А также МЕГА ПОИСКОВИК от NEPa Дабы не раздувать топ,  примеры своих  скриптов  заключаем в тег  "more" Консольные команды. Командный интерпретатор Очень часто многие задачи можно выполнить применяя  CMD  и  BAT  файлы, в  которые включают консольные утилиты. Командная строка, батники\сценарии Задачи на bat-файлах CMD Line Tools for Windows 95/98/NT/2000/XP Параметры .bat файлов #1 Параметры .bat файлов #2 Microsoft Resource Kits  tools Сайт справочник-поисковик  по командам UNIX Windows Script Host (WSH) &  VBScript  &  JScript Исчерпывающий набор док и линков по теме (то что нужно начинающему скриптологу ) Учебный курс "Программирование для администраторов "  [CHM] - всем начинающим рекомендуется TechNet Script Center Sample Scripts ---  recomend Microsoft Technet Scriptcenter Microsoft Technet Community-Submitted Scripts Center Коллекция примеров скриптов для работы с AD BOOKS : eBookz --  Системное администрирование под Windows eBookz » Системное администрирование под Linux/FreeBSD/.... Windows Server Hacks, By Mitch Tulloch  - recomend Windows Admin Scripting Little Black Book, Second Edition AdvancedWindows Script Host Developer's Guide Active Directory Cookbook for Windows Server 2003 --- AD-скриптологампосвящается MS Windows Command-Line Administrator's ---   исчерпывающее руководство   по языку командного процессора (CLI -- Command Line Interface) Учебный курс "Программирование для администраторов " Вышеперечисленные буки можно  взять здесь ТOOLS : Autoit+readme.rus Scriptologic AutoMate KIXTART nnCron-Планировщик с поддержкой скриптового языка --  РЕКОМЕНДУЮ WGET, GREP, GETMAIL, BLAT for Windows замечательные консольные утилиты 4dos/4nt -- отличная замена стандартного коммандного интерпретатора   JudoScript - java подобный скриптовый язык с исходниками VBS2EXE - утилита для компиляции vbs и js скриптов в exe выдранная из пакета PrimalScript Дружественные темы : Автоматическая (unattended) установка Windows Интересные команды при работе с Linux Отличный сайт по скриптингу, и не только Использование KIX Использование WMI Программирование "удобняшек" на VBScript   Подробнее... Создается по материалам данного топа   Надеюсь данная тема будет полезна для Вас.  Предложения по реформированию шапки принимаю в ПМ Jovanotti   Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 17:27 11-12-2006 | Исправлено: Smitis, 12:30 20-08-2008

Funtik_Vintik Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Юзай Active Directory Эт ясно. Вопрос был для "без этого". Раз никто ничё не подсказал, пришлось сделать скрипт, перелапачивающий файл и заменяющий sid на имя и потом наоборот Всего записей: 163 | Зарегистр. 18-07-2007 | Отправлено: 12:46 14-11-2007

Phoenix1984 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору На данный момент пользователи используют обычные обменные папки - шары на файлопомойке в которые кидают друг другу файлы. Как сделать так чтобы при изменении содержимого этой шары у пользователя выводилось окошко с уведомлением типа "вам пришел файл" Всего записей: 37 | Зарегистр. 11-03-2006 | Отправлено: 15:21 15-11-2007

Ed_73 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Phoenix1984 если файло небольшого размера лучше для этих использовать локальный почтовый сервер Всего записей: 137 | Зарегистр. 07-09-2007 | Отправлено: 14:15 16-11-2007

Vorx Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору m0ps Попробуй так Подробнее... P.S. Без проверок на существование папки, правильность имени файла и т.п. Всего записей: 87 | Зарегистр. 14-03-2006 | Отправлено: 00:02 17-11-2007

m0ps Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Vorx спасибо! но решение уже было найдено: Код:   'данный скрипт удаляет в директори все файлы, у которых 'дата последней модификации старше определенного количества дней 'синтаксис таков 'remove_old.vbs /path:<folder> /killdate:<days> /recur:<true of false> '<folder> - папка над которой будут производиться действия '<days> - указывает старше скольки дней файлы будут удаляться '<true of false> - использовать или нет рекурсию 'например 'remove_old.vbs /path:c:\0\ /killdate:8 /recur:true 'Отмечу также, что если параметры содержат пробелы, 'в нашем случае это может быть путь к папке, то его надо 'брать в кавычки ' 'ISA ' set objNamedArgs=Wscript.Arguments.Named   path=objNamedArgs.item("path") killdate=date() - objNamedArgs.item("killdate") recur=objNamedArgs.item("recur")   wscript.echo path, killdate, recur   arFiles = Array() set fso = createobject("scripting.filesystemobject")   'Ничего не удаляем, пока пробегаем по возвращенному набору файлов. 'Набор может быть перемешан. 'Создаём массив файловых объектов, чтобы этого избежать     SelectFiles path, killdate, arFiles, recur   nDeleted = 0 for n = 0 to ubound(arFiles)   on error resume next 'in case of 'in use' files... arFiles(n).delete true if err.number = 0 then nDeleted = nDeleted + 1   end if on error goto 0 next   sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) on error resume next ' добавляем файлы на удаление в массив '   set folder = fso.getfolder(sPath) set files = folder.files for each file in files ' на всякий случай отслеживаем ошибки доступа к ' свойству Date ' dtlastmodified = null on error resume Next dtlastmodified = file.datelastmodified on error goto 0 if not isnull(dtlastmodified) Then if dtlastmodified < vKillDate then count = ubound(arFilesToKill) + 1 redim preserve arFilesToKill(count) set arFilesToKill(count) = file end if end if next   if bIncludeSubFolders then for each fldr in folder.subfolders SelectFiles fldr.path,vKillDate,arFilesToKill,true next end if end sub   Всего записей: 372 | Зарегистр. 27-05-2006 | Отправлено: 12:12 19-11-2007 | Исправлено: m0ps, 12:14 19-11-2007

rosalin Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ребята посоветуйте скриптик для анализа учетных записей в домене     тоесть нужно удалить устаревшие   каким скриптиком будет создаваться список действующих тобишь постоянно   логинившиеся....   помогите очень надо Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 13:12 19-11-2007

Vorx Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору m0ps Только этот скрипт будет проверять дату последнего изменения самого файла, а не брать данные из имени файла. Всего записей: 87 | Зарегистр. 14-03-2006 | Отправлено: 14:18 19-11-2007

jONES1979 Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Phoenix1984 Цитата: На данный момент пользователи используют обычные обменные папки - шары на файлопомойке в которые кидают друг другу файлы. Как сделать так чтобы при изменении содержимого этой шары у пользователя выводилось окошко с уведомлением типа "вам пришел файл" http://www.bash.org.ru/quote/392588 Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 14:27 19-11-2007

Vorx Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору rosalin http://forum.ru-board.com/topic.cgi?forum=8&topic=1908&start=666&limit=1&m=1#1 Всего записей: 87 | Зарегистр. 14-03-2006 | Отправлено: 14:43 19-11-2007

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Народ всем привет.   Задача - есть таблица в Excel, было принято решение конвертнуть ее в SQL. Для чего думаю применить скрипт, напрямую не получится импортировать. 1.  В файле примерно 5000 записей,  есть ссылки на записи из другой таблицы, и скрипт сходит с ума когда происходит считывание. 2. Заранее появился такой вопрос - таблица заполнялась не всегда нормально, а бывало и через одно место. Поэтому хочу как-то сделать проверку на значение, считываемое из ячейки, т.е. допустим мне нужно, чтобы считывалось только если значение типа Data, какую-нибудь информацию про это или примеры скриптов посоветуйте пожалуйста.     Цитата:   k = 0 Do Until objExcel.Cells(intRow,11).Value = ""     Department = "Test"     Man_ID = objExcel.Cells(intRow, 1).Value     NumReestr = objExcel.Cells(intRow, 2).Value     Partner = objExcel.Cells(intRow, 11).Value     NumDoc = objExcel.Cells(intRow, 15).Value     Data_WrDoc = objExcel.Cells(intRow, 16).Value     Mark = objExcel.Cells(intRow, 7).Value     DataDog = objExcel.Cells(intRow, 20).Value     Remark_1 = objExcel.Cells(intRow, 28).Value     Remark_2 = objExcel.Cells(intRow, 32).Value     Data_start = objExcel.Cells(intRow, 5).Value                k = k + 1       Loop objExcel.Quit WScript.Echo k     Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 16:14 19-11-2007 | Исправлено: Sk1f, 16:18 19-11-2007

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору p.s. начал с самого простого скрипта и он уже подвис, а на него уже думаю потом наращивать. Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 17:05 19-11-2007

m0ps Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Vorx я знаю... дело в том, что скрипт я использую для удаления старых бэкапов. их дата последнего изменения равна той что в названии. так что меня тот скрипт вполне устраивает.   также необходима организация следующего: в определенный день недели (к примеру субботу) необходимо записывать на болванку определенный файл (с динамическим именем вида Baza_YYYYMMDD.zip). поскольку размер файла ~55 метров, то необходима возможность записи мультисессионного диска. в идеале - при остатке на диске менее 100 метров - выдвигать лоток, что б я знал когда надо менять диск.   задача я так понимаю не из легких, есть ли у кого какие-либо соображения? Всего записей: 372 | Зарегистр. 27-05-2006 | Отправлено: 17:15 19-11-2007 | Исправлено: m0ps, 17:17 19-11-2007

Vorx Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору m0ps   Утилитки для записи из командной строки : 1. NeroCmd.exe от Nero 2. CreateCD - http://isorecorder.alexfeinman.com/CreateCD.htm   Можно использовать IMAPI : http://msdn2.microsoft.com/en-us/library/bb870772.aspx   Извлечение CD : Код: Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection colCDROMs.Item(0).Eject (или Item с другим индексом, в зависимости от количества и порядка приводов)   Свободное место на диске "С" в Мб : Код: Set oFileSys = CreateObject("Scripting.FileSystemObject") FormatNumber(oFileSys.Drives.Item("C").FreeSpace / (1024 ^ 2),2) Всего записей: 87 | Зарегистр. 14-03-2006 | Отправлено: 17:48 19-11-2007 | Исправлено: Vorx, 22:17 19-11-2007

Vorx Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Etalon И на XP работает со следующим обновлением : http://support.microsoft.com/kb/KB932716 Всего записей: 87 | Зарегистр. 14-03-2006 | Отправлено: 14:10 20-11-2007

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2

ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование