» Автоматизация администрирования. Часть 2

attaattaatta
Т.е. через WMI смена гетвея предназначена посути для установки его совместно с IP адресом? Английский знаю весьма посредственно.
А про netsh знаю, его минус - что долго думает (до 10 сек).
если есть еще альтернативы - буду признателен.

НО, и на том БОЛЬШОЕ СПАСИБО

Real Root
Попробуй это

Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errGateways = 0 Then
WScript.Echo "IP адрес шлюза был успешно изменён"
Else
WScript.Echo "Произошла ошибка при смене IP адреса шлюза"
End If
Next

niichavo
Да я уже тоже это как вариант рассматривал, но это лишь временная мера. Настройки меняются часто (когда встает/садиться каждый клиент), а ваш метод просто годиться лишь для однократного применения. Я уже думал вариант с реестром сделать, чтоб изначально метрика 100 была, а потом с каждый разом ее постепенно снижать на 1, а в реестре счетчик вести. Но это вобще порнография выходит. Тогда уж лучше в крайнем случае на использование netsh перейду. Я вобщемто раньше только через netsh все и делал, просто меня быстрота VBS+WMI просто поразила: то что netsh 10-15 сек. делал (удалял гетвей и днс и прописывал заново), теперь все это выполнялось мгновенно. Но вот незадача, скрипт тестился на сетевых подключениях где гетвей до этого задан не был - и по сему все было мгновенно. А теперь прямо лажа...

Если еще есть варианты - буду крайне признателен.
Всем спасибо и удачи каждому в нашем не всегда легком труде.

Real Root

Цитата:

Да я уже тоже это как вариант рассматривал, но это лишь временная мера. Настройки меняются часто (когда встает/садиться каждый клиент), а ваш метод просто годиться лишь для однократного применения

Это лишь пример. Как это однократный скрипт? При каких условиях должен применяться скрипт? Добавь в скрипт нужные тебе условия. Запускай его при логоне, загрузке компа, удалённо с помошью psexec... Хочешь удалить шлюз? Попробуй написать "", вместо "192.168.1.100". Кроме задачи "с помощью скрипта удалить Default Gateway" больше конкретных условий не прозвучало. Вот скрипт и меняет только шлюз.

Цитата:

Real Root

лучше проксятник или брандмаер используй для фильтрации трафика, т.к. удаление основного шлюза быстрым быть не может без перезапуска сетевых служб!

а route add route del не поможет ?

Доброго времини суток!

Подскажите пожалуйсто, можно ли используя VBS2EXE, изменить версию, описание и т.п. созданного exe-шника?

student24
Видимо, нет

Usage: vbs2exe -s<script> species a script file to pack
-o<outputname> specifies the name of the output file
-d<datafile> specifies a datafile to pack
-c<com object> specifies a COM object to pack
-i<iconfile> specifies an icon to use instead of the default icon.
-xc Use CScript.exe
-xw Use WScript.exe
-xh Use MSHTA.exe
-xp Use PowerShell.exe
-xs Use SAPIEN Script Host (Windows)
-xl Use SAPIEN Script Host (Command Line)
-l Leave data files
-f Use current folder instead of temp folder
-? Displays this screen

student24

Цитата:

Подскажите пожалуйсто, можно ли используя VBS2EXE, изменить версию, описание и т.п. созданного exe-шника?

Любым редактором ресурсов. Например, ResHacker

добрый день, подскажите программку для просмотра загруженности сервера (память, проц сеть)

Цитата:

yazzi
добрый день, подскажите программку для просмотра загруженности сервера (память, проц сеть)

для Windows Журналы и оповещение производительности (настраиваешь журналы счетчиков а потом см результаты )

ЧАСТЬ II. УПРАВЛЕНИЕ РЕСУРСАМИ СЕРВЕРА \ Средства мониторинга и оптимизации \ Мониторинг производительности компьютера

по WINDOWS SERVER 2003 - Справочник профессионала.chm
( __http://www.rapidshare.ru/1047544

__http://rapidshare.com/files/235655271/WINDOWSSERVER2003__1057___1087___1088___1072___1074___1086___1095___1085___1080___1082_.chm.html
)

На заметку (и себе тоже )

смена владельца папки , файла ChOwn
у меня это проблема встала после переустановки WinXP

Качать отсюда _httр://wwwthep.physik.uni-mainz.de/~frink/nt.html

читать здесь _httр://www.osp.ru/win2000/2006/08/3889671/

icea
спасибо будем читать и пробывать

Ребята,
несочните за наглость поделитесь плиз качественным скриптом по сбору информации об установленном ПО в сети под управлением домена.

rosalin
вот вроде здесь ваяют под
PowerShell

Уважаемые, не подскажете как своять скрипт который бы выполнял следующее: проверял бы по указанному пути наличие конкретного файла с интервалом в30 сек. и если этот файл есть то выполнял действие, скажем создавался бы файл ok.log в ктором с тем же интервалом и отображением времени писал бы ok:
01.01.2009 13:00:00 ok
01.01.2009 13:00:30 ok
....
....
01.01.2009 14:00:00 ok.
Если же файл не доступен (а именно в этом и соль - именно не доступен по сети), то выполнялось бы действие, скажем создается файл error.log, в котором бы отображалось:
01.01.2009 14:00:30 error
01.01.2009 14:01:00 error
....
....
01.01.2009 14:30:00 error.

Заранее спасибо за помощь.

if exist "c:\file" echo date "ok" > c:\log.txt

и ставишь в назначеные задания на каждую минуту

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

С уважением Starley25.

Вы мне дали возможность работать с bat-файлом, а нельзя ли это реализовать на VBScript или на PowerShell.

Цитата:

Starley25

какая тебе разница? "скрипт" делает то, что ты хош? вот и будь доволен, коли сам ничего в скриптописании не знаешь!

Очень конечно познавательно ответили, но на самом деле задача у меня стоит в проверке доступности файла через запуск скрипта на удаленной машине с использованием SCOM плюс к этому создание монитора и рождение алерта по событию. Поэтому в глубоком изучении скриптов у меня разбираться пока необходимости не было. Кстати интересно было бы узнать код который бы запускал скрипт на удаленной машине.

Starley25

Цитата:

задача у меня стоит в проверке доступности файла через запуск скрипта на удаленной машине с использованием SCOM плюс к этому создание монитора и рождение алерта по событию. Поэтому в глубоком изучении скриптов у меня разбираться пока необходимости не было.

Скрипт запускается на любой машине (можно удалённой. параметр strComputer). Работает через WMI. Отслеживает наличие (в самом начале), изменение, удаление, создание файла в папке. Уведомляет нетсендом (Можно и почту отправлять, если чё).
[more=Тута скрипт]
Код:
'комп, где запускаем скрипт
strComputer = "TargetComp"
'комп, куда отсылаем сообщения
strAdminCompName = "YaOdminko"
strDrive = "e:"
strPath = "\\папка за которой следим\\"
strFileName = "файлО_за_которым_следим.txt"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
ExecQuery("Select * From CIM_DataFile Where Name = '" & strDrive & strPath & strFileName & "'")

If colFiles.Count = 0 Then
MyNetSend("Нетути файла")
Else
MyNetSend("ФайлО на месте")
End If


Dim Body

Set objEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceOperationEvent WITHIN 5 WHERE " & _
"TargetInstance ISA 'CIM_DataFile'" & _
" AND TargetInstance.Drive = '" & strDrive & "'" & _
" AND TargetInstance.Hidden <> 1" & _
" AND TargetInstance.Path = '" & strPath & "'")

'Wscript.Echo "Ожидаем события ..."
Do While(True)
Set objLatestEvent = objEvents.NextEvent

    Select Case objLatestEvent.Path_.Class

    Case "__InstanceCreationEvent"
        tmpFileName = objLatestEvent.TargetInstance.FileName _
            & "." & objLatestEvent.TargetInstance.Extension
        If LCase(tmpFileName) = LCase(strFileName) Then
            Body = Now & vbTab & "Файл """ & tmpFileName & _
            """ был создан" & vbCrLf
            MyNetSend(Body)
        End If    

    Case "__InstanceDeletionEvent"
        tmpFileName = objLatestEvent.TargetInstance.FileName _
            & "." & objLatestEvent.TargetInstance.Extension
        If LCase(tmpFileName) = LCase(strFileName) Then
            Body = Now & vbTab & "Файл """ & tmpFileName & _
            """ был удалён" & vbCrLf
            MyNetSend(Body)
        End If    

    Case "__InstanceModificationEvent"
        tmpFileName = objLatestEvent.TargetInstance.FileName _
            & "." & objLatestEvent.TargetInstance.Extension
        If objLatestEvent.TargetInstance.LastModified <> _
         objLatestEvent.PreviousInstance.LastModified And _
         LCase(tmpFileName) = LCase(strFileName) Then
                Body = Now & vbTab & "Файл """ & tmpFileName & _
                """ был изменён" & vbCrLf
                MyNetSend(Body)
        End If
End Select


Loop


'========== net send ===========

Function MyNetSend(strBody)    
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "net send " & strAdminCompName & " " & strBody
End Function

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

как VB скриптом вывести на весь экран картинку-jpg до логина не используя InternetExplorer.Application

Starley25

скрипт для запуска чего угодно на удаленной машине
On Error Resume Next
Err.Clear

Dim oLocator
Dim Compname, LUsername, LPassword
Dim DUsername, DPassword


Compname = WScript.Arguments.Item(0)
LUsername = Compname & "\a"
LPassword = WScript.Arguments.Item(1)

if Compname = "" then
WScript.Echo "Запускать с параметрами %computername% $password%"
WScript.Quit

else


Dim oSvc, oProc

Set oLocator = CreateObject("wbemScripting.Swbemlocator")
Set oSvc = oLocator.ConnectServer(Compname, "root\cimv2", LUsername, LPassword)
Set oProc = oSvc.Get("Win32_Process")
oProc.Create "путь к файлу"
end if

Коллеги, если у кого остался в удобоваримом (*.chm, *.doc) формате учебный курс "Программирование для администраторов", не сочтите за труд поделиться . northern[собака]fromru.com ну или на файлообменник, я думаю я не единственный страждущий .

Northern _http://rapidshare.com/files/238142701/progr4admins.7z

Цитата:

YURETS777

а как прыгнуть выше головы???
В 2К и в ХР без редактирования файла ресурсов мона попробовать следующее: при стартапе запускать не IE, а, например, ACDSee, если она поддерживает коммандную строку, дальнейшее я думаю объяснять не нада.
Для Vist и Windows7 смотри статьи по реестру!

YNY

Че, сапсем никак

А если че-нить типа DrawImage

Кто нить можетскинуть готовый скриптик или батник для автоматизации входа в телнет, чтоб набирал ip, порт, имя юзера, пароль...
Заранее спасибо