YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
'ищем процесс
Set colProcesses = objWMIService.ExecQuery( "Select * from Win32_Process " & "Where Name = 'explorer.exe'")
dim rez
if (colProcesses.Count<>0) then
'msgbox "процесс RDP запущен"
rez=msgbox ("Искомый процесс запущен, остановим его?",vbYesNo, "Чего хотим")
rez=rez *(-1)
else
rez=msgbox ("Искомый процесс НЕ запущен, запустим его?",vbYesNo, "Чего хотим")
end if
select case rez
case 6 'Yes 7-No
Set objProcess = GetObject( "winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create( "explorer.exe", null, objConfig, intProcessID)
case -6 'destroying
For Each objProcess in colProcesses
objProcess.Terminate()
Next
end select
|
Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 10:49 08-07-2010 | Исправлено: YNY, 11:05 08-07-2010 |
|
