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

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

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

ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

FreemanRU



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

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


Часть 2я

Часть 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 подобный скриптовый язык с исходниками
  9. VBS2EXE - утилита для компиляции vbs и js скриптов в exe выдранная из пакета PrimalScript

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

 
Подробнее...
Создается по материалам данного топа

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

 

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 17:27 11-12-2006 | Исправлено: Smitis, 12:30 20-08-2008
4aplin



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе время суток всем! Как написать скриптик, который проверял серверы на работу сервисов??? Да так, чтобы если всё работает, никаких действий не происходит... Если упал, до посылал сообщение о его бездействии??

Всего записей: 17 | Зарегистр. 29-05-2008 | Отправлено: 11:47 06-06-2008
rosalin



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята как кэтому скрипту еще имена компьютеров приделать очень удобный скриптик

Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 14:21 06-06-2008
PIL123



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

Всего записей: 818 | Зарегистр. 25-06-2003 | Отправлено: 18:26 06-06-2008 | Исправлено: PIL123, 18:58 06-06-2008
Real Root



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
aar
Попробуй в начала скрипта поставить строку:
On Error Resume Next
 
Refugee
Скачал я VBScript obfuscator - но честно говоря он слишком сложен. Я чето так и не догнал, как им пошифровать файл. Блин, лучшеб они console application сделали без всяких выгибонов.
 
То что VBScript запечатанный MS Encoder-ом можно прочитать и дешифровать знают те, кто умеет писать VBS скрипты. Мне же нужно защитить скрипт от изменения кухарками, так, чтоб пути они потом на свои не могли поменять. Так что, если сможете помочь в пользовании утилитой от MS - буду очень признателен (хотя я вам и так очень признателен).
Впринципе, подойдет любая другая прога которая сможет скрыть код скрипта от изменения и прочтения неискушенным пользователем.
 
Спасибо

Всего записей: 1037 | Зарегистр. 13-04-2006 | Отправлено: 19:25 06-06-2008
Cyril Konst



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, а как из eventlog'а (журнала событий) получить последнее сообщение с определённым ID?

Всего записей: 634 | Зарегистр. 12-08-2003 | Отправлено: 19:38 06-06-2008 | Исправлено: Cyril Konst, 19:38 06-06-2008
Refugee

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Real Root
например, stunnix obfuscator по второй ссылке гугля
"C:\Program Files\Stunnix-VBScript-Obfuscator\bin\vbs-obfus.pl" -O wsh la.vbs  -o ola.vbs
породил следующее: Подробнее...

Всего записей: 513 | Зарегистр. 31-03-2004 | Отправлено: 00:54 07-06-2008 | Исправлено: Refugee, 01:00 07-06-2008
Real Root



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Refugee
Чето я вобще туплю.
"C:\Program Files\Stunnix-VBScript-Obfuscator\bin\vbs-obfus.pl" -O wsh la.vbs  -o ola.vbs - Это нужно в консоли набирать?
И проканает ли все это на trial версии?
 
Вобще, у меня в папке bin нету файла vbs-obfus.pl, там есть только vbs-obfus.pl. Я пытался ему подставить расширение pl, но этот тип файлов не зарегистрирован у меня в системе. Пытался связать pl файлы с perl.exe - ничего не вышло.
 
Поэтому я так и не догнал как пошифровать мой скрипт.
Еще раз обращаю внимание на то, что Stunnix VBS-Obfus version 3.6 не зарегистрированная trial версия.
 
Добавлено:
Refugee
Кажись разобрался. Вся проблема у меня в том, что у меня именно trial версия. Как оказалось, она просто заменят имена объектов на ReplacementFor_ - а такой результат я уже получал.
Вобщем пошел покупать прогу.

Всего записей: 1037 | Зарегистр. 13-04-2006 | Отправлено: 12:28 07-06-2008
Refugee

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Real Root
конечно, в консоли
vbs-obfus.pl - это переименованный vbs-obfus; можно было просто запускать perl vbs-obfus
у меня стоит ActiveState Perl
триал, судя по комментариям в файле, не имеет некоторых фишек.
 
Добавлено:
надо сделать список идентификаторов (-D file), оставить там только библиотечные и передать его обфускатору (--excludeidentsfile file)

Всего записей: 513 | Зарегистр. 31-03-2004 | Отправлено: 14:03 07-06-2008 | Исправлено: Refugee, 14:29 07-06-2008
Real Root



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Refugee
Что значит оставить только библиотечные идентификаторы? Я в VBS скриптах пока что нуль полный - так что извиняй.
Да и что-то слишком туго они мне даются. Установил ActiveState Perl 7.2 - набор с варезника. После установки ни одно из приложений пакета не стартует - говорит Perl не найден. Сейчас все антивири удалил, да и вобще все что можно (в т.ч. и VBS Obfus и сам Perl) - надо перезагружаться - потом заново попробую - надеюсь поможет.
Но, ИМХО, раз с таким запорками дело начинается, то потом проще будет. Надеюсь

Всего записей: 1037 | Зарегистр. 13-04-2006 | Отправлено: 22:07 08-06-2008
Oldster



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

Цитата:
имена компьютеров

кто за каким сидит или просто компы вытащить из AD?

----------
Ой не TCP моё IP (C) Диман

Всего записей: 1367 | Зарегистр. 08-01-2003 | Отправлено: 07:37 09-06-2008
north_crow

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
народ!
нужен скрип который бы мониторил бы DHCP на предмет появления новых адресов.
пересмотрел обе ветки этого топика но ничего ненашел

Всего записей: 172 | Зарегистр. 04-12-2002 | Отправлено: 11:55 09-06-2008
Teo



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
люди, подскажите, а как авторизоваться у LDAP провайдера?
и вообще, какие провы поддерживают авторизацию?
чет роюсь, роюсь.... без толку
пристрелите меня линком =)

Всего записей: 737 | Зарегистр. 21-04-2003 | Отправлено: 13:42 09-06-2008
aleksanchez



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Teo
Вот пример поискового запроса к AD с авторизацией
Может чем поможет

Код:
 
'Настраиваем соединение перед открытием
Set con = CreateObject("ADODB.Connection")
Set Com = CreateObject("ADODB.Command")
con.Provider = "ADsDSOObject"
'Если необходимо подключиться от имени другой учетной записи, можно
'настроить дополнительные свойства:
'con.Properties("User ID") = strDomain + "\" + strUserID
'con.Properties("Password") = strPassword
 
'Открываем соединение со службой каталогов
con.Open "Active Directory Provider"
 
'Затем настраиваем объект команды
Set Com.ActiveConnection = con
Com.CommandText = "<LDAP://DC=home,DC=local>;" & _
"(&(objectClass=user)(objectcategory=person));AdsPath, cn,sAMAccountName;subTree"
'И выполняем ее
Set rs = Com.Execute
'Затем проходим циклом по объекту Recordset и выводим нужные значения
Do While rs.EOF = False
    Wscript.Echo rs.Fields("AdsPath") & vbTab & _
        rs.Fields("cn")& vbTab & rs.Fields("sAMAccountName")
    rs.MoveNext
Loop
 
 

Всего записей: 32 | Зарегистр. 03-02-2008 | Отправлено: 14:55 09-06-2008
YNY

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

Цитата:
защитить скрипт от изменения  

да для этой цели шифрование -- эта просто супер решение )
дай права только на чтение и все ЫЫЫЫЫЫЫЫ

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 06:28 10-06-2008
voffka1984

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите пожалуйста скрипт, которым можно прописать сетевые принтеры!
чтобы можно было его добавить в GPO на пользователей и он им автоматом подрубал принтеры.

Всего записей: 213 | Зарегистр. 26-05-2008 | Отправлено: 10:01 10-06-2008
rosalin



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята подскажите какой лучше скриптик что бы при выходе из домена запускалась программа допустип spoolercleaner.exe -all и где файл spoolercleaner.exe лучше расположить.....

Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 11:07 10-06-2008
4aplin



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
помогите, пожалуйста, добить код...
 
Цитата:
@echo off
setlocal
for /f "tokens=5 delims=:" %%i in ('FINDSTR /I "Status:" log.txt') do set aaa=%%i
if NOT %aaa%==OPTIMAL (
sendmail -t < warning.mail
ECHO WARNING        %date% %TIME:~0,8%>>\\Computer\report$\alertlog.txt
) else (
ECHO OK        %date% %TIME:~0,8%>>\\Computer\report$\alertlog.txt
)
pause  
 
 
 Если процессы в системный лог пишут ошибку, тогда вызов blat(sendmail), весится на команду eventtriggers и отправляет сообщение о том, какой сервис полетел

Всего записей: 17 | Зарегистр. 29-05-2008 | Отправлено: 11:31 10-06-2008
aleksanchez



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

Код:
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\192.168.0.1\hplj1320"
 
 
где \\192.168.0.1\hplj1320 - путь до принтера

Всего записей: 32 | Зарегистр. 03-02-2008 | Отправлено: 11:36 10-06-2008
rosalin



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

Цитата:
Set WshNetwork = WScript.CreateObject("WScript.Network")  
WshNetwork.AddWindowsPrinterConnection "\\192.168.0.1\hplj1320"

 а если несколько .....
 
и можно подсказать по моему вопросику плиз  
 

Цитата:
подскажите какой лучше скриптик что бы при выходе из домена запускалась программа допустип spoolercleaner.exe -all и где файл spoolercleaner.exe лучше расположить.....


Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 12:34 10-06-2008
voffka1984

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
aleksanchez , спасибо. а как его ещё и сделать по умолчанию?!
и можно ли перед этим удалить все принтеры которые уже есть?!

Всего записей: 213 | Зарегистр. 26-05-2008 | Отправлено: 13:50 10-06-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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru