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

MC_VARGAR Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Этап с использованием Active Directory Migration Tool, уже был пройден. При помощи неё всё учётки компов и пользователей перемещены в новый домен.   Мне сейчас нужна утилита которой я мог бы сменить домен в который  входит компьютер пользователя. А то бегать по 500 компам и у каждого нажимать сменить домен, не очень спортивно) Всего записей: 3 | Зарегистр. 10-08-2006 | Отправлено: 13:28 10-08-2006

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору MC_VARGAR   Цитата:   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, Location from 'LDAP://DC=fabrikam,DC=com' " _         & "Where objectClass='computer'"   objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF Set objOU = GetObject("LDAP://" & objRecordSet.Fields("Name").Value & ",dc=NA,dc=fabrikam,dc=com") objOU.MoveHere "LDAP://" & objRecordSet.Fields("Name").Value & ",cn=Users,dc=fabrikam,dc=com", _     vbNullString Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value objRecordSet.MoveNext Loop     первое выделение - из какого домена второе выделение - в какой домен   Сохранить с разрешением .vbs Запускай из cmd -> cscript "путь к скрипту" Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 13:44 10-08-2006 | Исправлено: Sk1f, 13:50 10-08-2006

MC_VARGAR Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Sk1f Спасиб!!!, сейчас буду пробовать) Всего записей: 3 | Зарегистр. 10-08-2006 | Отправлено: 14:38 10-08-2006

AleXeyS55 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите пожалуйся скрипт который перебирает все окмпы в домене и сохраняет в файл их программно-аппаратную конфигурацию, как можно более подробно. Если кто знает как такое возможно. Всего записей: 227 | Зарегистр. 30-01-2006 | Отправлено: 16:18 10-08-2006

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору AleXeyS55 укажи какую именно аппаратную состовляющую ты хочешь знать?       Добавлено: Можно слишком много информации узнать и потом подумай как у тебя будет разрастаться такой .txt файл, если в нем будет около 50 записей только о одном компьютере. А если компьютеров до .........     Добавлено: Мой тебе совет скачай -     The Portable Script Center   http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=B4CB2678-DAFB-4E30-B2DA-B8814FE2DA5A Или On-line version этого http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true   Там есть все.     Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 17:28 10-08-2006

AleXeyS55 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Sk1f Спасибо за ссылку. Места хватает в общем то, файлы будут по одному на отдельный комп. Которых совсем не до ... Всего записей: 227 | Зарегистр. 30-01-2006 | Отправлено: 09:03 11-08-2006

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата:   Возвращает символ с конкретным номером из строки   function charAtTest(n){    var str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; // Initialize variable.    var s;                                  // Declare variable.    s = str.charAt(n - 1);                  // Get correct character                                            // from position n – 1.    return(s);                              // Return character. }     Есть ли аналоги в VBScript? Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 16:46 14-08-2006 | Исправлено: Sk1f, 10:46 18-08-2006

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору urel громадное спасибо. Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 15:50 21-08-2006

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Люди этот скрипт добавляет и user-ов и computer-ы в группу?     Цитата:   Const ADS_PROPERTY_APPEND = 3   Set objGroup = GetObject _     ("LDAP://cn=Atl-Users,cn=Users,dc=NA,dc=fabrikam,dc=com") objGroup.PutEx ADS_PROPERTY_APPEND, _     "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") objGroup.SetInfo   Set objGroup = GetObject _     ("LDAP://cn=NA-Employees,cn=Users,dc=NA,dc=fabrikam,dc=com")   objGroup.PutEx ADS_PROPERTY_APPEND, _     "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") objGroup.SetInfo       А то у меня ругается на строчку, когда добавляю computer в группу : Цитата:   objGroup.PutEx ADS_PROPERTY_APPEND, _     "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")   Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 13:51 23-08-2006 | Исправлено: Sk1f, 13:53 23-08-2006

FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Sk1f Цитата: А то у меня ругается на строчку, когда добавляю computer в группу :     Цитата:   objGroup.PutEx ADS_PROPERTY_APPEND, _       "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")     Ты надеюсь сменил cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com на свой домен? ---------- Если не получается с первого раза - прочти инструкцию. (с) "Откуда нам знать, что такое война, если мы не знаем мира..."(с) Записки Всего записей: 3796 | Зарегистр. 16-07-2004 | Отправлено: 14:24 23-08-2006

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору FreemanRU, конечно вот мой скрипт - . Цитата:   Option Explicit   Dim RootDSE, DefaultDomain Dim objFSO, objTextFile, strNextLine Dim objPath Dim objGroup   Const ForReading = 1 Const ADS_PROPERTY_APPEND = 3   Set RootDSE = GetObject("LDAP://RootDSE") Set DefaultDomain = GetObject("LDAP://" & RootDSE.Get("DefaultNamingContext")) Set objFSO = CreateObject("Scripting.FileSystemObject")   objPath= "C:\Documents and Settings\aleksandr\Рабочий стол\Result_DN.txt"     ' Change PATH TO FILE   Set objTextFile = objFSO.OpenTextFile(objPath, ForReading)   WScript.Echo DefaultDomain.distinguishedName   Do Until objTextFile.AtEndOfStream     strNextLine = objTextFile.Readline     'Wscript.Echo(strNextLine)     Wscript.Echo ("LDAP://CN=ComputersTest,OU='Специальные учетные записи и группы',OU='Нереплицируемые пользователи'," & DefaultDomain.distinguishedName)   Set objGroup = GetObject("LDAP://CN=ComputerCSP,OU=Специальные учетные записи,OU=Нереплицируемые пользоватли," & DefaultDomain.distinguishedName) objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array(strNextLine) objGroup.SetInfo   Loop     Ошибка на выделенной строчке.   В текстовом файле такие строчки: "cn=ivanovaa,ou=test,ou=компьютеры,dc=test,dc=ru"                         Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 14:29 23-08-2006 | Исправлено: Sk1f, 14:31 23-08-2006

FreemanRU Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Sk1f Цитата: Ошибка на выделенной строчке.   Какая ошибка-то? ---------- Если не получается с первого раза - прочти инструкцию. (с) "Откуда нам знать, что такое война, если мы не знаем мира..."(с) Записки Всего записей: 3796 | Зарегистр. 16-07-2004 | Отправлено: 14:32 23-08-2006

Sk1f Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору ошибку нашел, спасибо Freeman.       Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 14:38 23-08-2006 | Исправлено: Sk1f, 17:24 23-08-2006

GOODmen Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Подскажите, как лучше решить такую задачу - нужно выдернуть из АД некоторые группы и их пользователей с последующим сохранением в файл в красивом виде для печати? Всего записей: 366 | Зарегистр. 15-01-2004 | Отправлено: 07:03 28-08-2006

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