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

FighterForLife Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору vladk1973 %) эммммммм.... я просто АБСОЛЮТНО не знаком с предметом, поэтому прошу не пинать! куда мне запихнуть предложенный код и что с ним дальше делать? И еще вопрос: не удалит ли скрипт саму папку - она ДОЛЖНА остаться, только ее содержимое должно быть очищено!   И что такое РМДИР - можно подробнее, линк, например? ---------- Даже Gold Member'ы когда-то были Newbie'ками... Всего записей: 340 | Зарегистр. 29-03-2005 | Отправлено: 14:00 22-07-2008

was1978 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору if not exist mess.txt goto d WinRAR.exe  a  c:\shed\mess.zip mess.txt blabla.exe seting.txt del c:\shed\mess.txt del c:\shed\mess.zip   Добавлено: хм, в конце файла метка d с двоеточием - заменилась на смайлик Всего записей: 5 | Зарегистр. 10-02-2006 | Отправлено: 09:07 23-07-2008

PhoenixUA Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору was1978 попробуй call scan.bat > mess.txt   Всего записей: 2184 | Зарегистр. 17-11-2005 | Отправлено: 10:42 23-07-2008

was1978 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору PhoenixUA   спасибо, теперь понял Всего записей: 5 | Зарегистр. 10-02-2006 | Отправлено: 11:05 23-07-2008

abasov Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ребят подскажите как в коде использовать персонализацию kerberos или ntlm?   Код:   ' Удаленное выполнение команды из другой учетной записи On Error Resume Next Dim appl, strUser, strPassword, strComputer     '========================================================= appl="regedit /s ""\\fs\Standart_PO\Office2003\outlook\outlook.reg""" 'команда strUser = "backup\admin" 'имя пользователя   strPassword = "xxxxxx"   '========================================================= Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")     Set objServices = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", strUser, strPassword, Null, Null, 0)   If Err.Number <> 0 Then     WScript.Echo Err.Number & ": " & Err.Description     WScript.Quit End If   Set objClass = objServices.Get("Win32_Process")   Res = objClass.Create(appl, Null, Null, PID)   If Res <> 0 Then     WScript.Echo "Код ошибки: " & Res     else If Res = 0 then     WScript.Echo "Выполнено"     End If End If Всего записей: 345 | Зарегистр. 12-11-2002 | Отправлено: 12:53 23-07-2008 | Исправлено: abasov, 12:53 23-07-2008

niichavo Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору abasov Код: Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2") Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 17:17 23-07-2008 | Исправлено: niichavo, 17:18 23-07-2008

Vadimka_DDD Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Стоит задача - ежедневно, кроме выходных отправлять на определенный е-мейл письмо с определенной темой и определенным вложением. Какой софтиной это можно реализовать? Всего записей: 608 | Зарегистр. 15-02-2004 | Отправлено: 01:44 24-07-2008

abasov Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору niichavo немного не то, нашел, если интересно: http://www.intuit.ru/department/os/compromtwin/12/2.html   Всего записей: 345 | Зарегистр. 12-11-2002 | Отправлено: 08:39 24-07-2008

vladk1973 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору FighterForLife RMDIR  - консольная команда удаления папки со всем содержимым Пуск -> Выполнить -> cmd -> В окне консоли набираешь RMDIR /? Дальше все понятно будет Скрипт запихиваешь прямо как есть в файл, например "Mydel.vbs" и запускаешь как батник обычный.   Теперь про папку, которую нельзя удалять. Чтобы не изобретать велосипед уж лучше удалить, а потом снова создать, чем писать скрипт перебора всех папок и файлов.  Для перебора одной команды нет Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 15:11 24-07-2008

rkhodjaev Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору  Извините,знаю скорее это тема не для данного поста,но в И-буксу и в других топиках не ответили.Мне очень надо книжка Администрирование в информационных системах или же любая другая книжка на эту тему в электронном виде.Пожалуйста не отпинайте..... Всего записей: 1002 | Зарегистр. 05-05-2006 | Отправлено: 16:38 24-07-2008

abasov Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Vadimka_DDD засовываете в планировщик заданий по Вашему выбору ....кстати тема уже было в топике   Код: Dim objEmail, sDirectoryPath   Set oFSO = CreateObject("Scripting.FileSystemObject") sDirectoryPath = "C:\Intel\Logs" ' брать атачи здесь set oFolder = oFSO.GetFolder(sDirectoryPath) set oFileCollection = oFolder.Files   For each oFile in oFileCollection         Set objEmail = CreateObject("CDO.Message")         objEmail.Bodypart.Charset = "windows-1251"         objEmail.From = "from@xxx.ru"         objEmail.To = "to@xxx.ru"         objEmail.Subject = "Тема"         objEmail.Textbody = "Содержимое письма!"             objEmail.AddAttachment oFile.Path           objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2         objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.11.11"         objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25         objEmail.Configuration.Fields.Update         objEmail.Send         Set objEmail = Nothing Next Всего записей: 345 | Зарегистр. 12-11-2002 | Отправлено: 20:36 24-07-2008

Real Root Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ребята, подскажите, как сделать что-то если дата больше указанной? Вот такой код работает через попу: If (Date >= "25.08.2008") Then Он отработает позже 25 чилса любого месяца и года. Как сделать по-уму? Всего записей: 1037 | Зарегистр. 13-04-2006 | Отправлено: 12:13 28-07-2008

niichavo Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Real Root Формат даты нужно указывать буржуинский, если не ошибаюсь, т.е. не "25.08.2008", а "8/25/2008". Есть ещё ф-ция CDate (character-to-date), которая переводит строковый параметр в дату. Используя эту ф-цию, можно сравнивать даты: Код: if (Date >= CDate("8/25/2008")) ... Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 15:43 28-07-2008 | Исправлено: niichavo, 15:50 28-07-2008

niichavo Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YNY Наглая ложь! Про то в каком формате CDate выдаёт дату, я не говорил ни слова. А в качестве параметра дату можно задавать хоть буржуинском формате, хоть в региональном. Я же рекомендовал в буржуинском, о чём очень сожалею, простите великодушно. Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 10:08 29-07-2008 | Исправлено: niichavo, 10:11 29-07-2008

Real Root Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору niichavo Спасибо большое, про CDate я не знал. В Русской винде нужно задавать именно в русском формате. Вобщем, если кому нужно, то проще сделать так: lacaldate = Cdate("25.08.08") IF date >= lacaldate then ...   Всем спасибо за дискуссию, очень помогли. Всем удачного дня Всего записей: 1037 | Зарегистр. 13-04-2006 | Отправлено: 15:02 29-07-2008 | Исправлено: Real Root, 15:04 29-07-2008

testir Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Помогите разобраться, нужно запускать на удаленном компе скриптик ( на vbs или cmd) Который удалял все имеющиеймя принтеры и устанавливал нужные   (опубликованные в AD). Или для примера хотя бы просто запустить какой либо скрипт на удаленном компе. Вот в инете нашел такой вариант скрипта Код:   On Error Resume Next Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") CompName = "newcomp" 'имя компьютера UserName = "newcomp\admin" 'имя пользователя Pass = "1111111" 'пароль пользователя Set objServices = objSWbemLocator.ConnectServer(CompName, "root\CIMV2", UserName, Pass, Null, Null, 0) If Err.Number <> 0 Then     WScript.Echo Err.Number & ": " & Err.Description     WScript.Quit End If Set objClass = objServices.Get("Win32_Process") Res = objClass.Create("wscript.exe c:\ver.vbs", Null, Null, PID) If Res <> 0 Then     WScript.Echo "Код ошибки: " & Res End If   При запуске, на удаленном компе появляется в процессах "wscript.exe" запущенный от имени "admin"  и ничего не происходит... Скрипт который требуется запустить - выводит версию WSH Какими способами это  можно реализовать подскажите пожалуйста. Всего записей: 15 | Зарегистр. 14-02-2007 | Отправлено: 16:51 29-07-2008

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