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   Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 17:27 11-12-2006 | Исправлено: Smitis, 12:30 20-08-2008

FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору cluster Код:   Set FSO = WScript.CreateObject("Scripting.FileSystemObject") Set LogFile=FSO.CreateTextFile("userlist.txt",true) Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText = _ "Select Name, sAMAccountName, Department from 'LDAP://OU=MyOU, DC=fabrikam, DC=com' " _ & "where objectCategory='user'"   objCommand.Properties("Page Size") = 1000 objCommand.Properties("Timeout") = 30   objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   objCommand.Properties("Cache Results") = False   Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst   Do Until objRecordSet.EOF  LogFile.WriteLine(objRecordSet.Fields("Name").Value&";"&objRecordSet.Fields("sAMAccountName").Value&";"&objRecordSet.Fields("department").Value)   objRecordSet.MoveNext Loop   ---------- Если не получается с первого раза - прочти инструкцию. (с) "Откуда нам знать, что такое война, если мы не знаем мира..."(с) Записки Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 22:59 12-12-2007

FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору cluster Цитата: А как сохранять этот файл в DOS кодировке "Этот файл" - подразумевается выходной? Если да, то замени строку   Код:   LogFile.WriteLine(objRecordSet..................   на Код:   WScript.Echo(objRecordSet..................   , удали первые две строки и запускай его вот так: Win+R, cmd: Код: cscript //nologo scriptname.vbs > userslist.txt ---------- Если не получается с первого раза - прочти инструкцию. (с) "Откуда нам знать, что такое война, если мы не знаем мира..."(с) Записки Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 14:22 13-12-2007

FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору cluster Может все-таки distinguishedName cluster Цитата: есть простой txt-список пользователей Что в файле? account или полный путь? ---------- Если не получается с первого раза - прочти инструкцию. (с) "Откуда нам знать, что такое война, если мы не знаем мира..."(с) Записки Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 11:51 20-12-2007

FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору cluster 1й вариант: 1. Читаем файл по строке 2. Формируем из прочитанных строк запрос вида "..... where DisplayName='user1' or тут была ошибка в логике DisplayName='user2'.......",   3. выполняем 4. создаем массив CN-нок,   5. запускаем команду, что ты выше указал Вариант 2й 1. Читаем файл по строке 2. Для каждой строки запускаем запрос ".... where DisplayName='user1'" и добавляем в один массив и далее, как вариант 1.   Цитата: Как вытащить "destiguishedName" для каждого пользователя Код:   Set FSO = WScript.CreateObject("Scripting.FileSystemObject")   Set LogFile=FSO.CreateTextFile("userlist.txt",true)   Const ADS_SCOPE_SUBTREE = 2   Set objConnection = CreateObject("ADODB.Connection")   Set objCommand = CreateObject("ADODB.Command")   objConnection.Provider = "ADsDSOObject"   objConnection.Open "Active Directory Provider"   Set objCOmmand.ActiveConnection = objConnection   objCommand.CommandText = _   "Select Name, sAMAccountName, distinguishedName, Department from 'LDAP://OU=MyOU, DC=fabrikam, DC=com' " _   & "where objectCategory='user'"   objCommand.Properties("Page Size") = 1000   objCommand.Properties("Timeout") = 30   objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   objCommand.Properties("Cache Results") = False   Set objRecordSet = objCommand.Execute   objRecordSet.MoveFirst     Do Until objRecordSet.EOF   LogFile.WriteLine(objRecordSet.Fields("Name").Value&";"&objRecordSet.Fields("sAMAccountName").Value&";"&objRecordSet.Fields("department").Value&";"&objRecordSet.Fields("distinguishedName").Value)   objRecordSet.MoveNext   Loop     ---------- Если не получается с первого раза - прочти инструкцию. (с) "Откуда нам знать, что такое война, если мы не знаем мира..."(с) Записки Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 13:00 20-12-2007 | Исправлено: FreemanRU, 14:23 20-12-2007

FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору cluster Цитата: оо, госпади.. я же это видел!   не понял...это ты к чему? ---------- Если не получается с первого раза - прочти инструкцию. (с) "Откуда нам знать, что такое война, если мы не знаем мира..."(с) Записки Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 00:15 21-12-2007

north_crow Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору может кому пригодится... скрипт установки обоев для юзеров. можно конечно через ГПО выставить - но мне не нравиться этот способ, т.к. пользователь потом не может сменить обои и еще экран не всегда обновляется и у пользователя или экран без картинки или часть картинки. а этот скрипт делает все коректно. скрипт наполовину мой, на половину с инета   Код:   '========================================================================== ' ' Копируем на комп и устанавливаем обои ' '==========================================================================   On Error Resume Next ' имя файла обоев FileName = "wallpaper.bmp" Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("Wscript.Shell") ' заносим в Folder путь к папке профиля пользователя Folder = WshShell.ExpandEnvironmentStrings("%UserProfile%") ' копируем обои на комп objFSO.CopyFile "\\shares\" & FileName , Folder & "\", OverwriteExisting ' записываем в реестр имя файла обоев WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", Folder & "\" & FileName   ' ставим значение растянуть на весь экран WshShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", "2" WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\BackUpWallpaper", Folder & "\" & FileName   WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper", Folder & "\" & FileName   ' обновляем экран WshShell.Run "%SystemRoot%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, False   Всего записей: 172 | Зарегистр. 04-12-2002 | Отправлено: 14:50 22-12-2007

snayper7 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору north_crow нет, который каждый день рандомно выставляет обои? Всего записей: 1088 | Зарегистр. 18-07-2006 | Отправлено: 19:11 22-12-2007

se111 Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору помогите с задачкой. есть текстовый файл 1) найти часть слова в файле и удалить всё слово  например <field GUID="ALKSJDASDLJKH" name="name here"> найдя guid удалить GUID="ALKSJDASDLJKH" 2) найдя часть слова заменить всё слово(разделителем в данном случае выступает пробел) указанным  например: <dlc ac="865A1401F77D5801FC0064002700" > найдя слово ac= заменить ac="статистика"   строку удалить и заменить нашел как - нужна теперь махинация со словами. очень на вас надеюсь.     нашел единственное что вроде бы около моей задачи, но никак допетрить не могу как выполнить то что мне надо   Dim UserKey   ....   Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Documents and Settings\MyAccount\Desktop\index.php", 1)   strText = objFile.ReadAll objFile.Close   Set regexp = CreateObject("VBScript.RegExp") regexp.Global = True regexp.IgnoreCase = True regexp.Pattern = "$UserKey = .0123456789101-.........."   Set matches = regexp.Execute(strText) For Each m In matches strText = Replace(strText, UserKey) Next MsgBox strText   Set objFile = objFSO.OpenTextFile("C:\Documents and Settings\MyAccount\Desktop\index.php", 2) objFile.Write strText objFile.Close   взято тут http://www.xtremevbtalk.com/archive/index.php/t-240406.html Всего записей: 782 | Зарегистр. 21-04-2005 | Отправлено: 19:39 24-12-2007 | Исправлено: se111, 21:24 24-12-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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование