Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Temas relacionados > Redes
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-07-2011
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Poder: 19
JoAnCa Va por buen camino
¿Como se puede iniciar un servicio en un equipo remoto?

Hola a todos
Hola a todos
Sucede que necesito acceder a otros equipos en mi red para instalarle unas herramientas de seguridad (GFI Endpointsecurity) pero en algunos me deniega el acceso porque el servicio Registro Remoto está deshabilitado
La solución es activarlo y ponerlo en modo de inicio automatico

Existe alguna forma de hacerlo desde mi PC sin tener que ir a cada PC individualmente a activarlo?
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes
Responder Con Cita
  #2  
Antiguo 14-07-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Puedes iniciar y parar un servicio en otro equipo utiliando WMI. Para ello necesitas credenciales válidas de acceso.
Revisa ayuda sobre la clase Win32_Service
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 14-07-2011
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Poder: 19
JoAnCa Va por buen camino
Thumbs up

Cita:
Empezado por Neftali Ver Mensaje
Puedes iniciar y parar un servicio en otro equipo utiliando WMI. Para ello necesitas credenciales válidas de acceso.
Revisa ayuda sobre la clase Win32_Service
Gracias Neftali
Cierto, ya yo habia trabajado antes con las WMI pero para obtener datos del hardware, así que no debo tener problemas para implementar la clase Win32_Service

Una duda, yo lo use para leer datos, tambien se pueden modificar?

Veré si me sale bien
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes

Última edición por JoAnCa fecha: 14-07-2011 a las 19:20:47.
Responder Con Cita
  #4  
Antiguo 14-07-2011
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Poder: 19
JoAnCa Va por buen camino
Neftali Probe con las WMI, le asigno los valores para activar el servicio y no me da error, pero cuando reviso en la PC remota el servicio no esta activo

Parece que lo estoy haciendo mal, o me falta algo

Código Delphi [-]
 try
   rows:=MagWmiGetInfo(edtNombrePC.Text, 'root\CIMV2', 'Administ', '*****', 'Win32_Service', WmiResults, instances);
   if rows > 0 then
    begin
      for i:=1 to instances do
       begin
         for j:=1 to rows do
          begin
           if Pos('RemoteRegistry', WmiResults[i, j]) > 0 then
            begin
             WmiResults[i, 17]:='True';
             WmiResults[i, 18]:='Auto';
            end;
          end;
       end;
      // ShowMessage('Terminado Ok');
    end
   else
 finally
   WmiResults:=Nil;
 end;
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes

Última edición por JoAnCa fecha: 14-07-2011 a las 20:40:27.
Responder Con Cita
  #5  
Antiguo 15-07-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Si descargas el paquete GLibWMI, entre las demos hay un ejemplo de utilización de servicios.
En este caso es sobre la máquina local, pero si cambias credenciales debe funcionar sobre otras máquinas.

En concreto el componente para la clase Win32_Service ya tiene implementados los métodos para Iniciar, parar, reanudar,... servicios.
Échale un vistazo a la demo y verás como ya está hecho.

NOTA: Si la demo de sercicios no está incluída en el paquete (creo recordar que sí) dímelo y te la envío.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 15-07-2011
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Poder: 19
JoAnCa Va por buen camino
Muchas gracias Neftali, ya tengo el ejemplo de los Servicios de las GLibWMI

Probaré como hacer para que funcione en una pc remota
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes
Responder Con Cita
  #7  
Antiguo 15-07-2011
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Poder: 19
JoAnCa Va por buen camino
Cool

Neftali
Disculpa tanta molestia, pero no encuentro donde poner las credenciales para acceder a otra PC en la red

Estuve revisando el ejemplo y el codigo fuente del componente pero no veo donde es que se pueden poner esos datos

Podrias ayudarme con eso?
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes
Responder Con Cita
  #8  
Antiguo 18-07-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Mira el método de la unit Base:

Código Delphi [-]
  procedure TWMIBase.ConnectWMI();

Por ahora GLibWMI sólo funciona con el ordenador local, pero símplemente porque no he publicado las propiedades de acceso para modificar User y contraseña. Si miras ese método verás que están comentadas, basta con que hayas llegar a esas propiedades las credenciales que necesitas y listo.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como hacer servicio remoto con VNC eddgonre Internet 2 25-01-2008 04:52:23
Como obtener la MAC de un equipo remoto dado la ip?? sarroyab Redes 0 17-01-2008 07:25:42
No me puedo conectar a equipo remoto con MySQL (para expertos) aupaneu Conexión con bases de datos 17 06-06-2006 09:40:10
Iniciar un servicio marceloalegre Varios 0 16-05-2005 02:01:13
Obtener fecha y hora de un equipo remoto gendelphi API de Windows 2 07-11-2003 08:26:31


La franja horaria es GMT +2. Ahora son las 17:17:48.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi