ooptimum Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору                                  Коллеги-администраторы  ....   Часть 1 Автоматизация администрирования. Часть 2 Думаю каждый из вас сталкивался с необходимостью выполнять некие несложные рутинные операции, на котороые уходит много драгоценного времени.  Например, создать определенную структуру каталогов для каждого пользователя домена, изменить некие параметры в профилях всех или части пользователей, изменить полномочия/владельца однотипных файлов в разных каталогах т.д.   Я, как сисадмин, тоже не раз был вынужден делать все это.  Руками делать это тоскливо и муторно, как вы понимаете. Должен заметить, что по неким "религиозным" убеждениям я всегда старался избегать любых отношений с бейсиком и его производными. Еще мой отец учил меня не иметь с ним никаких дел. Буквально. А теперь я учу своего сына тому же. Но, тем не менее, полностью избежать этого, по всей видимости, невозможно, тем более, что бейсик от 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 Исчерпывающий набор док и линков по теме (то что нужно начинающему скриптологу ) 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 подобный скриптовый язык с исходниками Дружественные темы : Автоматическая (unattended) установка Windows Интересные команды при работе с Linux Отличный сайт по скриптингу, и не только Использование KIX Использование WMI   >>HOW -  TO: Создается по материалам данного топа   Надеюсь данная тема будет полезна для Вас.  Предложения по реформированию шапки принимаю в ПМ Jovanotti   Всего записей: 2898 | Зарегистр. 30-05-2002 | Отправлено: 08:55 13-12-2002 | Исправлено: FreemanRU, 17:29 11-12-2006

iLok Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Хочу автоматом засетапить весь комп. Стал писать. Начал со скрипта на WinRAR:   var WshShell = WScript.CreateObject("WScript.Shell"); wrar_id = WshShell.Run("c:\\winrar_311ru\\install\\wrar311ru.exe"); WScript.Sleep(1000); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{ENTER}"); WScript.Sleep(500); WshShell.AppActivate (wrar_id.ProcessID); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.AppActivate (wrar_id.ProcessID); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(200); WshShell.SendKeys ("{TAB}"); WScript.Sleep(220); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys (" "); WScript.Sleep(500); WshShell.AppActivate (wrar_id.ProcessID);WScript.Sleep(500); WshShell.SendKeys ("{ENTER}");WScript.Sleep(500); WshShell.AppActivate (wrar_id.ProcessID); WshShell.SendKeys ("{TAB}"); WScript.Sleep(500); WshShell.SendKeys ("{ENTER}");WScript.Sleep(500); WshShell.AppActivate (wrar_id.ProcessID);WScript.Sleep(500); WshShell.SendKeys ("{ENTER}");WScript.Sleep(500); WScript.Sleep(500); WshShell.SendKeys ("%{F4}");   Теперь собственно о глюках:   1. В процесе инсталяции (из 20 раз , один раз случайно потерялся фокус на окне, и началось такое.......) 2. Не известно сколько времени программа инсталится (на разных компах поразному) 3. Глюк с чек боксами (если запустить скрипт два раза в подряд, короче чек боксы остаются на тех местах где их поставил предыдущий запуск скрипта)   Что можете сказать по поводу решения вышеописаных глюков. Допустим этот скрипт для WinRAR отлажен, а если я примером офис захочу....   Всего записей: 131 | Зарегистр. 08-06-2003 | Отправлено: 18:39 15-01-2004

dadu Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору iLok сомневаюсь , что это относится к "Автоматизации администрирования".     Теперь по сабжу. WinRaR проще поставить самораспаковывающимся ехе-ником. Запакуй тем же WinRaR'ом папку в Program Files. И вуаля. Регистрация  xcopy RARREG.KEY C:\Program Files\WinRAR Этим же способом ставятся все программы которые работают без установки.   Например EmEditor, FleshGet, MyIE, и т.п.   Теперь еще по сабжу, есть более простые методы автоматической установки программ. Без извращений.... см. пример выше. Тут по прогам куча ключей для автоматической установки: http://www.msfn.org/board/index.php?s=10c7e9e2ef6963c192ddc65c6e360ce7&showforum=80 Офис и Вынь ставим тут http://forum.ru-board.com/topic.cgi?forum=62&bm=1&topic=0012&start=100#lt Всего записей: 1222 | Зарегистр. 13-11-2002 | Отправлено: 15:58 16-01-2004

naPmu3aH Из лесу вышел Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Что-то я торможуууу.... Не подскажет ли сто красивого и простого способа изменения нескольких ключей в реестре на всех (избранных) компьютерах в домене 2000.   В общем-то для них есть в AD специальный OU, так что если это можно через политики - даже лучше. Но сам я не нашел как сделать такое (нашел только как права на ключи назначить) ---------- Ну і хто тебе кликав, чому ти прийшла, Стара проститутка, сука-війна? Хто тобі платить за наші тіла? Скільки ще тобі треба, яка їх ціна? Всего записей: 4642 | Зарегистр. 30-10-2001 | Отправлено: 20:47 20-01-2004

pe3yc Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору naPmu3aH а как на счет создать батник, который будет запускать *.reg и запустить этот батник на требуемых машинах? Запускать одним кликом файл на множестве компов могут достаточно много прог, те же сканеры/фиксаторы безопасности. Всего записей: 2434 | Зарегистр. 25-07-2001 | Отправлено: 21:42 20-01-2004

iLok Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Нужно с помощю WSH получить доступ к Computer managment -> services Всего записей: 131 | Зарегистр. 08-06-2003 | Отправлено: 15:49 21-01-2004

kibkalo Убью Билла Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору naPmu3aH - сделать новую политику. в Logon script добавить .reg файл. Права на чтение политики дать только нужным аккаунтам. Всего записей: 2342 | Зарегистр. 10-04-2002 | Отправлено: 08:34 22-01-2004

iLok Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ставлю delphi с помощью WSH (передаю кнопки окну) Как в WSH отследить то что копирование завершено и можна слать кнопку что-бы закрыть окно Всего записей: 131 | Зарегистр. 08-06-2003 | Отправлено: 18:58 27-01-2004

Jovanotti Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору naPmu3aH Цитата: (нашел только как права на ключи назначить)   Поделись идеей плиз....   kibkalo Цитата: в Logon script добавить .reg файл.   Если ты имеешь в виду GPO--> Script-->, то там место только скриптам JS VBS WSH  etc но не всяким  BAT CMD REG etc....     IMHO         Всего записей: 718 | Зарегистр. 22-12-2002 | Отправлено: 15:05 03-02-2004

Lamerok Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору привет отцы!!!       есть логонскрипт  формата .cmd   ------------------------------------- rem проверка версии OC gettype.exe if errorlevel=9 goto FILENOTFOUND   if ERRORLEVEL=8 goto EIGHT if ERRORLEVEL=7 goto SEVEN if ERRORLEVEL=6 goto SIX if ERRORLEVEL=5 goto FIVE if ERRORLEVEL=4 goto FOUR if ERRORLEVEL=3 goto THREE if ERRORLEVEL=2 goto TWO if ERRORLEVEL=1 goto ONE     :EIGHT rem  Windows XP   goto nextAA net use t: /delete net use t: /persistent:no \\servername\users$\%username% net use y: /delete net use y: /persistent:no \\servermame\users$\%username% goto nextAA   .....   rem Template for assignment network drive on shared resources for special workgroup users :nextAA rem  Checking for  users GROUP('s) (COMMENT) for GOAL ifmemberGROUP('s) if not errorlevel 1 goto nextAA+1 net use D: /delete net use D: /persistent:no \\servername\RESOURCES$ :nextAA+   ---------------------------   помогите написать .vbs ибо  я в VB как свинья в апельсинах   заранее 10x       Всего записей: 705 | Зарегистр. 17-04-2002 | Отправлено: 17:43 04-02-2004

JcVai Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Lamerok А не проще версию ОС проверять используя встроенные комманды? Например: ====== VER | FIND /I "2000"   IF %ERRORLEVEL%==0 goto w2k   VER | FIND /I "95"   IF %ERRORLEVEL%==0  goto w95 VER | FIND /I "98"   IF %ERRORLEVEL%==0 goto w98   VER | FIND /I "ME"   IF %ERRORLEVEL%==0 goto me VER | FIND /I "XP"   IF %ERRORLEVEL%==0 goto w2k3 VER | FIND /I "NT"   IF %ERRORLEVEL%==0 goto nt4 echo фигня твоя ОС goto end :w2k3 ECHO WINXP goto end   :me ECHO WINME goto end :nt4 ECHO WINNT got end :w95 ECHO WIN95 goto end :w2k ECHO WIN2K goto end :w98 ECHO WIN98 :end Всего записей: 661 | Зарегистр. 27-10-2002 | Отправлено: 09:54 05-02-2004

Lamerok Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору JcVai   ну это не принципиально.. мне нужно .vbs написать... Всего записей: 705 | Зарегистр. 17-04-2002 | Отправлено: 11:23 05-02-2004

JcVai Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Lamerok попробуй: ========= Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Exec ("C:\windows\system32\cmd.exe /C твой.cmd") ========= Всего записей: 661 | Зарегистр. 27-10-2002 | Отправлено: 11:48 05-02-2004

Lamerok Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору JcVai   Цитата: помогите написать .vbs ибо  я в VB как свинья в апельсинах         это где и как делать? напиши плиз поподроднее   Заранее 10x Всего записей: 705 | Зарегистр. 17-04-2002 | Отправлено: 12:03 05-02-2004

JcVai Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Lamerok Только что проверил работу: ====a.vbs======= Set WshShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "%comspec% /c c:\000\a.cmd",2 ============== Скрипт выполнит файл c:\000\a.cmd в минимизированном окне. Т.е. создай текстовый файл, скажем logon.vbs, забей в него вышеуказанные 2 строчки, заменив c:\000\a.cmd на полное имя твоего батника и наслаждайся.   PS: http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sas_wsh_ahkp.asp Всего записей: 661 | Зарегистр. 27-10-2002 | Отправлено: 12:53 05-02-2004 | Исправлено: JcVai, 12:57 05-02-2004

Lamerok Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору JcVai     all done!!! 10x Всего записей: 705 | Зарегистр. 17-04-2002 | Отправлено: 13:12 05-02-2004

Kristaliar Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Народ.     Не подскажите примерный скрипт. Нужно проверить станции в сетке, какая стоит ОС, и в зависимости от этого запустить на них sp4w2k.exe, если w2k или sp1xp.exe, если xp.   Так как я всегда писал батники, а это по другому как через vbscript не сделать...   Как сие может выглядеть ?       ---------- Дело ясное, что дело темное. Всего записей: 835 | Зарегистр. 29-08-2002 | Отправлено: 16:16 20-04-2004

JcVai Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Kristaliar LOL Глазки выше подними! ---------- What out of that we have not win What out of that we've not return Всего записей: 661 | Зарегистр. 27-10-2002 | Отправлено: 16:26 20-04-2004

Kristaliar Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору JcVai Цитата: Глазки выше подними!   Вижуу. )  Это только проверка какая ОСь. А вот как файлы садить на !станциях!, да с ключами, вот в чем загвоздка ?! ---------- Дело ясное, что дело темное. Всего записей: 835 | Зарегистр. 29-08-2002 | Отправлено: 16:31 20-04-2004

Страницы: 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

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

emx (13-12-2006 21:07): http://forum.ru-board.com/topic.cgi?forum=8&topic=19088#1

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