Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

emx (13-12-2006 21:07): http://forum.ru-board.com/topic.cgi?forum=8&topic=19088#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ooptimum



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
 

                               Коллеги-администраторы  ....  


Часть 1


Думаю каждый из вас сталкивался с необходимостью выполнять некие несложные рутинные операции, на котороые уходит много драгоценного времени.
 Например, создать определенную структуру каталогов для каждого пользователя домена, изменить некие параметры в профилях всех или части пользователей, изменить полномочия/владельца однотипных файлов в разных каталогах т.д.  
Я, как сисадмин, тоже не раз был вынужден делать все это.  Руками делать это тоскливо и муторно, как вы понимаете. Должен заметить, что по неким "религиозным" убеждениям я всегда старался избегать любых отношений с бейсиком и его производными. Еще мой отец учил меня не иметь с ним никаких дел. Буквально. А теперь я учу своего сына тому же. Но, тем не менее, полностью избежать этого, по всей видимости, невозможно, тем более, что бейсик от M$ сейчас уже далеко не та "лапша", которой он был изначально, а современный структурированный язык, нашедший множество применений. Похоже, что для меня в очередной раз настала пора выучить еще что-то. Знаете, как курильщик много раз безуспешно пытается бросить курить, так и я не раз пытался подступиться к изучению VBScript, но пока никак не одолел. Лень, знаете ли. А инструмент в делах административных был бы весьма пользительный, должен заметить, для быстрого написания всякого рода скриптов.

 
    Внимание   !  !  !  

  • Поскольку данный топ весьма не мал, не забывайте  использовать "версию для печати" для более удобного поиска по теме. А также МЕГА ПОИСКОВИК от NEPa

  • Дабы не раздувать топ,  примеры своих  скриптов  заключаем в тег  "more"

Консольные команды. Командный интерпретатор

Windows Script Host (WSH) &  VBScript  &  JScript


Вышеперечисленные буки можно  взять здесь

    ТOOLS :
  1. Autoit+readme.rus
  2. Scriptologic
  3. AutoMate
  4. KIXTART
  5. nnCron-Планировщик с поддержкой скриптового языка --  РЕКОМЕНДУЮ
  6. WGET, GREP, GETMAIL, BLAT for Windows замечательные консольные утилиты
  7. 4dos/4nt -- отличная замена стандартного коммандного интерпретатора  
  8. JudoScript - java подобный скриптовый язык с исходниками

    Дружественные темы :
  1. Автоматическая (unattended) установка Windows
  2. Интересные команды при работе с Linux
  3. Отличный сайт по скриптингу, и не только
  4. Использование KIX
  5. Использование WMI

 
>>HOW -  TO:
Создается по материалам данного топа

 
Надеюсь данная тема будет полезна для Вас.
 Предложения по реформированию шапки принимаю в ПМ Jovanotti

 

Всего записей: 2898 | Зарегистр. 30-05-2002 | Отправлено: 08:55 13-12-2002 | Исправлено: FreemanRU, 17:29 11-12-2006
pe3yc



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
JeweL
Server.GetLastError( )  
если тебя интересует обработка ошибок.
 
Вообще рекомендуется сходить в варезник в топик по ebook, там пролетали книжки по ASP
 
Если обратиться к к оргинальному вопросу - запусти этот сайт под другим юзером, созданным тобой, у которого будут права работать с планировщиком.
 
Dim objErrorInfo
Set objErrorInfo = Server.GetLastError
Response.Write("ASPCode = " & objErrorInfo.ASPCode)
Response.Write("ASPDescription = " & objErrorInfo.ASPDescription)
Response.Write("Category = " & objErrorInfo.Category)
Response.Write("Column = " & objErrorInfo.Column)
Response.Write("Description = " & objErrorInfo.Description)
Response.Write("File = " & objErrorInfo.File)
Response.Write("Line = " & objErrorInfo.Line)
Response.Write("Number = " & objErrorInfo.Number)
Response.Write("Source = " & objErrorInfo.Source)

Всего записей: 2434 | Зарегистр. 25-07-2001 | Отправлено: 19:02 23-07-2003
JeweL



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
pe3yc

Цитата:
запусти этот сайт под другим юзером, созданным тобой

как запустить сайт под другим юзером?

Всего записей: 165 | Зарегистр. 11-05-2002 | Отправлено: 11:05 24-07-2003
pe3yc



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
JeweL
открой IIS и посмотри в настройках сайта

Всего записей: 2434 | Зарегистр. 25-07-2001 | Отправлено: 15:33 24-07-2003
tomcat

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос опытным:
На w2kpro рус в Назначенные задания ставлю запуск vbs-скрипта. Всё нормально отрабатывает.
На w2kAS рус там же при запуске из Назначенных заданий вылазит сообщение - надо запускать через cscript. Лады, пишу cscript //h:cscript //s, говорю заданию - выполнить. МОргает окошечко, всё. Что надо делать - не делает.
Если запустить vbs в командной строке - усё работает.
 
Кстати - а зачем обновлять базу антивируса на каждой машине скриптом? Есть замечательный NAVCorp (SAVCorp)!
 
Вот тут кстати можно найти мои пробы пера на VBScript: http://forum.ru-board.com/topic.cgi?forum=5&topic=6505#17 - механизм гарантированного бэкапа.

Всего записей: 108 | Зарегистр. 10-02-2003 | Отправлено: 15:59 25-07-2003 | Исправлено: tomcat, 16:20 25-07-2003
abasov



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Где не прав? говорит: Error expected `)`
Dim Computer
Dim ComputerName
Dim ComputerDomain
Dim Service
Dim TargetService
TargetService = "shttps"
ComputerDomain = "domain"
ComputerName = "andrew"
Set Computer = GetObject ("WinNT://" & ComputerDomain & "/" & ComputerNaitel ".computer")
Set Secvice = Computer.GetObject("service", TargetService)
 
 
Service.StartType = 4
Service.Setinfо

Всего записей: 345 | Зарегистр. 12-11-2002 | Отправлено: 08:47 29-07-2003
ooptimum



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
abasov

Цитата:
ComputerNaitel ".computer")

Амперсанд не пропустил перед кавычкой?


----------
Голосуем за наших людей.
Номер раз.
Номер два.

Всего записей: 2898 | Зарегистр. 30-05-2002 | Отправлено: 13:06 29-07-2003
abasov



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Работает таким макаром:
 
Dim Computer
Dim ComputerName
Dim Service
Dim TargetService
TargetService = "wuauserv"
ComputerName = "КАК УКАЗАТЬ ЛОКАЛЬНУЮ МАШИНУ???!!!"
Set Computer = GetObject("WinNT://" & ComputerName & Computer)
Set Service = Computer.GetObject("service", TargetService)                                          
Service.StartType =4
Service.SetInfo  
 
 
 
ooptimum спасибо разобрался

Всего записей: 345 | Зарегистр. 12-11-2002 | Отправлено: 13:49 29-07-2003 | Исправлено: abasov, 13:39 30-07-2003
ooptimum



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
abasov

Цитата:
"КАК УКАЗАТЬ ЛОКАЛЬНУЮ МАШИНУ???!!!"

Кричать вовсе не обязательно. Какое имя имеет любой текущий фолдер? Правильно, это имя -- точка. Точно так же и здесь, текущий компьютер доступен через имя "точка". Т.е. такое имя: "WinNT://.".


----------
Голосуем за наших людей.
Номер раз.
Номер два.

Всего записей: 2898 | Зарегистр. 30-05-2002 | Отправлено: 12:16 30-07-2003 | Исправлено: ooptimum, 12:17 30-07-2003
counter



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, кто сталкивался.
Хочу, чтобы при выключении сервера 2К мне приходил SMS
Для этого задействовал shutdown скрипт, из VBS вызываю внешнюю прогу, но она не успевает выполниться (или блокируется) до выключения сервака. В стартап этот же скрипт работает на ура

Всего записей: 63 | Зарегистр. 29-04-2003 | Отправлено: 09:44 01-08-2003
skylined

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Народ,не подскажете а где мона какую-никакую доку надыбать по WMI Scripting?

Всего записей: 294 | Зарегистр. 27-06-2003 | Отправлено: 04:56 04-08-2003
Mad_Admin



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пролетало тут....
 

Цитата:
Если диск, на котором создается общий ресурс, отформатирован под NTFS, то я бы разграничивал доступ на уровне NTFS, а не на уровне ресурса -- такая схема намного гибче. В этом случае как раз понадобятся [x]cacls, for, etc., как было замечено коллегой merlkerry. Если же надо разграничивать доступ именно на уровне ресурса, то даже не знаю... Что-то я ничего такого не встречал, чем бы в батнике можно было воспользоваться.  

 
Есть такая весчь, от самого Майкрософта
rmtshare
Поищите по Гуглю, если не найдёте - в ПМ.

Всего записей: 29 | Зарегистр. 09-01-2003 | Отправлено: 14:55 05-08-2003
Surgut



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mad_Admin, воспользовался твоим советом - работает. Спасибо.

Всего записей: 278 | Зарегистр. 17-02-2003 | Отправлено: 08:28 06-08-2003
kibkalo



Убью Билла
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mad_Admin - действительно интересный совет. полностью ответил на мой вопрос с предыдущей страницы

Всего записей: 2342 | Зарегистр. 10-04-2002 | Отправлено: 08:53 06-08-2003
Mad_Admin



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На здоровье.
Самое интересное получается если вышеуказанную тулзу использовать с JScript (или VBScript, кому что удобней), скрывать окна выполнения и т.д.
Рулез!

Всего записей: 29 | Зарегистр. 09-01-2003 | Отправлено: 10:53 06-08-2003
creeper



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте ALL
Не подскажете - как-то можно автоматизировать смену пароля, скажем 200-ам юзверям? Есть домен, сервер Win2k, имена у юзверей цифровые от 000 до 200, находятся в OU.

----------
Пока выбьешься в люди, растеряешь все человеческое.

Всего записей: 782 | Зарегистр. 29-07-2002 | Отправлено: 11:58 06-09-2003
pe3yc



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
creeper
VBS

Всего записей: 2434 | Зарегистр. 25-07-2001 | Отправлено: 17:21 06-09-2003
creeper



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
pe3yc
А можно какой-нить примерчик, плз.

----------
Пока выбьешься в люди, растеряешь все человеческое.

Всего записей: 782 | Зарегистр. 29-07-2002 | Отправлено: 10:27 08-09-2003
kibkalo



Убью Билла
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
что-то типа
 
On Error Resume Next
 
Set objGroup = GetObject("LDAP://cn=Users,ou=Groups,dc=domain,dc=local")
For each objMember in objGroup.Members
objMember.SetPassword "password"
Next
 
 
меняет пароль всем юзерам заданной группы.
Можно чуток поменять для OU - но обычно проще юзеров в спец группу добавить, провести операцию и группу убить, чем таскать их по разным OU

Всего записей: 2342 | Зарегистр. 10-04-2002 | Отправлено: 20:11 08-09-2003
creeper



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
kibkalo
Спасибо! Завтра попробую...

----------
Пока выбьешься в люди, растеряешь все человеческое.

Всего записей: 782 | Зарегистр. 29-07-2002 | Отправлено: 21:37 08-09-2003
ShahrayOleg



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите если не тяжело. Необходимо написать скрипт. Каждый день формируются файлы вида имя_дата_время (tmp20030930_1800). Файлы формируются 3 разы на день (в 8.00, 14.00, 20.00). Необходимо написаит скрипт, который будет архивировать файлы с помощью WinRar. Архивировать надо всего один раз в день и желательно последний (например архивировать надо 20.00 а если его нет то 14.00). Как это можно сделать?  

Всего записей: 312 | Зарегистр. 16-08-2002 | Отправлено: 17:51 05-10-2003
   

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


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru