Yo crearia un fichero de trabajos activos a controlar, donde generaria un registro con
el usuario que activo el proceso y el nombre del proceso, al final se eliminaria dicho
registro. Todos lo trabajos que quiero controlar mirarian primero si hay un registro
de dicho proceso para activarse o no.
Existe unas APIs de Windows (GetUserName) para recuperar el usuario que ha hecho logon
en la sesion de Windows, y (GetComputerName) para recuperar el nombre del equipo.
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal
lpBuffer As String, nSize As Long) As Long
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer
As String, nSize As Long) As Long
Dim AUX As String * 25
Dim P As Long
P = 25
GetComputerName AUX, P
Nombre_Equipo = Left(AUX, P)
P = 25
GetUserName AUX, P
Usr_WIN = UCase(Left(AUX, P - 1))
> -----Mensaje original-----
> De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Juan Carlos Paredes
> Enviado el: martes, 15 de julio de 2003 17:45
> Para: 'Forum Help 400'
> Asunto: [SEMI OFF TOPIC] Comprobar un proceso activo en Windows
>
> Buenas tardes, Foro:
>
> Me encuentro con el siguiente problema. Tengo un servidor Windows que tiene
> permanentemente activo un proceso que sube datos al AS/400 para que este, mediante
> un proceso batch, los trate y emita facturas. Despues de procesar esos ficheros los
> pasa a una carpeta hist�rica.
>
> Pues bien, alguien se ha conectado al servidor y ha arrancado (mientras ya estaba
> activo) de nuevo dicho proceso. Ello supone que un proceso y otro han comenzado a
> interferirse. La pregunta es: �conoc�is alguna forma de controlar desde un programa
> .BAT o Visual Basic si un determinado trabajo ya est� activo para finalizar
> inmediatamente la ejecuci�n del segundo de ellos?
>
> Gracias de antemano y un saludo.
>
> Juan Carlos
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
