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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
vavaka2



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
Спасибо, по описанию DirSizeCalc - это то что надо! Скачал, установил, а настроить не могу - в плагины добавился, а работать не хочет Подскажи, чо нажать?

Цитата:
В любом случае вопрос, имхо, не для этого топика.
 

подумал,что мониторить сотню папок не открывая - это и есть автоматизация администрирования

Всего записей: 105 | Зарегистр. 06-12-2003 | Отправлено: 18:12 20-02-2006 | Исправлено: vavaka2, 19:42 20-02-2006
fox84



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Хелп. Есть такая задача: 100 пользователей и для них надо изменить права на изменение своего profilePath. Ручками с помощью ADSIEdit все Ок, но это подходит для 1-2х пользователей. Как можно реализовать сие с помощью скрипта.
 
Заранее спасибо.

Всего записей: 12 | Зарегистр. 11-01-2006 | Отправлено: 07:10 21-02-2006
Nello



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

Код:
Option Explicit
On Error Resume Next
Dim objConn, objComm, objRS, objUser
Dim strBase, strFilter, strAttrs, strScope
'**********************************************************************
'Set the ADO search criteria
'**********************************************************************
strBase   = "<LDAP://dc=microsoft,dc=local>;" ' Здесь надо указать свои значения
strFilter = "(&(objectclass=user)(objectcategory=Person));"
strAttrs  = "ADsPath;"
strScope  = "Subtree"
   
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open
'**********************************************************************
'Need to enable Paging in case there are more than 1000 objects returned
'**********************************************************************
Set objComm = CreateObject("ADODB.Command")
Set objComm.ActiveConnection = objConn
objComm.CommandText = strBase & strFilter & strAttrs & strScope
objComm.Properties("Page Size") = 1000
Set objRS = objComm.Execute(  )
While not objRS.EOF
  Set objUser = GetObject( objRS.Fields.Item("ADsPath").Value )
  objUser.profilePath = "\\server\profile" ' Укажите свои значения
  objUser.SetInfo
  if Err.Number <> 0 Then
     Wscript.Echo objUser.Name & " error occurred"
     Err.Clear
  Else
     Wscript.Echo objUser.Name & " modified"
  End if
  objRS.MoveNext
Wend
 
 
Запускается под Администратором

Всего записей: 133 | Зарегистр. 23-04-2003 | Отправлено: 10:20 21-02-2006
IliaKot



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Значит так, тема была примерно такая, на OU цепляется политика которая при логоне пользователя запускает скрипт *.wsf которые в свою очередь использует функции из *.vbs скрипта, делалось для того что бы администраторы в филлиалах, коих много, заполняли свой маленький блок, и не вдавались в подробности дальнейшего процесса подключения.  
 
Функции которые доступны "администраторам" на местах это  
 
mpd "_наименование группы в AD_","_Путь к шаре(ресурсу)_","_Буква диска_"  
mpd_user "_логин пользователя в AD_","_Путь к шаре(ресурсу)_","_Буква диска_"  
 
Первая проблема возникла в связи с тем что многие группы по которым подключались диски были вложенными и пользователь не являлся их прямым членом, решилось через рекурсий, а что бы сократить время заполнялся словарь...  
 
Вторая проблема, пока не решена полностью, это Primary Group, найти её можно, и потом через рекурсию так же отработать, но беда в том что выяснение её очень долго, порядка 30-40 секунд, база AD разрослась неимоверно. Пока сделано просто, т.к. по умолканию Primary Group у всех Domain Users, то введена проверка на группу, если вместо группы ввести everyone то диск мапится по умолчанию.  
 
Общая просьба и пожелание, скрипт выкладываю конечно же для всех, всё работает, отладки теоретичести не требует. Просьба,о любых изменениях которые улучшают работу этого монстра прошу извещать, очень заинтересован, в особенности если кто найдёт способ быстро отрабатывать Primary Group на большой базе AD, более 5000 объектов.... Точно не помню...  
 
Далее предлагаю текст скрипта и блока вызова:  
 
Непосредственно скрипт

Всего записей: 2 | Зарегистр. 22-02-2006 | Отправлено: 15:54 22-02-2006 | Исправлено: IliaKot, 16:05 22-02-2006
Sish



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IliaKot
Такие длинный посты лучше под тег [more] прятать.

Всего записей: 25335 | Зарегистр. 09-06-2004 | Отправлено: 16:00 22-02-2006
adminq

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте товарищи! Вот вопросик насущный.
 
Домен. 1000 юзеров. каждому электронную почту настроить. автоматом. (тоесть прописать конкретную учетную запись в ..допустим аутлук экспресс)
 
искал искал нигде про такое нет и слуху, может глаза лучше по утрам мыть?
 
Спасибо!

Всего записей: 1 | Зарегистр. 28-02-2006 | Отправлено: 09:23 28-02-2006
DOE_JOHN

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пробую выключать удаленно комп под 2003 server.
Подробнее...
 
Срабатывает если на удаленном компе пользователь залогинен или не входил. Если пользователь вошой и комп заблокирован то не работает. Или если пользователь залогин выключить удалено не получиться?

Всего записей: 1595 | Зарегистр. 09-05-2004 | Отправлено: 13:16 02-03-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DOE_JOHN
мама родная, зачем такие сложности? shutdown /? не спасает?

----------
Если не получается с первого раза - прочти инструкцию. (с)
"Откуда нам знать, что такое война, если мы не знаем мира..."(с)
Записки

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 14:12 02-03-2006 | Исправлено: FreemanRU, 14:15 02-03-2006
pincer



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Мучался как то
Скрипт для получения SID из AD
------------------------------------------------------------------------------------  
On Error Resume Next
Dim Tmp, x, b, Sid
Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
Set objCmp = GetObject("LDAP://" & strComputerDN)
Sid = objCmp.objectSID
gSID = "S-1-5-"&Convert(16,19)&"-"&Convert(12,15)&"-"&Convert(8,11)&"-" _  
&Convert(4,7)&"-"&Convert(0,3)
Set objGroup = Nothing
 
function Convert(u,l)
Tmp = ""
  For x = UBound(Sid)-u to UBound(Sid)-l Step -1  
     b = AscB(MidB(SID, x + 1))                  
     Tmp = Tmp & Hex(b \ 16) & Hex(b And 15)  
  Next
    Convert = Clng("&H" & Tmp)    
end function
wscript.echo(gSID)

Всего записей: 10 | Зарегистр. 17-01-2006 | Отправлено: 14:25 02-03-2006
DOE_JOHN

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FreemanRU
Да как то запамятовал. 'Мы не ищем легких путей'

Всего записей: 1595 | Зарегистр. 09-05-2004 | Отправлено: 14:56 02-03-2006
Nello



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

Цитата:
Здравствуйте товарищи! Вот вопросик насущный.  
 
Домен. 1000 юзеров. каждому электронную почту настроить. автоматом. (тоесть прописать конкретную учетную запись в ..допустим аутлук экспресс)  
 
искал искал нигде про такое нет и слуху, может глаза лучше по утрам мыть?  
 
Спасибо!

Этот скрипт запускается на юзеровском компьютере. Нужны права админа этого компьютера.
В моем случае имя пользователя и почтовый алиас подставляеnся из AD
Т. е. подразуменвается, что почтовый логин юзера совпадает с samaccountname.
Outlook Express:
Подробнее...

Всего записей: 133 | Зарегистр. 23-04-2003 | Отправлено: 15:07 02-03-2006
DOE_JOHN

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Только проблема в другом. Надо выключить залоченый комп удаленно. Если он не залочен то оба способа работают.

Всего записей: 1595 | Зарегистр. 09-05-2004 | Отправлено: 15:18 02-03-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DOE_JOHN
и буквачка -f не спасает?

----------
Если не получается с первого раза - прочти инструкцию. (с)
"Откуда нам знать, что такое война, если мы не знаем мира..."(с)
Записки

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 15:25 02-03-2006
DOE_JOHN

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FreemanRU
Нет не спасает. А еще разные пользователи на компах, хотя и оба админы. И на 2003 server контроллер домена, так для опытов. И комп с которого хочу выключать тоже в домене.

Всего записей: 1595 | Зарегистр. 09-05-2004 | Отправлено: 09:04 03-03-2006 | Исправлено: DOE_JOHN, 09:08 03-03-2006
rosalin



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые All
Подскажите как скрыть запуск vbs скрипта  
В logon

----------

Всего записей: 2584 | Зарегистр. 15-04-2003 | Отправлено: 09:34 03-03-2006
Chirk

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Имеем такой скрипт, и соответственно с помощью него хотим установить Драйвер принтера, но не работает в чём проблемма не могу понять может подскажите??
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
 
Set objDriver = objWMIService.Get("Win32_PrinterDriver")
 
objDriver.Name = "hp LaserJet 1300 PCL 6"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriverPath = "C:\1300"
objInfname = "hp1300m6.inf"
intResult = objDriver.AddPrinterDriver(objDriver)

Всего записей: 32 | Зарегистр. 07-03-2006 | Отправлено: 10:43 07-03-2006
RDV1984



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hi all.
Можно ли с помошью JScript или VBScript при входе определенного пользователя запустить программу как службу ?

Всего записей: 85 | Зарегистр. 28-04-2005 | Отправлено: 21:07 07-03-2006
Uriu

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
rosalin
Если нужно что либо запустить в скрытом окне (процесс будет виден только в диспетчере задач), то вот пример, лишнее закоментируйте или удалите
 
Подробнее...
 
Добавлено:
RDV1984
 
Я до конца не разобрался, но вот так можно создать новую службу:
 
strComputer = "."
strNamespace = "Root\CIMV2"
 
Set objService = GetObject("WinMgmts:\\" & _
                                  strComputer & "\" & strNamespace)
 
' Получаем указатель на класс
Set objNewServ = objService.Get("Win32_Service")
 
iErr=objNewServ.Create("Notep","Блокнот","F:\WINDOWS\system32\Notepad.exe","16",1,"Automatic",True,Null,Null,Null,[Null],[Null])
 
WSH.Echo "Ошибка  " & iErr  
 
Служба создается (имя службы "Notep" и даже Блокнот запускается на несколько секунд, но дальше дело не идет. Видимо (это мои предположения) нужно еще что то в реестр прописать используя srvani.exe.

Всего записей: 340 | Зарегистр. 25-11-2004 | Отправлено: 08:48 08-03-2006
rosalin



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

----------

Всего записей: 2584 | Зарегистр. 15-04-2003 | Отправлено: 09:21 09-03-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Необходим инстумент командной строки для настройки безопасности в AD. Кто знает что-нить подобное?
 
Добавлено:
Сам отвечу на свой вопрос:
Здесь есть пример скрипта
 
Статья из TechNet (не из technet.microsoft.com)


----------
Если не получается с первого раза - прочти инструкцию. (с)
"Откуда нам знать, что такое война, если мы не знаем мира..."(с)
Записки

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 12:17 09-03-2006 | Исправлено: FreemanRU, 16:16 09-03-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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru