Ver Mensaje Individual
  #4  
Antiguo 15-05-2022
elrayo76 elrayo76 is offline
Miembro
 
Registrado: ene 2004
Ubicación: En la tierra, por eso mis archivos en la tierra y no en la nuebe...
Posts: 290
Reputación: 21
elrayo76 Va por buen camino
Buenas, perdón por la demora en responder pero estuve de viaje estos dos últimos días por trabajo.


Neftalí, esto es lo que hago para conectar con WMI.


Código Delphi [-]
var
  objLocator:  ISWbemLocator;

begin
  FConnected := False;
  objLocator := CoSWbemLocator.Create;

  try
      // Hace la conexión del WMI con 'root\cimv2'.
      FServices := objLocator.ConnectServer(FHost, GetRoot, FUser, FPassword, '', '', 0, nil);
  except
    on e: Exception do  
      MessageError(SysErrorMessage(GetLastError));
  end;


El tema es que si le doy pausa o lo detengo al servicio no llega nunca al error. Se queda colgado en donde se carga la variable FService


¿Tendrá algo que ver la forma en que llamo a la clase CoSWbemLocator? igual veo que es como lo haces tú en las GLibWMI.


Como ya comente antes, en algunos otros foros preguntan por este mismo problema y ninguno puede dar una solución al respecto. Por eso mismo es que pienso que hay que ver por otro lado si el servicio esta corriendo antes de intentar la conexión.



Saludos,
El Rayo
__________________
Si tienes una función o procedimiento con diez parámetros, probablemente hayas olvidado uno
Responder Con Cita