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

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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
может попробовать читать файл по строкам, и если length строки <> 0 - то копировать эту строку во временный файл. по окончании - временный файл переименовать.

Всего записей: 20 | Зарегистр. 27-12-2002 | Отправлено: 15:28 26-05-2006
netman



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
for /f "eol= " %i in (user.txt) do echo %i >new.txt

Всего записей: 305 | Зарегистр. 22-09-2003 | Отправлено: 19:00 26-05-2006
listadm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое!
Все работает.

Всего записей: 6 | Зарегистр. 06-05-2006 | Отправлено: 06:48 29-05-2006
rosalin



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые All помогите поправить код
 

Код:
 
'Имя и фамилия пользователя домена в параметр реестра
strComputer = "."
Const HKEY_CURRENT_USER = &H80000001
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile where FullName is not null",,48)
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
strKeyPath = "Software\Axialis\Customer Info"
strValueName = "CustomerName"
For Each objItem in colItems1
strValue = objItem.FullName
Next
 
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
 

 
Не получаеться настроить на этот ключ  
 

Код:
 
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\parameters]
"srvcomment"="Иванов И.И"
 
 


----------

Всего записей: 2584 | Зарегистр. 15-04-2003 | Отправлено: 11:44 31-05-2006
FreemanRU



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

Код:
 
const HKEY_LOCAL_MACHINE = &H80000002
 
strKeyPath = "SYSTEM\ControlSet001\Services\lanmanserver\parameters"  
strValueName = "srvcomment  
For Each objItem in colItems1  
strValue = objItem.FullName  
Next  
 


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

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 11:56 31-05-2006
Kenav

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ как запустить в сетевом окружением , VPN соединение? с помощью JScript.  

Всего записей: 3 | Зарегистр. 31-05-2006 | Отправлено: 12:27 31-05-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Kenav
из командной строки: rasdial /?

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

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 12:32 31-05-2006
rosalin



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

----------

Всего записей: 2584 | Зарегистр. 15-04-2003 | Отправлено: 12:57 31-05-2006
Kenav

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
все разобрался) но есть проблема далье не пашет какой параметр у rasphone ?   с  -d не получается , как зделать чтоб не че не нажимать?  
 
var WshShell = WScript.CreateObject("WScript.Shell");
 
var connection = WshShell.RegRead("HKCU\\Software\\Microsoft\\RAS AutoDial\\Default\\DefaultInternet");
 
   
WshShell.Run("rasphone -d" + connection, 0, true);
 
 
 
 

Всего записей: 3 | Зарегистр. 31-05-2006 | Отправлено: 13:20 31-05-2006 | Исправлено: Kenav, 14:07 31-05-2006
FreemanRU



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Kenav
Я ж говорю - юзай rasdial вместо rasphone.

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

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 14:18 31-05-2006
Kenav

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FreemanRU
 
СКАЖИ ПОЖАЛУСТО КАК ДОЛЖЕН ВЫГЛЯДЕТЬ СКРИП я не знаю как для впн соед, задать параметры

Всего записей: 3 | Зарегистр. 31-05-2006 | Отправлено: 14:48 31-05-2006
FreemanRU



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

Цитата:
var WshShell = WScript.CreateObject("WScript.Shell");  
 
var connection = WshShell.RegRead("HKCU\\Software\\Microsoft\\RAS AutoDial\\Default\\DefaultInternet");  
   
   
WshShell.Run("rasdial " + connection+" vpnlogin vpnpasssword", 0, true);  



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

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 15:03 31-05-2006
Vernik77



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа, не подскажите, есть ли в сети примеры скриптом инсталлирующие и деинсталлирующие программы?

Всего записей: 36 | Зарегистр. 29-05-2006 | Отправлено: 16:30 31-05-2006
hoochie



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
 Уважаемые! Поделитесь секретом, как вы боретесь с локализованными версиями виндовс? Дело в том, что булевое значение "True" приходится менять на "Истина", чтобы скрипт заработал. Пробовал менять на 1, 0 (True, False соответственно) - не работает Ведь так переписывать - совсем неправильное направление движения вперед.

----------
Раньше у нас было время
Теперь у нас есть дела...

Всего записей: 434 | Зарегистр. 30-03-2003 | Отправлено: 17:09 31-05-2006
rosalin



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

Код:
 
'Установка программы на удалённый компьютер
 
'При помощи этого скрипта можно установить программу
'(в данном примере устанавливается test.msi, которая хранится  
'в папке \\domaincontr\soft\) на удалённый компьютер. Установка  
'программы будет выполнена из-под учётной записи указанного  
'в скрипте пользователя (administrator).
 
 
Const wbemImpersonationLevelDelegate = 4
 
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
   ("WebServer", "root\cimv2", "organiz\administrator", _
      "password", , "kerberos:WebServer")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate
 
Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\domaincontr\soft\test.msi",,True)
 


----------

Всего записей: 2584 | Зарегистр. 15-04-2003 | Отправлено: 17:47 31-05-2006
ZDik

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Схема автоматического переключения канала Интернет
есть проги или алгоритмы?
на чем лучше писать?

Всего записей: 164 | Зарегистр. 15-03-2006 | Отправлено: 15:58 01-06-2006
Vby



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

Цитата:
Схема автоматического переключения канала Интернет

С одного шлюза на другой?
Создаешь 2 батника:  
route delete
route add  
и запускаешь нужный тебе.

Всего записей: 781 | Зарегистр. 16-09-2004 | Отправлено: 17:08 01-06-2006
ZDik

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Я не должен участвовать в этом процессе, автоматом
Разработал маленький алгоритм пинг каждые 3 мин, потом route
Теперь надо на чем-н написать, vbs+bat потянет?

Всего записей: 164 | Зарегистр. 15-03-2006 | Отправлено: 07:29 02-06-2006 | Исправлено: ZDik, 07:33 02-06-2006
Vernik77



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

Всего записей: 36 | Зарегистр. 29-05-2006 | Отправлено: 09:18 02-06-2006
Vby



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

Цитата:
Теперь надо на чем-н написать, vbs+bat потянет?

Потянет, но хватит и vbs только.

Всего записей: 781 | Зарегистр. 16-09-2004 | Отправлено: 10:15 02-06-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