VBNet - Форум - Vbscript проверка существования процесса

Вопрос: Vbscript проверка существования процесса Добавлено: 09.06.09 09:03

Автор вопроса: arkif

Здравствуйте. Есть следующий код для проверки работы процесса с выводом нужной мне информации(количества запущенных процессов)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'cmd.exe'")
If colProcesses.Count = 0 Then
Wscript.echo "0"
Else
Wscript.echo colProcesses.Count
End If

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

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #1	Добавлено: 09.06.09 14:29
	Убрать Where? Ответить

Номер ответа: 2 Автор ответа: arkif Вопросов: 1 Ответов: 1	Профиль \| \| #2	Добавлено: 09.06.09 14:48
	сделал так Dim lngI, objArgs strComputer = "." Set objArgs= WScript.Arguments 'Создаём объект WshArguments 'strProcName="-" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name ='" & objArgs(lngI) & "'") If colProcesses.Count = 0 Then Wscript.echo "0" Else Wscript.echo colProcesses.Count End If не знаю на сколько правильно но требуемый результат получил запуск test.vbs "cmd.exe" Ответить

Страница: 1 |