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

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

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Pser
служба называется server / lanmanserver
в gp comp config - windows settings - security - system services  
 
 
Добавлено:
PS: скрипт переименования я проверял на свежей вм только заведенной в домен
Всего записей: 292 | Зарегистр. 16-09-2004 | Отправлено: 12:18 11-07-2006
Pser

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
urel:
Не все так просто. Служба не отключена (галочка снята), а анинсталена (удалена). Поэтому видимо ее сначало необходимо установить.
Всего записей: 15 | Зарегистр. 05-07-2006 | Отправлено: 13:08 11-07-2006
urel

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Pser
ну эт очень странно - только если снесил ветку  
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver
альтернативный вариант импорт ветки с рабочей машины =)
svhost уж наверно не анинстален
Всего записей: 292 | Зарегистр. 16-09-2004 | Отправлено: 13:17 11-07-2006
Sk1f



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
urel, Не то слово редкие. Я бы сказал одна другой краше. И подход к себе требуют индивидуальный
Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 15:18 11-07-2006
Pser

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
скажите плиз кто разбирается в VBS как можно определить размер массива в процессе работы скрипта (т.е. в екселе в макросе вызываем инпутбокс и вводим туда число, например 150, так вот нужно что бы далее по программе шло определние массива). Можно ли это как нибудь реализовать?
Всего записей: 15 | Зарегистр. 05-07-2006 | Отправлено: 10:50 13-07-2006
Smitis



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Pser
RTFM
dim a()
redim a(10)
l = 150
redim preserve a(l)
Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 00:59 15-07-2006 | Исправлено: Smitis, 01:00 15-07-2006
kaaaa

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый День!
Помогите скриптом плиз.
Есть 300 пользователей, есть файлик txt или ексель где они все забиты (OU;Имя пользователя;Логон имя;Пароль;адрес почты).
так вот если ли какой-нибудь скрипт, чтобы он читал мой файлик и добавлял оттуда юзеров.
Всего записей: 28 | Зарегистр. 20-10-2005 | Отправлено: 10:19 19-07-2006
Sk1f



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

Цитата:
 
 Set RootDSE = GetObject("LDAP://RootDSE")
Set DefaultDomain = GetObject("LDAP://" & RootDSE.Get("DefaultNamingContext"))
WScript.Echo DefaultDomain.distinguishedName
WScript.Echo VbCrLf
 
On Error Resume Next  
 
'----------------------------------------------------------------------------------'
'                          Text of Program
'----------------------------------------------------------------------------------'
path_file="c:\************************.xls"
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open (path_file)_
 
intRow = 2 ' [b]начальная строчка в excel[b]  
 
Do Until objExcel.Cells(intRow,1).Value = ""
    Set objOU = GetObject("LDAP://" & "ou=Test," & RootDSE.Get("DefaultNamingContext"))
    Set objUser = objOU.Create _
        ("User", "cn=" & objExcel.Cells(intRow, ).Value)
     
    objUser.SetPassword "" & objExcel.Cells(intRow, ).Value
    objUser.sAMAccountName = objExcel.Cells(intRow, ).Value
    'objUser.GivenName = objExcel.Cells(intRow, ).Value
    'objUser.SN = objExcel.Cells(intRow, ).Value
    objUser.AccountDisabled = False
    objUser.SetInfo
    intRow = intRow + 1
Loop
objExcel.Quit
 


Цитата:
 
objExcel.Cells(intRow, ).Value - Cells (строка, столбец)
 

 
параметры которые тебе нужны ищи в msdn - "object user"
Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 14:08 19-07-2006 | Исправлено: Sk1f, 14:13 19-07-2006
kaaaa

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sk1f
Спасибо, попробую.
Всего записей: 28 | Зарегистр. 20-10-2005 | Отправлено: 14:37 19-07-2006
Sk1f



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
kaaa, могу доработать до твоих нужд, если что непонятно.
Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 16:10 19-07-2006 | Исправлено: Sk1f, 16:14 19-07-2006
kaaaa

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sk1f
Если не трудно. Буду очень признателен.
С  objExcel.Cells(intRow, ).Value разобрался.
Запускаю скрипт, вылетает окно с dc=***,dc=***, затем пустое и все.
Ни ответа ни привета.
туда бы еще добавить: password never expires и было бы здорово.
 
Еще вот непонятно, что нужно вписывать в эти кавычки:
 Do Until objExcel.Cells(intRow,1).Value = ""
Всего записей: 28 | Зарегистр. 20-10-2005 | Отправлено: 17:12 19-07-2006 | Исправлено: kaaaa, 18:54 19-07-2006
kekeke

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
решил я написать скрипт для cpu detection:

Цитата:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
    Select Case objItem.Family
        Case 13 strCPU = "Pentium II"
        Case 14 strCPU = "Pentium"
        Case 15 strCPU = "Celeron"
        Case 16 strCPU = "Pentium II Xeon"
        Case 17 strCPU = "Pentium III"
        Case 28 strCPU = "Athlon"
        Case 29 strCPU = "Duron"
        Case 31 strCPU = "K6"
        Case 130 strCPU = "Itanium"
        Case 131 strCPU = "Athlon"
        Case 132 strCPU = "Opteron"
        Case 176 strCPU = "Pentium III Xeon"
        Case 177 strCPU = "Pentium III"
        Case 178 strCPU = "Pentium 4"
        Case 179 strCPU = "Xeon"
        Case 179 strCPU = "Xeon MP"
        Case 182 strCPU = "AthlonXP"
        Case 183 strCPU = "AthlonMP"
        Case 184 strCPU = "Itanium 2"
        Case 185
            If objItem.Manufacturer = "GenuineIntel" Then
                strCPU = "Pentium M"
            Else
                strCPU = "Opteron"
            End If
        Case 190 strCPU = "K7"
        Case Else
            If Left(objItem.Name, 18) = "AMD Athlon(tm) 64 " Then
                strCPU = "Athlon64"
            ElseIf Left(objItem.Name, 32) = "Genuine Intel(R) CPU           T" Then
                If Mid(objItem.Name, 33, 1) = "1" Then
                    strCPU = "Core Solo"
                Else
                    strCPU = "Core Duo"
                End If
            Else
                strCPU = "Unknown " & objItem.Family
            End If
    End Select
    WScript.Echo strCPU & Chr(10) & objItem.Name
Next
 

цифры взяты отсюда
на Athlon 64 говорит "Unknown" (family=2, в док-ции тоже unknown), а на Opteron сказало "Pentium M"
погуглил, но скрипта для определения типа процессора так и не нашёл. неужели придётся ручками строку Name анализировать? может, видел кто-то подобный рабочий скрипт? (:
 
update: выложил обновлённую версию, понимающую Opteron и Core, критикуйте. и проверьте плз кто-то на Pentium M
Всего записей: 1 | Зарегистр. 01-02-2006 | Отправлено: 23:15 19-07-2006 | Исправлено: kekeke, 23:57 19-07-2006
svkov

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, как можно прописать на локальные рабочие станции в группу админов или опытных пользователей определенных юзверей, взятых из AD. Задача, в целом, сводится к тому, чтобы при загрузке компа в локальные админы прописать хозяев компьютеров при совпадении логина юзеа и имени компа (компы именуются по фамилиям юзеров).
Всего записей: 103 | Зарегистр. 03-02-2006 | Отправлено: 23:36 19-07-2006
ali1977



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите пжалста какой прогой скрипт писать (обязательно с мануалом)))  
ситуация такова -имеется база данных файрберд 1.5 (помощник к ней интербейз)  
база SGM.GDB в ней клиенты напартачили немного -  там в программе не удаляются записи которые занесены неверно - разработчик говорит что надо писать скрипты и т.д. даже прогу прилагают ScriptRunnerSGM а как пользоватся не говорят )))- боятся видимо чегото
Всего записей: 606 | Зарегистр. 15-07-2006 | Отправлено: 00:19 20-07-2006
Sk1f



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
kaaaa
 
Как у тебя excel файл построен? Пример, какой-нибудь напиши. Что в какой ячейке находится?
 
 
Do Until objExcel.Cells(intRow,1).Value = "" - это условие выполнения. Т.е. цикл работает до тех пор, пока он не встретит пустую строку.  
 
 
Добавлено:
ali1977 я програмлю на PrimalScript. И всем советую, классная программа.  
Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 09:53 20-07-2006 | Исправлено: Sk1f, 10:45 20-07-2006
ali1977



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

Sk1f

Цитата:
 я програмлю на PrimalScript.

я вот нашел  данную прогу версия 3.1.437 но хотел бы перед скачиванием  узнать- а инструкция к применению там есть на русском языке)))?
Всего записей: 606 | Зарегистр. 15-07-2006 | Отправлено: 10:54 20-07-2006
Sk1f



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ali1977 можешь скинуть мне email свой или постучаться в icq - 274411239. Я тебе пару хороших файлов пришлю.
 
 
 
urel, добрый день. Есть у меня один вопрос к тебе. Я вот никак не могу разобраться в принципе, как разобраться в работе с **.txt файлами
В качестве примера. Допустим у меня есть файл (блокнот) в котором информация:

Цитата:
 
A
B
C
D
 

1. Мне нужно считать каждую из строк и потом работать с ними. Ну например, сравнить с строкой E (этой строки в файле).
2. Или полученные строки использовать в каком-то действии, например это будут уже не строки, а цифры и считав текстовый файл, сделать такое действие - A + B +D - C.  
 
Очень прошу, напиши что знаешь
 
 
 
 
Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 11:52 20-07-2006 | Исправлено: Sk1f, 12:48 20-07-2006
kaaaa

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sk1f
Шапка такая:
OU |       CN        |SAM Account name|Password|First Name|Last Name|          Mail        |
Значения:
test|Иванов Иван|        ivanov          | 123456  |    Иван    |  Иванов   | ivanov@mail.ru|
Всего записей: 28 | Зарегистр. 20-10-2005 | Отправлено: 12:29 20-07-2006
FreemanRU



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

Цитата:
1. Мне нужно считать каждую из строк и потом работать с ними. Ну например, сравнить с строкой E (этой строки в файле).  
2. Или полученные строки использовать в каком-то действии, например это будут уже не строки, а цифры и считав текстовый файл, сделать такое действие - A + B +D - C.  

На скрипте или cmd это надо сделать?
если первое, то в Script Center много всего написано про это.
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

----------
Если не получается с первого раза - прочти инструкцию. (с)
"Откуда нам знать, что такое война, если мы не знаем мира..."(с)
Записки
Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 13:30 20-07-2006
Sk1f



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FreemanRU, на скрипте. Угу именно эти примеры и смотрю только не понятно нифига
 
 
Добавлено:
FreemanRU, хотел бы именно пример, которые решает мои предложенные задачи. А то пока смотрю в книгу, а вижу сам знаешь что
Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 14:07 20-07-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