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

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



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Этап с использованием Active Directory Migration Tool, уже был пройден. При помощи неё всё учётки компов и пользователей перемещены в новый домен.  
Мне сейчас нужна утилита которой я мог бы сменить домен в который  входит компьютер пользователя. А то бегать по 500 компам и у каждого нажимать сменить домен, не очень спортивно)

Всего записей: 3 | Зарегистр. 10-08-2006 | Отправлено: 13:28 10-08-2006
Sk1f



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

Цитата:
 
Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=fabrikam,DC=com' " _
        & "Where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Set objOU = GetObject("LDAP://" & objRecordSet.Fields("Name").Value & ",dc=NA,dc=fabrikam,dc=com")
objOU.MoveHere "LDAP://" & objRecordSet.Fields("Name").Value & ",cn=Users,dc=fabrikam,dc=com", _
    vbNullString
Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
objRecordSet.MoveNext
Loop
 

 
первое выделение - из какого домена
второе выделение - в какой домен
 
Сохранить с разрешением .vbs
Запускай из cmd -> cscript "путь к скрипту"

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 13:44 10-08-2006 | Исправлено: Sk1f, 13:50 10-08-2006
MC_VARGAR



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sk1f
Спасиб!!!, сейчас буду пробовать)

Всего записей: 3 | Зарегистр. 10-08-2006 | Отправлено: 14:38 10-08-2006
AleXeyS55



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйся скрипт который перебирает все окмпы в домене и сохраняет в файл их программно-аппаратную конфигурацию, как можно более подробно. Если кто знает как такое возможно.

Всего записей: 227 | Зарегистр. 30-01-2006 | Отправлено: 16:18 10-08-2006
Sk1f



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
AleXeyS55 укажи какую именно аппаратную состовляющую ты хочешь знать?  
 
 
Добавлено:
Можно слишком много информации узнать и потом подумай как у тебя будет разрастаться такой .txt файл, если в нем будет около 50 записей только о одном компьютере. А если компьютеров до .........
 
 
Добавлено:
Мой тебе совет скачай -  
 
The Portable Script Center
 
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=B4CB2678-DAFB-4E30-B2DA-B8814FE2DA5A
Или On-line version этого
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true
 
Там есть все.
 
 

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 17:28 10-08-2006
AleXeyS55



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sk1f
Спасибо за ссылку. Места хватает в общем то, файлы будут по одному на отдельный комп. Которых совсем не до ...

Всего записей: 227 | Зарегистр. 30-01-2006 | Отправлено: 09:03 11-08-2006
Sk1f



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

Цитата:
 
Возвращает символ с конкретным номером из строки
 
function charAtTest(n){
   var str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; // Initialize variable.
   var s;                                  // Declare variable.
   s = str.charAt(n - 1);                  // Get correct character
                                           // from position n – 1.
   return(s);                              // Return character.
}
 

 
Есть ли аналоги в VBScript?

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 16:46 14-08-2006 | Исправлено: Sk1f, 10:46 18-08-2006
stroboscope

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

Кто нибудь знает, как скриптом очистить пользовательский ( custom) журнал событий?
 
пробовал при помощи win32_NTEventlogFile, но он не возвращает пользовательский лог, только стандартные ( application, system, secyrity)
 
события из лога читаются замечательно  
 
 
вот так пытался  делать:
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Backup)}!\\" & _
        strComputer & "\root\cimv2")
 
Set colLogFiles = objWMIService.ExecQuery _
    ("Select * from Win32_NTEventLogFile where LogFileName='scripts'")
 
For Each objLogfile in colLogFiles
    errBackupLog = objLogFile.BackupEventLog("c:\scripts\scripts.evt")
    If errBackupLog <> 0 Then        
        Wscript.Echo "The Application event log could not be backed up."
    Else
        objLogFile.ClearEventLog()
    End If
Next

Всего записей: 1 | Зарегистр. 21-08-2006 | Отправлено: 10:31 21-08-2006
urel

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2Sk1f
 
s="1234567890"
c=Mid(s,6,1)

Всего записей: 292 | Зарегистр. 16-09-2004 | Отправлено: 14:08 21-08-2006
Sk1f



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

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 15:50 21-08-2006
Sk1f



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Люди этот скрипт добавляет и user-ов и computer-ы в группу?  
 

Цитата:
 
Const ADS_PROPERTY_APPEND = 3
 
Set objGroup = GetObject _
    ("LDAP://cn=Atl-Users,cn=Users,dc=NA,dc=fabrikam,dc=com")
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo
 
Set objGroup = GetObject _
    ("LDAP://cn=NA-Employees,cn=Users,dc=NA,dc=fabrikam,dc=com")  
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objGroup.SetInfo
 
 

 
А то у меня ругается на строчку, когда добавляю computer в группу :

Цитата:
 
objGroup.PutEx ADS_PROPERTY_APPEND, _
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
 

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 13:51 23-08-2006 | Исправлено: Sk1f, 13:53 23-08-2006
urel

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sk1f
 
пробовал - работает, а что за ошибка?

Всего записей: 292 | Зарегистр. 16-09-2004 | Отправлено: 14:16 23-08-2006
FreemanRU



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

Цитата:
А то у меня ругается на строчку, когда добавляю computer в группу :  
 
Цитата:  
objGroup.PutEx ADS_PROPERTY_APPEND, _  
    "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")  
 

Ты надеюсь сменил cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com на свой домен?

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

Всего записей: 3796 | Зарегистр. 16-07-2004 | Отправлено: 14:24 23-08-2006
Sk1f



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FreemanRU, конечно вот мой скрипт - .

Цитата:
 
Option Explicit
 
Dim RootDSE, DefaultDomain
Dim objFSO, objTextFile, strNextLine
Dim objPath
Dim objGroup
 
Const ForReading = 1
Const ADS_PROPERTY_APPEND = 3
 
Set RootDSE = GetObject("LDAP://RootDSE")
Set DefaultDomain = GetObject("LDAP://" & RootDSE.Get("DefaultNamingContext"))
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
objPath= "C:\Documents and Settings\aleksandr\Рабочий стол\Result_DN.txt"    
' Change PATH TO FILE
 
Set objTextFile = objFSO.OpenTextFile(objPath, ForReading)
 
WScript.Echo DefaultDomain.distinguishedName
 
Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
    'Wscript.Echo(strNextLine)
    Wscript.Echo ("LDAP://CN=ComputersTest,OU='Специальные учетные записи и группы',OU='Нереплицируемые пользователи'," & DefaultDomain.distinguishedName)
 
Set objGroup = GetObject("LDAP://CN=ComputerCSP,OU=Специальные учетные записи,OU=Нереплицируемые пользоватли," & DefaultDomain.distinguishedName)
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array(strNextLine)
objGroup.SetInfo  
Loop
 

 
Ошибка на выделенной строчке.
 
В текстовом файле такие строчки:
"cn=ivanovaa,ou=test,ou=компьютеры,dc=test,dc=ru"
 
     
     
     
 
 

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 14:29 23-08-2006 | Исправлено: Sk1f, 14:31 23-08-2006
FreemanRU



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

Цитата:
Ошибка на выделенной строчке.  

Какая ошибка-то?

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

Всего записей: 3796 | Зарегистр. 16-07-2004 | Отправлено: 14:32 23-08-2006
Sk1f



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ошибку нашел, спасибо Freeman.  
 
 

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 14:38 23-08-2006 | Исправлено: Sk1f, 17:24 23-08-2006
DOE_JOHN

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Не совсем администрирование. Надо запускать циклом несколько презентаций PowerPoint. Сделал файлы pps, прописал в cmd.  Но можно или зациклить один файл, тогда остальные не идут пока из него не выйдешь. Или после показа требует нажать Esc.

Всего записей: 1595 | Зарегистр. 09-05-2004 | Отправлено: 12:03 24-08-2006
fols

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте уважаемые.
Почитывая эту ветку, наткнулся на скрипт запускающий под учеткой с правами юзера консоль с правами локального администратора.
 
set WshShell = CreateObject("WScript.Shell")  
WshShell.Run "runas /user:local\admin cmd.exe"  
WScript.Sleep 100  
WshShell.Sendkeys "password~"
 
Мне нужно чтобы в этой консоли выполнилась команда на переименование определенного типа файлов, с последующим ее закрытием.
Помогите реализовать ибо не силен в написании скриптов.

Всего записей: 6 | Зарегистр. 07-06-2006 | Отправлено: 14:20 25-08-2006
GOODmen



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите, как лучше решить такую задачу - нужно выдернуть из АД некоторые группы и их пользователей с последующим сохранением в файл в красивом виде для печати?

Всего записей: 366 | Зарегистр. 15-01-2004 | Отправлено: 07:03 28-08-2006
AlexSSS

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GOODmen
скачиваешь из шапки  
TechNet Script Center Sample Scripts ---  recomend  
 
смотришь примеры, как все вытаскивается из AD
вытаскиваешь в эксель все, что тебе надо, там же наводишь красоту

Всего записей: 747 | Зарегистр. 26-06-2004 | Отправлено: 08:29 28-08-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