Нужен скрипт

[МЯФик]

Народ!) Нужен скрипт, который при запуске
1)выдавал бы предупреждение, что будут выгружены 2 процесса из памяти
2) выгружал бы эти 2 процесса
3)Загружал 1 процесс (просто один файл загружает 2 процесса:)
4) выдавал бы предупреждение что закончил )))

Ой что написал... надеюсь понятно...
Мона такое сделать?

Заранее спасибо!
Удачи...

[GSerg]

msgbox "Ща почудим!"
terminateprocess (params1)
terminateprocess(params2)
createprocess(params)
msgbox "Ну вот и почудили!"

[RayShade]

Неправда твоя, GSerg. API в скриптинге не работает.

Должно использовать WMI.

Код: Выделить всё

set wmiobj = getobject("winmgmts:{impersonationLevel=impersonate}.")
set wos = wmiobj.instancesof("Win32_Process")
msgbox "Закрываем 2 процесса"
for i = 1 to 2
wos.item(i).terminate(0)
next


Создание процесса - через Win32_Process.Create но мне лень код писать - долго потому что В MSDN короче все есть.

[МЯФик]

Спасибо! а мона поподробнее... в качестве параметра нужна указывать объект или название файла... и как он вызывется по ID или по названию... Изложу поподробнее:

есть 2 процесса в памяти: rso_srv.exe и dacsrv.exe их нужно убить ))
потом нужно запустить екзешник c:\program files....\rso_srv.exe и выдать message box...
Я не программист... просто понадобилось сделать такую штуку для удобства..
Заранее спасибо за ответ!
Удачи

[RayShade]

Тогда так:

Код: Выделить всё

set wmiobj = getobject("winmgmts:{impersonationLevel=impersonate}\\.")
set wos = wmiobj.instancesof("Win32_Process")
msgbox "Закрываем 2 процесса"
for each prc in wos
if prc.name = "rso_srv.exe" or prc.name = "dacsrv.exe" then prc.terminate(0)
next


[МЯФик]

Я так понял что этот скрипт закрывает эти 2 процесса...
а как его после этого запустить... то есть после этого нужно запустить екзешник с:\progr files\.....\rso_srv.exe
ну и message box напоследок)

СПАСИБО!

[RayShade]

Ну запуск делается примерно так:

Код: Выделить всё

set obj = createobject("WSCript.Shell")
obj.run " c:\program files....\rso_srv.exe"
msgbox "Запустили"


[МЯФик]

да... вот еще... я его попробовал... этот скрипт выгружает только один процесс (rso_srv.exe) а dacsrv.exe остается...
наверно нужно его поправить)

спасибо за помощь!

[RayShade]

Если процесс не завершается, то не в скрипте дело. У тебя может просто прав нет его выгружать.

[МЯФик]

Пользователь под которым я вхожу является локальным админом для этой машины... ОС Window 2000 Advanced Server
Какие еще нужны права?
Все равно спасибо... я думаю можно обойтись перезапуском тока этой службы... может dac и не обязательно)

to all: может кто еще знает почему служба не выгружается?

[RayShade]

Потому что есть службы, которые не может выгрузить даже админ. Система может считает что она без этого рпоцесса жить не сможет. Вот и не дает.

[МЯФик]

понимаешь.... я бы это понял если бы этот dacsrv нельзя было выгрузить из таск манагера (ошибка бы вылетала) но он же выгружается)) как и rso_srv...

[RayShade]

А в Task Manager процесс так и называется dacsrv.exe? Это я к тому что скрипт его по имени проверяет.

И еще - может, dacsrv.exe нельзя завершить перед вторым процессом? Они друг от друга зависят?

[МЯФик]

да.. процесс так и называется DacSrv.exe
в таск манагере их мона выключать в любом порядке
а файл rso_srv.exe загружает 2 процесса (rso_srv.exe и DacSrv.exe)

да... и неплохо было бы снабдить этот скрипт тайм аутом секунд на 5 до загрузки rso_srv.exe

Спасибо!!

[RayShade]

Тогда надо сделать:

1) в строке if prc.name = "rso_srv.exe" or prc.name = "dacsrv.exe" then prc.terminate(0) написать DacSrv.exe именно так как показывается в окне Task Manager.

2) Перед obj.run " c:\program files....\rso_srv.exe" вставить строчку

wscript.sleep 5000

[МЯФик]

Воотт... теперь скрипт выгружает эти процессы но файл запускать не хочет... Ругается на 9 линию char 1 говорит, что файл не найден хотя я копировал из проводника.... странно..

Код: Выделить всё

set wmiobj = getobject("winmgmts:{impersonationLevel=impersonate}\\.")
set wos = wmiobj.instancesof("Win32_Process")
msgbox "Сейчас будет перезапущен серевер Visma Sales Office"
for each prc in wos
if prc.name = "rso_srv.exe" or prc.name = "DacSrv.exe" then prc.terminate(0)
next
set obj = createobject("WSCript.Shell")
wscript.sleep 5000
obj.run "C:\Program Files\Visma\SalesOffice\rso_srv.exe"
msgbox "Серевер перезапущен :)))"

Вот так))

[RayShade]

Попробуй в obj.run "C:\Program Files\Visma\SalesOffice\rso_srv.exe" кавычки удвоить.

[МЯФик]

что не получается дублировать кавычки... получилось
obj.run ""C:\Program Files\Visma\SalesOffice\rso_srv.exe""
пишет expected end of statement
line 9
char 11
пробовал дублировать слеши... тоже не принимает...
что то не получается найти на msdn синтаксис obj.run..
там какая то фигня...