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

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



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
До сих пор бьюсь над задачей: нужно удалить из некоторой группы  на локальном компе локальных пользователей, а доменных не трогатью Проблема еще может остложниться тем что там могут быть пользователи локальный и доменный с одинаковыми именами, например Anton и AD\Anton.
Может кто нибудь помочь?

Всего записей: 227 | Зарегистр. 30-01-2006 | Отправлено: 12:58 19-05-2006
Jovanotti



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
listadm
Если VBS      умеет  регулярные   выражения  
то   примерно  так:

Код:
s/^.*$//

т.е.  замена символов  новой строки на ничего

Всего записей: 718 | Зарегистр. 22-12-2002 | Отправлено: 19:23 19-05-2006
serstr

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пппллззз...
В Exel есть такой вот кусок:
 
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.provider = "ADsDSOObject"
    objConnection.Open ("Active Directory Provider")
   
    CommandText = "Select cn, name, Description, distinguishedName, MemberOf, employeeID, sAMAccountName"
    CommandText = CommandText + " from 'LDAP://DC=bubsw,DC=com'"
    CommandText = CommandText + " where objectClass='person' and objectClass<>'computer'"
    CommandText = CommandText + " ORDER BY cn"
   
    Set objRecordset = CreateObject("ADODB.Recordset")
    objRecordset.Open CommandText, objConnection
 
это запрос в Ад на получения следующей инфы: cn, name, Description, distinguishedName, MemberOf, employeeID, sAMAccountName.  Вопрос состоит в следующем, где можно посмотреть как описываются остальные данные для запроса из properties. Вот я хочу также вытащить инфу о Home folder и Profile Path и возможно еще несколько жанных, как их можно добавить в текущий запрос? и не подскажите где можно почитать описания этих завпросов?  
 
 
=========================================
с Home folder и Profile Path разобрался сам, вопрос теперь в другом.  
Как из Exel создать юзера в АД используя инфу из Exel-листа. Допустим в каждой строке инфа о пользоватиле: cn, name, Description, distinguishedName, MemberOf, employeeID, sAMAccountName, profilePath, homeDirectory.
 

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 11:54 22-05-2006 | Исправлено: serstr, 12:05 22-05-2006
FreemanRU



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

Цитата:
как описываются остальные данные  

Platform SDK: Active Directory Schema - Parameters

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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 12:20 22-05-2006
serstr

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FreemanRU  
Спасибо! Очень полезная ссылка!!!
 
 
 
А ктонить может помоч с созданием юзера в АД по средствам Exel и VBA...

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 12:26 22-05-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
serstr
Посмотри пример:
Create a User Account and Add it to a Group and an OU

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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 12:28 22-05-2006
serstr

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

Цитата:
Посмотри пример:  
Create a User Account and Add it to a Group and an OU

 
Так это же не VBA. Или в данном случае если тоже писать как макрос Exel, синтаксис будет идентичен? Заисключением того, что информацию буду брать из соответсвующих ячеик. Так?

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 12:34 22-05-2006
FreemanRU



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

Цитата:
Или в данном случае если тоже писать как макрос Exel, синтаксис будет идентичен? Заисключением того, что информацию буду брать из соответсвующих ячеик. Так?

Именно. Синтаксис VBA и VBS на 90% идентичен.

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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 13:16 22-05-2006
serstr

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да все получилось! Большое спасибо за совет.
 
В догонку еще такой вопросик. Как создать бинарный ключ со значением: 44,00,69,00,73,00,63,00,6c,00,61,00,69,00,6d,00,65,00,72,00,00,00  
Это записано слово Disclaimer  
Вот такая команда не прокатывает:
WshShell.RegWrite "HKCU\MyRegKey\New Signature", _
"44,00,69,00,73,00,63,00,6c,00,61,00,69,00,6d,00,65,00,72,00,00,00", "REG_BINARY"
 
Подскажите как правильно

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 17:51 22-05-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
serstr
Могу только показать кусочек примера из MSDN:

Код:
 
....
WshShell.Reg "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
....
 

 
В RegRead есть строка:

Цитата:
 
REG_BINARY A binary value A VBArray of integers  
 

Соответсвенно предлагаю создать массив и передать его в кач-ве параметра.

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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 18:10 22-05-2006 | Исправлено: FreemanRU, 18:11 22-05-2006
serstr

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FreemanRU
Не совсем тебя понял. Как я смогу передать весь массив(причем состоящий не только из цифр но и букв) в одной записи. Это же не может выглядеть вот так:
WshShell.Reg "HKCU\Software\ACME\FortuneTeller\", Array(), "REG_BINARY"
 
И еще вопрос: Массив задавать каким образом?
Array(1) = 44
Array(2) = 69
Array(3) = 73
....
Array(5) = "4c"
....
Так?
Сорри за такие глуппые вопросы.

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 09:13 23-05-2006
FreemanRU



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


Цитата:
состоящий не только из цифр но и букв

Это 16ричное представление чисел
4с = 76 н-р.
В VBS число в 16ричное представлении записывает как &hчисло, н-р &h4c

Код:
 
WScript.Echo &h4c
 

покажет 76.
 
Массив можно задать прямо во время выполнения:

Код:
WshShell.Reg "HKCU\Software\ACME\FortuneTeller\", (&h44,0,&h69,0,&h73,0,&h63,0,&h6c,0,&h61,0,&h69,0,&h6d,0,&h65,0,&h72,0,0,0  ), "REG_BINARY"  



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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 11:18 23-05-2006
serstr

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

Цитата:
Код:WshShell.Reg "HKCU\Software\ACME\FortuneTeller\", (&h44,0,&h69,0,&h73,0,&h63,0,&h6c,0,&h61,0,&h69,0,&h6d,0,&h65,0,&h72,0,0,0  ), "REG_BINARY"  

выдает ошибку: Char: 52
                         Error: Expected ')'
                         Code: 800A03EE
 
Вроде же все номрально....
 
 
FreemanRU
 
Насколько я понял, так массив в данном случае задовать нельзя...
 
Вопрос остается открытым!
 
Перерыл кучу инфы из инета по этой проблеме, так ничего и не нашел  
Оказывается создавать длиный бинарный ключ - это не такая уж тревиальная задача, которую я досихпор не смог решить (
Нужен HELP!!!!

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 11:45 23-05-2006 | Исправлено: serstr, 10:25 24-05-2006
serstr

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем спасибо!
Решил проблему вот так:
 
set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKCU\MyRegKey\", ""
strComputer = "."
Const HKEY_CURRENT_USER = &H80000001  
Set objRegProvider = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
regPath = "MyRegKey"
regValueName = "New Signature"
binValueData  = Array(&H44, &H0, &H69, &H0, &H73, &H0, &H63, &H0, &H6C, &H0, &H61, &H0, &H69, &H0, &H6D, &H0, &H65, &H0, &H72, &H0, &H0, &H0)
objRegProvider.SetBinaryValue HKEY_CURRENT_USER, regPath, regValueName, binValueData

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 11:31 24-05-2006 | Исправлено: serstr, 11:31 24-05-2006
serstr

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем Доброго времини суток!
 
В процессе работы возникла вот такая проблемма.
Как по средствам VBS вытащить информацию о том какой Mailbox Store у юзера записан в АД! Это параметр Exchange сервера. Там нужно построить запрос через CDOEXM объект.
Сначало создать объект: Set oDB = CreateObject("CDOEXM.MailboxStoreDB")  
 
Только вот как дальше формировать запрос? и Как организовать чтобы он пробегал по все юзерам?

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 16:42 25-05-2006 | Исправлено: serstr, 17:25 25-05-2006
urel

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
serstr
 
есть атрибут у в свойствах пользователя homeMDB - он указывает на стор

Всего записей: 292 | Зарегистр. 16-09-2004 | Отправлено: 19:59 25-05-2006
serstr

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

Цитата:
есть атрибут у в свойствах пользователя homeMDB - он указывает на стор

 
А можно об этом чуть поподробнее...
Что за атрибут? как по средствам VBS дойти до homeMDB?

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 08:54 26-05-2006 | Исправлено: serstr, 09:05 26-05-2006
niichavo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Человеки!
Может знает кто-нить как с помощью скрипта отследить то, что записывается на USB-накопители, т.е. флэшки, а также на floppy и CD? Я имею в виду файлы, папки, включая их пути. С сидюком, вроде проще. Нужно, как я понимаю, следить за папкой "C:\Documents and Settings\Некий Юзверь\Local Settings\Application Data\Microsoft\CD Burning". Или я не прав? ...А вот как следить за тем, что записывается на floppy и флэшки?..
 
И ещё. Как отрубить запись (только!) на floppy? Как отрубить весь флопак я знаю. Тему по адресу я читал, но там ничего из того, что мне нужно не нашёл.

Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 10:18 26-05-2006
serstr

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

Цитата:
urel  
 
Цитата:есть атрибут у в свойствах пользователя homeMDB - он указывает на стор  
 
 
А можно об этом чуть поподробнее...  
Что за атрибут? как по средствам VBS дойти до homeMDB?

 
Разобрался сам спасибо!

Всего записей: 32 | Зарегистр. 26-04-2006 | Отправлено: 11:11 26-05-2006
listadm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
уже писал может кто то поможет  
******************************************  
Помогите решить задачу:    
есть текстовый файл такового содержания:    
*********************    
ХХХХХХХХХХХХХХХХХХХХХ    
ХХХХХХХХХХХХХХХ    
!!!!!!!!!!!!!!ХХХХХХХХХХХХ    
   
ХХХХХХХХХХХХХХХХХХХ    
ХХХХХХХХХХХХХХХХХХХХ    
************************    
   
Нужно удалить пустую строку в этом файле.  
Файл текстовый.
скажем user.txt

Всего записей: 6 | Зарегистр. 06-05-2006 | Отправлено: 14:35 26-05-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