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

YURETS777 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Можно ли  в vbs сделать так, чтобы по IP-адресу резолвилось не Нетбиос Имя, а DNS ? nbtstat сканирует только нетбиос. Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 15:23 16-12-2010 | Исправлено: YURETS777, 15:41 16-12-2010

evgen tanuki Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору   Проверил - все работает, посмотрю что будет если две карточки позже =! Спасибо!     Добавлено: Ну что, поехали дальше. Юзеры недельку перегрузили компа, и благодаря скрипту:     'On Error Resume Next     Dim adsinfo, ThisComp, oUser     Set adsinfo = CreateObject("adsysteminfo")     Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)     Set oUser = GetObject("LDAP://" & adsinfo.UserName)     'msgbox mid(ThisComp.Name,instr(ThisComp.Name,"=")+1)     'если IP не определили, то ничего не делаем     if getHip(mid(ThisComp.Name,instr(ThisComp.Name,"=")+1))<>"" then   'msgbox getHip(mid(ThisComp.Name,instr(ThisComp.Name,"=")+1))   Thiscomp.put "description", "Logged on: " &_   oUser.cn & " " & CStr(Now) & " c IP = " &_   getHip(mid(ThisComp.Name,instr(ThisComp.Name,"=")+1))   ThisComp.Setinfo   end if     Function getHip(CompName)   getHip=""   Set objWMIService = GetObject( _       "winmgmts:\\" & CompName & "\root\cimv2")   Set IPConfigSet = objWMIService.ExecQuery _       ("Select IPAddress from Win32_NetworkAdapterConfiguration ")       For Each IPConfig in IPConfigSet       If Not IsNull(IPConfig.IPAddress) Then           For i=LBound(IPConfig.IPAddress) _               to UBound(IPConfig.IPAddress)                   'WScript.Echo IPConfig.IPAddress(i)           getHip=(IPConfig.IPAddress(i))           'предпологается что у хоста одна сетевуха активна!!!           exit function           Next       End If   Next     End Function       получили описание в поле "description", так же в поле "mail" набил им руками их почту. Вопрос для чего все это нужно было. Да собственно для того, чтоб потом каким то макаром стащить это все ил AD и положить в экселевский файлик, где будут колонки "Выводимое имя" "IP(взятое из поля "description") и mail. Вот только не знаю как это все смастерить, да так чтоб еще и актуальность постоянно поддерживалась.   если кто подскажет буду благодарен, или подскажите в какую сторону копать...       Всего записей: 5 | Зарегистр. 10-12-2010 | Отправлено: 15:30 16-12-2010 | Исправлено: evgen tanuki, 17:43 16-12-2010

firsteducation Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Спасибо YNY! работает как надо! Всего записей: 95 | Зарегистр. 19-10-2010 | Отправлено: 20:45 16-12-2010

Valdon Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Кто знает как определить (вкл. или выкл.) текущее состояние  NumLock из WSH? Всего записей: 428 | Зарегистр. 25-07-2005 | Отправлено: 19:14 23-12-2010 | Исправлено: Valdon, 19:16 23-12-2010

Valdon Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YNY Цитата: Если же тебе нуна проверять не состояние клавиши, а наличие цифр, то мона воспользоваться функцией  IsNumeric(S) где в S лежит то, что хотим проверить! - если не затуднит, можно на примере ? А вообще задача такая: На ноутбуке без доп. клавиатуры (Win XP) зделать так чтоб после логона NumLock всегда был выключен,  метод WshShell.SendKeys "{NUMLOCK}" переключает тупо NUMLOCK из одного состояния в другое (неизвестное) Может при логоне реестр анализировать на предмет включения нумлока (HKCU,"Control Panel\Keyboard","InitialKeyboardIndicators",0x00000000,"2") ? ЗЫ: Просто тетки-бухгалтерши достали со звонками по поводу "А почему при наборе букв циферьки вылазют ?" Всего записей: 428 | Зарегистр. 25-07-2005 | Отправлено: 09:35 28-12-2010

contrafack Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YNY   ммм. че то не поняли друг друга. надо делать так, чтоб этот "банер" из телнета вводился сразу в браузер. Ну скажем типа мини-веб сервер, который парсит с телнета заголовки-банера или что то типа такого. Всего записей: 3333 | Зарегистр. 21-04-2008 | Отправлено: 02:08 06-01-2011

firsteducation Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Люди подскажите в чём дело, создал батник, а он не выполняет одну строчку, строчка эта должна запустить vbs скрипт, вот она: start SysFolder\str.vbs Папка SysFolder лежит в том-же каталоге, что и сам батник. В чём моя ошибка?   Добавлено: Ах да и ещё, не могу командой copy скопировать скрытые файлы, как это сделать? Всего записей: 95 | Зарегистр. 19-10-2010 | Отправлено: 10:49 11-01-2011

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору firsteducation vbs надо запускать так: cscript C:\blablabla\script.vbs Цитата: не могу командой copy скопировать скрытые файлы, как это сделать? курить команду xcopy, в частности вам нужен ключ /h ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 12:04 11-01-2011

firsteducation Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Alukardd спасибо, ответы вроде работают, но команда xcopy всё время пытается скопировать мою папку на дисковод, просто на разных компах разные буквы диска, а как заставить её идти дальше, если это дисковод? Тоесть чтобы если нет доступа на запись, шла дальше? Всего записей: 95 | Зарегистр. 19-10-2010 | Отправлено: 13:49 11-01-2011

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору firsteducation куда дальше-то? оО на другой диск (следующую букву)??? ну можно делать проверку какую-нить и после неё уже обращаться...  или если проблема фиксирована на 2х/3ч машинах, то можно попробовать проверку имени машины и покурить команду ASSIGN. ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 17:41 11-01-2011

firsteducation Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Мне нужно как нибудь но некоторые буквы дисков скидывать папку батником, но батник может быть на любом компьютере, то-есть на разных машинах эта-же буква может оказаться приводом дисков, я не знаю как сделать проверку дисковод это или раздел диска или флешка, мне не важно раздел диска это или флешка, только бы не дисковод. Всего записей: 95 | Зарегистр. 19-10-2010 | Отправлено: 17:57 11-01-2011

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору firsteducation что за сеть, что все по разному на разных машинах... Вообще я не пойму, если вам все равно куда записывать то пишите на %systemdrive%   Если у вас сеть на 7ках, то можно используя мощь PowerShell: Get-WmiObject Win32_logicaldisk В XP могу предложить определить рабочие диски так:   echo LIST VOLUME>script.tmp diskpart /s script.tmp del script.tmp   По дальнейшему парсингу выводы diskpart и прочим извращениям прошу в соответствующую тему - Задачи на bat-файлах 10 ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 18:45 11-01-2011

firsteducation Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Может быть я не так сформулировал, я скидываю батник на комп вручную, но у разных пользователей разделы диска, флешки и дисководы могут иметь разные буквы, мне нужно чтоб папка скопировалась, естественно дисковод я хочу обойти стороной. Всего записей: 95 | Зарегистр. 19-10-2010 | Отправлено: 19:09 11-01-2011

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