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

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

 

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

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YNY
Если и без скрипта набираю адрес, то окно всё-равно появляется.  
 
Может через объектную модель броузера по событию как-нить можно управлять этим окном?

Всего записей: 125 | Зарегистр. 09-01-2005 | Отправлено: 08:51 14-04-2008
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShafMAN
Если сертификат - корневой, то скрипт работать будет. Если IE6 то - точно. (Еще помойму в настройках обозревателя все галки типа "проверять анулирование..." снимал).
Если - нет, то - нефига (во всяком случае у меня не получилось).
На крайняк есть вариант грузить страницу cURL-ом...

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 15:11 14-04-2008
YNY

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

Цитата:
ShafMAN

тыб написал че грит тебе, т.к. обычно после уст сертификата никаких окон не вылазит если только:
1 -- сертификат не канает
2 -- надо добавлять узел в список доверенных узлов

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 12:23 16-04-2008
ShafMAN

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YNY
Стандартное окно "предупреждение системы безопасности", там всякая фигня про сертификан написана и три кнопки: "Да" "Нет" "Просмотр сертификата". Сертификан я устанавливал как "доверенный корневой", окно бы это и не вылазило наверное если бы он установился туда, но он не установился.

Всего записей: 125 | Зарегистр. 09-01-2005 | Отправлено: 17:46 17-04-2008
Roman_Mejtes

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

Код:
 
    Dim mConnection
    Set mConnection = CreateObject("ADODB.Connection")
    mConnection.Open "Provider=SQLOLEDB.1;Data Source=server;Initial Catalog=database", "****", "****"
    mConnection.Execute "INSERT INTO tblMain (fldGUID, fldHostName, fldDescription, fldComment, fldDefinition) VALUES ('" & GUID & "', '" & hostname & "', '" & Desc & "', '" & Comment & "', '" & Defin & "')"
    Set mConnection = Nothing
 

люди вот пример кода, я не пойму, как получить обратно запись которую я только что создал и из неё УИД строки, который присваивает MSSQL автоматически... уже 2 дня бьюсб, ни чё не понима....
объясните плиз как с помощью ADODB можно создать запись и получить обратно её в Recordset например или хотя бы её UID

Всего записей: 34 | Зарегистр. 31-08-2007 | Отправлено: 09:55 24-04-2008
Integer27h



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

Всего записей: 201 | Зарегистр. 11-09-2006 | Отправлено: 14:41 24-04-2008
aleksanchez



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

Код:
Select id from tblMain where fldGUID=GUID

Всего записей: 32 | Зарегистр. 03-02-2008 | Отправлено: 15:09 24-04-2008
YURETS777



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как при помощи VB-скрипта получить список установленного ПО на станции а так же список всех хотфиксов.

Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 15:34 24-04-2008
Integer27h



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вопрос.
Написал Logon скрипт. Назначается через групповые политики "User".  
 
Но иногда возникает ошибка:
Не найден сетевой путь. Код: 80070035.
Указывает на строчку:
 
Set objgpunl = GetObject("WinNT://" & domain & "/" & gpu_nologon & ",group")
 
Причем не какой закономерности - бывает и при включении ПК и логоне, или при завершении сеанса и новом логоне пользователя.
 
Связь с доменом 100Mb. Проблем с сетью никаких.
Переменные  domain, gpu_nologon статичные не изменяются.  
 
Может это особенности провайдера "WinNT://",таймаут?
 
 
Все разобрался. Проблема была с DNS.
 
Добавлено:
Вопрос.  
Опять же Logon скрипт.
Домен. Состоит из 5 контроллеров домена.  
 
Как можно выяснить на какой из контроллеров домена логинится пользователь?
 
 
Нашел:
 
Set WSHShell = CreateObject("Wscript.Shell")
Set WSHProcess = WSHShell.Environment("Process")
'Determine logon server
DomainLogonServer = WSHProcess("LogonServer")
'Note: Results below will be \\Server
WScript.Echo "Login server is:"& DomainLogonServer

Всего записей: 201 | Зарегистр. 11-09-2006 | Отправлено: 11:45 28-04-2008 | Исправлено: Integer27h, 13:37 28-04-2008
coolpunk



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В скриптах не рублю, прошу помочь. К удаленным филиалам появился доступ. Чтобы удаленно установить что-то, надо не пустой пароль администратора, чего скорее всего нет. Пользователи работают под учеткой с полными правами, домена нет. Думаю, возможно передать скриптик, запустив который, изменит пароль встроенной учетки администратора и установит нужный софт, например, Remote Office Manager, дальше уже проще будет. Если ещё что-то обязательно для удаленной устновки, подскажите, естественно скриптом;) Жду любой помощи, спасибо.

Всего записей: 543 | Зарегистр. 16-04-2004 | Отправлено: 08:20 29-04-2008
coolpunk



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А разве можно установить, если машина не в домене? Я уже начал сомневаться... тогда и смысла нет устанавливать пароль на встроенную учетку... Остается только "ручная" установка типа:
copy *.*...
ROMServer.exe /silentinstall
regedit.exe /s settings.reg
Больше никак?

Всего записей: 543 | Зарегистр. 16-04-2004 | Отправлено: 10:27 29-04-2008
YNY

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

Цитата:
YURETS777

ищи (ранее был) скрипт который читает из реестра ветку uninstall

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 09:42 30-04-2008
YURETS777



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как вытянуть ветку реестра я знаю, с этим проблем нет, но в таком виде:
 

Код:
 
REGEDIT4
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall]
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AddressBook]
@=""
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Flash Player Plugin]
"DisplayName"="Adobe Flash Player Plugin"
"DisplayVersion"="9.0.45.0"
"Publisher"="Adobe Systems Incorporated"
"URLInfoAbout"="http://www.adobe.com/go/getflashplayer"
"DisplayIcon"="C:\\WINNT\\system32\\Macromed\\Flash\\uninstall_plugin.exe"
"UninstallString"="C:\\WINNT\\system32\\Macromed\\Flash\\uninstall_plugin.exe"
"NoModify"=dword:00000001
"NoRepair"=dword:00000001
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Branding]
"QuietUninstallString"="Rundll32 IedkCS32.dll,BrandCleanInstallStubs"
"RequiresIESysFile"="100.0"
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Connection Manager]
"SystemComponent"=dword:00000001
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DirectAnimation]
@=""
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DirectDrawEx]
@=""
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DXM_Runtime]
@=""
 
 

 
 
Это всё дело как-то не очень читаемо.
 
Нужно получить простой список софта как он выглядит в "Установке и удалении программ"

Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 15:22 30-04-2008 | Исправлено: YURETS777, 15:24 30-04-2008
YNY

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

Цитата:
Как вытянуть ветку реестра я знаю

т.е. это так выглядит вывод результата скриптом (таким как отрывок ниже)?
___
 
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" &strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strValueName = "DisplayVersion"
oReg.GetStringValue ,strKeyPath,strValueName,sValue

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

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите плиз со скриптом:
 Завершение существующих терминальных сессий пользователей перед архивированием  
'================================================================================  
WriteTextFiles VbCrLf & Now & "  Завершение cуществующих терминальных сессий" & VbCrLf, strLogFile  
WshShell.Run "%comspec% /u /c chcp 1251 & quser >>" & strLogFile, 0, True  
WriteTextFiles VbCrLf, strLogFile  
WshShell.Run "%comspec% /u /c chcp 1251 & for /f ""eol=; tokens=1 skip=2"" %i in ('quser') do qprocess %i >>" & strLogFile, 0, True  
WshShell.Run "%comspec% /u /c chcp 1251 & for /f ""eol=; tokens=2 skip=1"" %i in ('quser') do if /i not ""%i""==""console"" logoff %i /v >>" & strLogFile, 0, True  
 
WriteTextFiles VbCrLf & Now & "  Проверка наличия незавершившихся терминальных сессий" & VbCrLf, strLogFile  
WshShell.Run "%comspec% /u /c chcp 1251 & quser >>" & strLogFile, 0, True  
WriteTextFiles VbCrLf, strLogFile  
 
Мне нужно что бы происходило завершение всех сессий кроме одной "определенной", что нужно править в данносм скрипте?

Всего записей: 245 | Зарегистр. 18-10-2007 | Отправлено: 18:02 05-05-2008
YURETS777



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YNY
 
Этот скрипт ничего не выводит.
 
 
 

Цитата:
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" &strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strValueName = "DisplayVersion"
oReg.GetStringValue ,strKeyPath,strValueName,sValue


Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 09:47 06-05-2008
Bugriy



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто-нибудь решал задачу автоматизации запроса помощи пользователем через Удалённого помощника (remote assistance)?  
Хочу написать скрипт, который будет запускать remote assistance, сам вводить е-мейл службы поддержки, пароль, и прочую информацию.
Проблема в том, что, насколько я понял, wsh может слать кнопки только активному окну, значит если юзер в процессе заполнения скриптом форм уведёт фокус в другое окно, то скрипт собьётся.

Всего записей: 226 | Зарегистр. 24-08-2005 | Отправлено: 12:20 06-05-2008
mozers



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

Добавил в шапку ссылочку на CHM версию Учебного курса "Программирование для администраторов"
Критика по оформлению не принимается - влом было править изуродованные Word-ом html-ки с ихнего сайта.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 17:49 06-05-2008
Vetkol



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть сетка, WPA персональный, шлюз Compex G27, кажется, но не суть важна модель, до того стоял d-link Dl-524, но тупил дико (ОЧЕНЬ МЕДЛЕННЫЕ соединения даже по локалке, а уж про открытие яндекса за 3 минуты и то неполностью - я вообще молчу), временно заменили, до приобретения Netgear, наверное.
Три ноута Acer, на всех Wi-Fi сетевухи Intel. Один из них с Vista, два с ХРенью. Насчёт апдейтов на Хренях - не уверен, что всё одинаково, да и сетевухи у ХРеновых разные.
Проблема такая - 1 Вистовый и 1 ХРеновый не хотят после перезагрузки переконнект делать к сетке, а Виста, к тому же, лезет в явно неразрешённые к подключению сети. При этом, Хреновый с таким же адаптером как у Висты, нормально вполне работает себе.
Также иногда сетка просто отваливается и обратно уже не встаёт нормально, соответственно.
 
Решается всё удалением контроллера в диспетчере устройств, обновлении списка, установкой заново контроллера автоматической, и вводом пароля сети.
При перевводе пароля сети без удаления контроллера ничего не происходит, как не хотел переподключаться - так и не хочет.
 
ЗЫ: есть ещё два компа с PCI-ными сетевухами д-линк, не знаю на каких чипах, но навряд ли интел. С ними всё в полном порядке. Также сеть прекрасно держат iMac и AirBook
Виста без SP1 глючила абсолютно также.
 
Скрипт для ручного удаления сетевухи, подключения заново, автоматического ввода пароля и подтверждения - это реально? Я только бат-ами умею, к сожалению, и то, наверняка, далеко не всё, а ими, кажется, это сделать нереально.
 
Если кто-то может подсказать другие методы решения проблемы, кроме выкидывания цраных асеров - буду очень рад увидеть решения.

Всего записей: 78 | Зарегистр. 08-03-2005 | Отправлено: 18:26 06-05-2008
Cyril Konst



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть сложная задача.  
При подключении через терминал автоматом создаётся клиентский принтер. При отключении от терминала, он автоматом удаляется.
Нужно программку, которая отслеживает создание принтера и назначает права доступа к нему.
Можно на Си через Win32 API, можно ещё как-нибудь.  

Всего записей: 634 | Зарегистр. 12-08-2003 | Отправлено: 19:04 06-05-2008 | Исправлено: Cyril Konst, 19:13 06-05-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