Ver Mensaje Individual
  #4  
Antiguo 14-07-2011
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Reputación: 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 19:40:27.
Responder Con Cita