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

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

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста, ни как не могу найти куда прописать в реестре, чтобы при создании нового пользователя, раскладка клавиатуры начиналась с ENG и клавиши переключения Ctrl+Shift, также неплохо бы установки прокси, без всяких визардов для настройки Internet Explorer, и мастеров обучения...  
 
заранеее благодарен

Всего записей: 205 | Зарегистр. 29-08-2004 | Отправлено: 20:51 29-08-2004
volkanin

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
JohnRD
 
В какой операционной системе это всё нужно сделать? Подозреваю, что 2000/XP.
 
При локальном входе нового пользователя в его профиль копируется всё, что находится в профиле по умолчанию (обычно c:\Document and Settings\Default User), в том числе и ветка реестра HKEY_CURRENT_USER (файл ntuser.dat).
Я, прежде чем отдавать кому-то настроенный компьютер, обычно копирую свой "хороший" профиль в этот профиль по умолчанию; все новые пользователи автоматически получают "правильные" настройки всех программ.
 
Если подготовить профиль по умолчанию по какой-то причине нельзя, то делаем следующее.
Загружаем regedit.exe (regedt32.exe в 2000), встаём на раздел HKEY_USER, выбираем File -> Load Hive, выбираем из профиля по умолчанию файл ntuser.dat и подключаем его в какую-нибудь произвольную (например, temp) ветку раздела HKU.
Правим подключенный кусок реестра по образу и подобию:

Код:
 
REGEDIT4
 
[HKEY_CURRENT_USER\Keyboard Layout]
 
[HKEY_CURRENT_USER\Keyboard Layout\Preload]
"1"="00000409"
"2"="00000419"
 
[HKEY_CURRENT_USER\Keyboard Layout\Toggle]
"Hotkey"="2"
"Language Hotkey"="2"
"Layout Hotkey"="1"
 

потом отключаем (Unload Hive). Как это всё по-русски будет, смотреть лениво.
 
А про реестр можно почитать, например, вот тут:
http://www.oszone.net/windows/registry/windows/index.shtml
http://unattended.oszone.net/registry.shtml
 
Пишите, ежели что.

Всего записей: 161 | Зарегистр. 05-06-2003 | Отправлено: 21:36 29-08-2004
arc



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Кто-нибудь знает как сделать это? _http://www.msfn.org/board/index.php?showtopic=26587&st=0&#entry184023
Выставить аттрибут индексирования у файлов
Знатоки VBScript, отзовитесь!

Всего записей: 647 | Зарегистр. 27-03-2004 | Отправлено: 15:27 06-09-2004
Raredemon



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

Цитата:
также неплохо бы установки прокси, без всяких визардов для настройки Internet Explorer, и мастеров обучения...  

Это можно указать в групповых политиках домена, если есть домен а также много еще чего. но это уже другая тема.

----------
Designed for Windows XP.
Powered by Gentoo!
Бесполезно рассказывать о высоком моральном облике коллектива человеку, имеющему доступ к логу прокси....

Всего записей: 1787 | Зарегистр. 03-09-2003 | Отправлено: 15:43 06-09-2004
arc



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
нашел ответ на свой вопрос
Цитата:
Выставить аттрибут индексирования у файлов

http://forum.ru-board.com/topic.cgi?forum=62&topic=0012&start=300#lt

Всего записей: 647 | Зарегистр. 27-03-2004 | Отправлено: 08:16 08-09-2004
K2D



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогайте ребята есть скрипт
****1.vbs*****
 
Option Explicit
 
Dim CompName, i
Dim GroupName, oGroup
Dim UserName, oUser
Dim DomainName
 
 
 
CompName = "MyComp"
GroupName = i
UserName = "YVV"
DomainName = "domain.com"
 
 
If i="Administrators" Then  
Set oGroup = GetObject("WinNT://" & CompName & "/" & GroupName & ",group")
Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user")
oGroup.Add(oUser.AdsPath)
oGroup.SetInfo
Elseif i="Администратор" Then
Set oGroup = GetObject("WinNT://" & CompName & "/" & GroupName & ",group")
Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user")
oGroup.Add(oUser.AdsPath)
oGroup.SetInfo
End If
 
т.е. есть компы с русским и англицким виндами 2000 нужно чтобы скрипт заносил пользователя в группу администраторов но мог определить русская или англицкая группа т.е. делал выбор чето я тут попытался но он неработает

Всего записей: 42 | Зарегистр. 08-09-2004 | Отправлено: 10:12 08-09-2004
K2D



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

Всего записей: 42 | Зарегистр. 08-09-2004 | Отправлено: 08:29 10-09-2004
avital

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

Цитата:
If i="AdministratorS" Then  


Цитата:
Elseif i="Администратор" Then


Всего записей: 296 | Зарегистр. 30-10-2003 | Отправлено: 09:29 10-09-2004 | Исправлено: avital, 09:30 10-09-2004
K2D



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Все разобрался
 
Option Explicit  
 
Dim CompName
Dim GroupName, oGroup  
Dim UserName, oUser  
Dim DomainName  
 
CompName = "MyComp"  
GroupName = "Administrators"  
GroupName = "Администраторы"
UserName = "имя"  
DomainName = "домен.com"  
 
If GroupName = "Administrators" Then  
Set oGroup = GetObject("WinNT://" & CompName & "/" & GroupName & ",group")  
Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user")  
oGroup.Add(oUser.AdsPath)  
oGroup.SetInfo  
Set oGroup = Nothing
Set oUser = Nothing
Elseif GroupName = "Администраторы" Then  
Set oGroup = GetObject("WinNT://" & CompName & "/" & GroupName & ",group")  
Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user")  
oGroup.Add(oUser.AdsPath)  
oGroup.SetInfo  
Set oGroup = Nothing
Set oUser = Nothing
End If

Всего записей: 42 | Зарегистр. 08-09-2004 | Отправлено: 11:19 10-09-2004
AlexSSS

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
каким образом можно закриптовать батник или любой другой скриптовый файл, оставив его исполняемым (т.е. bat или exe или что-то подобное).
В скрипт нужно встроить запуск проги под локальным админом через RUNAS, однако и имя и пароль локального админа светить нельзя

Всего записей: 747 | Зарегистр. 26-06-2004 | Отправлено: 18:04 10-09-2004
Smitis



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

Цитата:
каким образом можно закриптовать батник или любой другой скриптовый файл, оставив его исполняемым (т.е. bat или exe или что-то подобное).  
В скрипт нужно встроить запуск проги под локальным админом через RUNAS, однако и имя и пароль локального админа светить нельзя

 
WSH поддерживает криптование (файлы JS и VBS превращаются в JSE и VBE).
4NT поддерживает "компиляцию" в нечто плохочитаемое

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 20:15 14-09-2004
LeniVetc



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
WSH это во многих случаях (почти во всех) очень приятно.
Правда не весгда Я уже устал придумывать и искать, как можно с помощью WSH забрать файл с адреса http://server/folder/file и положить его на локальный диск. Может кто-нить подскажет? Заранее спасибо.

Всего записей: 1 | Зарегистр. 15-09-2004 | Отправлено: 17:14 15-09-2004
Smitis



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

Цитата:
как можно с помощью WSH забрать файл с адреса http://server/folder/file  и положить его на локальный диск.

Самый простой способ - запустив внешнюю утилиту, поддерживающую ком. строку. Я для этих целей использую wget. Хотя сетевые черви это делают как-то через ActiveX

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 19:04 15-09-2004 | Исправлено: Smitis, 19:07 15-09-2004
volkanin

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

Цитата:
как можно с помощью WSH забрать файл с адреса http://server/folder/file  и положить его на локальный диск

WinHTTP - http://msdn.microsoft.com/library/en-us/winhttp/http/winhttp_start_page.asp
вот пример оттуда:

Код:
 
function getText(strURL){
    var strResult;
    try{
        var WinHttpReq = new ActiveXObject("WinHttp.WinHttpRequest.5");
        var temp = WinHttpReq.Open("GET", strURL, false);
        WinHttpReq.Send();
        strResult = WinHttpReq.ResponseText;
    }
    catch (objError){
        strResult = objError + "\n"
        strResult += "WinHTTP returned error: " + (objError.number & 0xFFFF).toString() + "\n\n";
        strResult += objError.description;
    }
    return strResult;
}
WScript.Echo(getText("http://www.microsoft.com/default.htm"));
 

Всего записей: 161 | Зарегистр. 05-06-2003 | Отправлено: 21:46 17-09-2004
Jovanotti



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AlexSSS
Smitis
Зашифровать то можно  
но и расшифровать легко получается
http://forum.ru-board.com/topic.cgi?forum=55&topic=2192#1
http://forum.ru-board.com/topic.cgi?forum=55&topic=3922#1
http://www.klaphek.nl/nr6/scrdec.html

Всего записей: 718 | Зарегистр. 22-12-2002 | Отправлено: 14:21 18-09-2004 | Исправлено: Jovanotti, 14:22 18-09-2004
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
volkanin
ЗдОрово! Только не дают с мелкософта WinHTTP скачать

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 20:00 20-09-2004
merlkerry

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

Цитата:
ЗдОрово! Только не дают с мелкософта WinHTTP скачать

 
для всех более менее новых OCей версия 5.1 катит на ура  
 

Код:
var WinHttpReq = new ActiveXObject("WinHttp.WinHttpRequest.5.1");  


----------
Вокруг одни враги.
Я испытываю естественный скептицизм по поводу чистоты человеческих намерений.

Всего записей: 1521 | Зарегистр. 16-09-2002 | Отправлено: 13:56 21-09-2004
Smitis



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

Цитата:
для всех более менее новых OCей версия 5.1 катит на ура

Думаю что катит. Но скачать где? На мелкософте нет ссылок даже на версию 5.0!

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 22:28 21-09-2004
distance

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
volkanin
А можно связкой WSH + WinHTTP забрать бинарный файл?
то есть winhttp его забирает, но никак не получается записать на диск...
похоже, wsh работает только с текстовыми файлами...

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 12:43 22-09-2004
K2D



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто нибудь знает как сделать что бы можно было пользователя задавать в параметрах скрипта (logon) т.е. необходим параметр на UserName
 
Option Explicit  
   
Dim CompName  
Dim GroupName, oGroup  
Dim UserName, oUser  
Dim DomainName  
   
CompName = "MyComp"  
GroupName = "Administrators"  
GroupName = "Администраторы"  
UserName = "имя"  
DomainName = "домен.com"  
   
If GroupName = "Administrators" Then    
Set oGroup = GetObject("WinNT://" & CompName & "/" & GroupName & ",group")  
Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user")  
oGroup.Add(oUser.AdsPath)  
oGroup.SetInfo  
Set oGroup = Nothing  
Set oUser = Nothing  
Elseif GroupName = "Администраторы" Then  
Set oGroup = GetObject("WinNT://" & CompName & "/" & GroupName & ",group")  
Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user")  
oGroup.Add(oUser.AdsPath)  
oGroup.SetInfo  
Set oGroup = Nothing  
Set oUser = Nothing  
End If

Всего записей: 42 | Зарегистр. 08-09-2004 | Отправлено: 14:51 22-09-2004
   

Страницы: 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