Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

147 - Consultar si un proceso remoto está Abierto

Esta Rutina muestra como saber si un proceso Remoto o Local está corriendo en un Equipo utilizando para ello Wmi ( Windows Management Instrumentation )

La Sub del ejemplo, llamada Consultar_Proceso, recibe como parámetro el Nombre del equipo y el nombre del proceso

Controles: Colocar en un Formulario

Un Command1
Dos controles TextBox, En el Text1 se especifica el Nombre de la Pc a consultar, y en el Text2 el Proceso

Código fuente en el formulario

'Sub que recibe como parámetro el nombre del equipo y el _ nombre del Proceso a consultar Sub Consultar_Proceso(Equipo, Proceso) On Local Error GoTo errSub 'Variables de objecto Dim Nombre_Proceso, strOb strOb = "winmgmts://" & Equipo 'Bucle para recorrer los procesos en el equipo especificado For Each Nombre_Proceso In GetObject(strOb).InstancesOf("win32_process") 'Comprueba el Nombre del Proceso, ..Si es igual If UCase(Nombre_Proceso.Name) = UCase(Proceso) Then MsgBox " El proceso Está abierto ", vbInformation, " " Exit Sub End If Next 'El proceso no está ejecutandose MsgBox " El proceso NO Está abierto ", vbInformation, " " Exit Sub 'Error errSub: If Err.Number = 462 Then MsgBox " No se puede acceder a la máquina especificada ", vbCritical, " Error " End If End Sub Private Sub Command1_Click() Dim Equipo, Proceso 'Nombre del Equipo y el nombre del Proceso Equipo = Text1 Proceso = Text2 'Le enviamos los parámetros a la rutina Call Consultar_Proceso(Equipo, Proceso) End Sub

Recursos vb6 - Enlaces relacionados

Módulo para listar procesos y otra información en un Listview

Recursos vb.Net - enlaces

Obtener un proceso en visual basic.net mediante Process

Buscar en Recursos vb