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

niichavo Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Alexandrnew Цитата: в сети без домена тогда нужно использовать psexec, вместо групповых политик. Цитата: 1 залить програмку (около 400кб) Что здесь означает залить? Скопировать или установить? Если установить, то автоматизация ентого дела зависит от инсталлятора. Нужно знать какие использовать ключи для тихой установки без вопросов. Пример: "psexec @list.txt -s -с "\\server\deploy$\proga\install.exe /S"". Где list.txt - список компьютеров. Если скопировать, то используем xcopy. Пример: "xcopy /d /e /h /i /r /y "\\server\deploy$\proga" "%ProgramFiles%\proga"". Цитата: 2 поменять логин пас встроеного админа а). Создаём файл changePass.vbs: Код: strComputer = "." Set objUser = GetObject("WinNT://" & strComputer & "/Администратор, user")   objUser.SetPassword "new_password" objUser.SetInfo б) применяем скрипт: "psexec @list.txt -s cscript "\\admincomp\Deploy$\changePass.vbs"" Цитата: 3 изменить реестр Изменяешь Можно скриптом. Можно через reg-файл и psexec. Гугули гугли, не ленись. Цитата: 4 выполнить программу из п1 интерактивно или не интерактивно нужно выполнить? Если не интерактивно, то используй psexec. Если интерактивно, то нужно создать задание на удалённом компе в шедуллере. Прога запустится от учётки SYSTEM Цитата: 5 сформировать отчет где Можешь вообще для всех этих пунктов скрипт организовать. в нём проверку и запись резалтов, например. Гугули гугли, не ленись Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 10:52 25-06-2009 | Исправлено: niichavo, 11:05 25-06-2009

Ku60Pr Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Учебный курс "Программирование для администраторов "  [CHM] - всем начинающим рекомендуется http://wsh.net.ru/files/progr_admin.zip Ссылка мёртвая.... перезалейте??? Всего записей: 231 | Зарегистр. 25-06-2009 | Отправлено: 11:18 25-06-2009

5555555 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Автосбор драйверов со всех компов и положить на сервер в катлоги с названием компов - как? Всего записей: 2593 | Зарегистр. 01-04-2004 | Отправлено: 21:53 25-06-2009

greenfox Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Есть простейший макрос который состав-т список из пользователей OU с соо-м Display Name и мылом: Код: Sub test1()   Cells.Select Range("A1").Activate Selection.ClearContents   On Error Resume Next Set objou = GetObject("LDAP://ou=God,dc=domain,dc=spb,dc=ru")   objou.Filter = Array("user")   Row = 1   For Each objUser In objou Cells(Row, 1).Value = objUser.Get("displayName") Cells(Row, 2).Value = objUser.Get("mail") Row = Row + 1 Next   End Sub   Соот-но интересует как сюда добавить 3-й столбец с SID-ом юзверя? Он там в АД в формате каком-то лежит наск я понял? (заюзать атрибут objectSid -> Cells(Row, 2).Value = objUser.Get("objectSid") - не вышло)...   Спс ---------- Три вещи вечны: смерть, налоги и потеря данных... Всего записей: 4139 | Зарегистр. 29-07-2003 | Отправлено: 20:44 02-07-2009

niichavo Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору greenfox Код: Set objNetwork = CreateObject("WScript.Network") wmiQuery = "Select * From Win32_UserAccount Where Domain='" & objNetwork.UserDomain & _                          "' And Name='" & objNetwork.UserName & "'" Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery(wmiQuery) For Each objItem in colItems    WScript.Echo "Ваш sid: " & objItem.SID Next Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 21:20 02-07-2009

greenfox Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору niichavo не понял несколько что мне с ним делать? надо что-то вписать ещё? хотелось бы в вышеописаный скрипт (исходный) добавить ещё 3-ю колонку в виде: Cells(Row, 3).Value = "сюда sid впихнуть" ---------- Три вещи вечны: смерть, налоги и потеря данных... Всего записей: 4139 | Зарегистр. 29-07-2003 | Отправлено: 19:29 03-07-2009

niichavo Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору greenfox Цитата: не понял несколько что мне с ним делать? Из кусочков собрать целое . Например, так: Код:     'получаем sid '--------------   Function myGetSid(UzverName, DomainName)   Dim strSid Set objNetwork = CreateObject("WScript.Network") wmiQuery = "Select * From Win32_UserAccount Where Domain='" & DomainName & _                          "' And Name='" & UzverName & "'" Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery(wmiQuery) For Each objItem in colItems    strSid = objItem.SID Next   myGetSid = strSid   End Function     '--------------   Sub test1()   strDomain = "YOURDOMAIN"   Cells.Select Range("A1").Activate Selection.ClearContents   On Error Resume Next Set objou = GetObject("LDAP://ou=God,dc=domain,dc=spb,dc=ru")   objou.Filter = Array("user")   Row = 1   For Each objUser In objou Cells(Row, 1).Value = objUser.Get("displayName") Cells(Row, 2).Value = objUser.Get("mail") Cells(Row, 3).Value = myGetSid(objUser.Get("sAMAccountName") , strDomain) Row = Row + 1 Next   End Sub     Добавлено: Так, по-моему, проще чем делать ф-цию по конвертации sid (objUser.Get("objectSid")) в строку. Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 23:15 03-07-2009 | Исправлено: niichavo, 23:50 03-07-2009

VIP858 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Имеем: 1) MS Windows 2003 Standart.   2) ~1TB данных, ~1 миллион файлов.   3) Куча длинных и "кривоватых" имён папок\файлов.   4) Небольшая кучка папок\файлов которые не хотят копироваться из за длинных имён\кривых названий.   Нужно: 1) Софт\скрипт\совет для резервного копирования данного хлама.   2) Корректный, без запросов пропуск - занятых, кривых, нечитаемых файлов   3) Копирование "из папки в папку" - чтобы юзеры в случае "убийства" основных данных - могли САМИ вручную выдернуть резервную инфу из расшаренной папки с бэкапами на файл-сервере.   4) Если будет лог копирования с пропущенными файлами и общей информацией - буду очень рад. Всего записей: 104 | Зарегистр. 23-07-2007 | Отправлено: 09:45 21-07-2009 | Исправлено: VIP858, 09:48 21-07-2009

se111 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору нужна ваша помощь , не могу найти способ как разложить новое VPN соединение на большое количество филиалов. весь интернет перерыл и не могу найти скрипт.   может есть и другие варианты как это сделать - наверняка кто нибудь сталкивался. буду очень признателен за любую помощь. ---------- создание сайтов Всего записей: 782 | Зарегистр. 21-04-2005 | Отправлено: 20:33 30-07-2009

nod201 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору «Как привязать ОС (Windows Xp Sp3) к железу так чтобы его невозможно было клонироват на такой же компьютер с такими же железой да бы на любую компьютер с любой железой» лыж бы не смогли клонироват ОС , желательно с возможности снять эту привязку (хотя можно и без сняти) Всего записей: 139 | Зарегистр. 02-01-2006 | Отправлено: 03:57 31-07-2009

YNY Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Uniqas выполнить>ntbackup.exe /? откроется справка с параметрами коммандной строки для данного приложения и никаких скриптов не нада   Добавлено: Цитата: nod201 и на кой такое нада? самое главное на компе -- это данные пользователя, а ОС -- инструмент для работы с ними и привязывать к железу ОС смысла нет. Если просто интересно как это м быть реализованно, то вопрос не в эту тему, хотя реализация подобных вещей мог быть осущь и при пом скриптов!   Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 10:57 05-08-2009

bredonosec Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору VIP858 Цитата: 2) Корректный, без запросов пропуск - занятых, кривых, нечитаемых файлов   в древней статье на тему клонирования выни 98 упоминалось что-то вроде. если склероз не отказывает, говорилось о проверке совпадения дос-имени файла и обычного имени, и если разное, то не копировать..   На что давать проверку при вашем случае.. мож попытка записи, проверка совпадения имени и если нет - стирание? ---------- Вопрос: 'Что человек курит?' как правило возникает не когда ты слышишь, как он дышит, а когда видишь, что он пишет Пропеллер играет роль вентилятора, он останавливается -пилот потеет Аськи нету. Всего записей: 16257 | Зарегистр. 13-02-2003 | Отправлено: 15:17 05-08-2009

viktor9 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ребята сделайте мне файл exe из vbs Подробнее... Всего записей: 120 | Зарегистр. 24-08-2007 | Отправлено: 01:38 18-08-2009

Bumsiq Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору viktor9   Набор сделай сам Всего записей: 282 | Зарегистр. 27-08-2007 | Отправлено: 10:16 18-08-2009

viktor9 Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Bumsiq После компиляции неработает этот файлик Всего записей: 120 | Зарегистр. 24-08-2007 | Отправлено: 12:17 18-08-2009 | Исправлено: viktor9, 12:27 18-08-2009

Страницы: 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование