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

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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
 FreemanRU,  Smitis
 
 Спасибо за наводку буду копать.
 
С новым годом !

Всего записей: 30 | Зарегистр. 29-03-2004 | Отправлено: 16:19 30-12-2005
Neoromantic



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FreemanRU
Вообще-то я только VB знаю (краем пришлось изучить немного). Можешь кинуть в каком разделе MSDN копать?

Всего записей: 1275 | Зарегистр. 15-01-2004 | Отправлено: 16:22 30-12-2005
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Neoromantic
Можно и на VB. Не столь принципиально. Идея в том, что стандартными средсвами выводится напдись на контекст экрана (dc) равным 0. При этом надпись появляется на рабочем столе.
Такие программы есть и готовые. Подробности - уже после НГ Всех с наступающим

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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 16:30 30-12-2005
IronWarrior



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FreemanRU
ну и где подробности ?. уже вроде как новый год прошол !!!

Всего записей: 1232 | Зарегистр. 02-07-2003 | Отправлено: 20:13 10-01-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
IronWarrior
Ну вот н-р как сделать скриншот на VB
http://visualbasic.ittoolbox.com/documents/popular-q-and-a/how-to-get-a-screenshot-of-the-desktop-1587
 
По аналогии можно нарисовать на рабочем столе поверх всех окон.
Для рисования линий используется LineTo, для вывода текста - DrawText или TextOut (вторая ИМХо удобнее). Описание искать тут
т.е. в итоге должно получится что-то типа вот этого:

Код:
 
Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
 
Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal
hdc As Long) As Long
 
Public Declare Function TextOut Lib "user32" (ByVal hWnd As Long, ByVal
nXStart As Integer, ByVal nYStart AS Integer, ByVal lpString As String, ByVal cbString As Integer) As Boolean
 
Dim hSrcDC As Long
Dim XCoor,YCoor, Count as Integer
Dim str As String
 
str = "Some text"
Count = Length(str)
XCoor = 100
YCoor = 10
 
Let hSrcDC = GetDC(0)
    Call TextOut(hSrcDC,XCoor,YCoor,Str,Count)
    Call ReleaseDC(0, hSrcDC)
 


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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 23:45 10-01-2006
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FreemanRU
Работает. Класс Только:
Код:
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

И любое окно этот текст затирает

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 08:58 13-01-2006
IronWarrior



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

Всего записей: 1232 | Зарегистр. 02-07-2003 | Отправлено: 09:18 13-01-2006
mozers



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

Цитата:
походу нужно постоянно перезапускать

Да. Вышеупомянутая BGInfo делает хитрее - пишет не на десктоп, а в фоновый рисунок рабочего стола (Wallpaper.bmp).

Цитата:
этот скрипт..  

Вызов API-шных функций из скрипта достаточно проблематичен. (Надо внешнюю библиотеку вешать). Это - VB код. Если кому надо - могу откомпилить.
 
На "вопрос на засыпку" не отвечу. Наверное, с помощью WMI... (думать надо)...
Зря ты его так задал (сплошняком). Народ подумает, что вопрос только ко мне. Надо так:
 
ALL
нужно доставить пару сетевых протоколов на машины в домене..  
каким макаром это сделать можна , чтоб не бегать по юзерям...?

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 12:50 13-01-2006
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FreemanRU
Neoromantic
IronWarrior
mozers
Я так понял, вы тут обсуждаете, как выводить какую-либо информацию на рабочий стол? А стандартные средства винды не пробовали? Я имею ввиду Active Desktop.

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 17:01 13-01-2006
IronWarrior



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

Всего записей: 1232 | Зарегистр. 02-07-2003 | Отправлено: 18:06 13-01-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Smitis
А подробнее? ДАи Active Desctop может быть отключен.
mozers
Вешай в бесконечный цикл. и будет тебе счатчтье

Цитата:
а в фоновый рисунок рабочего стола (Wallpaper.bmp).  

А если его нет?
 
Добавлено:
IronWarrior
Попробуй найди inf файл от этих протоколов и запускай его на установку. Убей меня не помню как запустиь inf из командной строки.

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

Всего записей: 3795 | Зарегистр. 16-07-2004 | Отправлено: 23:34 13-01-2006
mozers



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

Цитата:
Убей меня не помню как запустиь inf из командной строки.

Код:
rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 protocol.inf
типа так...

Цитата:
 в фоновый рисунок рабочего стола (Wallpaper.bmp).  
А если его нет?
Тогда тулза его создает И сама много знает, также можно подключать внешние источники информации (те же скрипты). Кто еще не видел очень рекомендую глянуть. И вопрос будет полностью закрыт.
 
Smitis
Что касается Active Desktop, то лично я его всегда у всех отключаю (слишком глючная эта фича). Но решение, в принципе, реальное. Это же - обычная HTML страница на которой скриптом можно хоть черта изобразить

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 00:54 14-01-2006
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Для тех, кто не боится Active Desktop (только в качестве примера):
Код:
<HTML><HEAD>
<style>
BODY, TABLE {
    color:white;
    background-color:black;
    font-family:Arial;
    font-size:12pt;
    font-weight:bold;
    overflow:hidden;
    margin:0;
    padding:10;
}
</style>
</HEAD><BODY>
<script language="Javascript">
WSHNetwork = new ActiveXObject('WScript.Network');
var table = '<table width=100%><tr><td>UserDomain:<td>' + WSHNetwork.UserDomain + '<tr><td>UserName:<td>' + WSHNetwork.UserName + '<tr><td>ComputerName:<td>' + WSHNetwork.ComputerName + '</table>';
document.write(table);
</script>
</BODY></HTML>

Сохранить как Desktop.htm и в настройках дестопа включить "Показать веб-страницу на Рабочем столе". (Правда, ругается, гад на страшный ActiveX

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 14:14 14-01-2006
Smitis



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

Цитата:
Что касается Active Desktop, то лично я его всегда у всех отключаю (слишком глючная эта фича). Но решение, в принципе, реальное. Это же - обычная HTML страница на которой скриптом можно хоть черта изобразить  

Полностью согласен, я тоже отключаю. Самое смешное, не смог включить обратно (в контекстном меню десктопа его нет)
Просто на предыдущих страницах топика кто-то писал, что нет стандартного решения.
П.С. Где-то видел статью, кажется в журнале Ксакеп (Хакер), там чел мутил тему на десктоп через а.д. на флэше.

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 15:03 15-01-2006
faZZ



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


----------
жЫзнь интересная штука..

Всего записей: 1642 | Зарегистр. 10-01-2004 | Отправлено: 04:15 16-01-2006
finderknowledge

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

Код:
 
function sendmail() {
    var objEmail = WScript.CreateObject("CDO.Message");  
    objEmail.From = "адрес отправителя";  
    objEmail.To = "адрес получателя";  
    objEmail.Subject = "тема";  
    objEmail.Textbody = "текст";
    objEmail.AddAttachment("путь к прикрепляемому файлу");
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;  
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "IP SMTP сервера"  
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;  
    objEmail.Configuration.Fields.Update();  
    objEmail.Send();
}
 

Всего записей: 26 | Зарегистр. 03-11-2005 | Отправлено: 09:48 16-01-2006 | Исправлено: finderknowledge, 09:50 16-01-2006
IronWarrior



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
FreemanRU
ок, спасибки за наводку, а то даже не хзнал где копать..!

Всего записей: 1232 | Зарегистр. 02-07-2003 | Отправлено: 10:13 16-01-2006
faZZ



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
finderknowledge
и куда его? в смысле сохранить в .js или как?

Всего записей: 1642 | Зарегистр. 10-01-2004 | Отправлено: 12:03 16-01-2006
finderknowledge

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

Всего записей: 26 | Зарегистр. 03-11-2005 | Отправлено: 12:19 16-01-2006
IronWarrior



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
finderknowledge
он запрашивает подтвержение или сразу шлет??, а то я сколько не пробовал, постоянно выскакивает сообщение что с компа отсылается почта и запрашивает подтверждение..

Всего записей: 1232 | Зарегистр. 02-07-2003 | Отправлено: 12:46 16-01-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