Discussion :

[LeBigornot]

Bonjour,

Je souhaite faire du remote WMI à partir de mon programme. Ce programme est un Service (d'ou l'appelle a LogonUser).
Mon probleme est que je n'arrive pas à me connecter (ConnectServer) à une machine avec Window 2003.
Message d'erreur : "Accès refusé" et j'ai beaucoup de mal à comprendre pourquoi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
begin
   if not LogonUser (User, '', Pass, LOGON32_LOGON_BATCH, LOGON32_PROVIDER_DEFAULT, Logon) then
   WriteLn(F,SysErrorMessage(GetLastError));
 
   // Use the User now logged
   ImpersonateLoggedOnUser(Logon);
 
   CoInitialize(nil);
   WMILocator:= TSWbemLocator.Create(nil);
   try
      WriteLn(F,'ConnectServer');
      WmiService:= WMILocator.ConnectServer(Serv, 'ROOT\CIMV2', '', '', '',
                                      '', wbemConnectFlagUseMaxWait, nil);
      WriteLn(F,'Connected');
   except
      on E:Exception do begin
         WriteLn(F,E.Message);
         end;
      end;
   WMILocator.Free;
   RevertToSelf;
   CloseHandle(Logon);
end;

Voilà cela marche pour acceder à un Windows 2000 mais pas un 2003
Ceci dit en utilisant le même code dans une programme en ligne de commande (pas un Service avec LOCALSYSTEM) çà marche très bien
D'ailleurs en paramétrant mon Service pour qu'il se lance avec un compte utilisateur spécifié çà marche partout ...

Merci

[Laurent Dardenne]

Salut,

Message d'erreur : "Accès refusé" et j'ai beaucoup de mal à comprendre pourquoi.

Je pencherais pour un problème de droit insuffisant.
L'eventlog ne contient pas d'info ?

[LeBigornot]

Merci l'eventlog m'a bien aidé ...
j'ai pu voir que ma demande de connexion n'était pas associée à mon User (celui du Logon User).

En fait je pensais qu'il fallait que je fasse le "LogonUser" mais il ne sert a rien pour se connecter à WMI à distance.
Il faut entrer les nom d'utilisateur le mot de passe dans le ConnectServer.
Le seul truc c'est qu'il faut bien rentrer le nom de Domaine du User dans son nom.

Comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
begin
   CoInitialize(nil);
   WMILocator:= TSWbemLocator.Create(nil);
   try
      WmiService:= WMILocator.ConnectServer(Serv, 'ROOT\CIMV2', '[Domain]\[User]', '[Pass]', '',
                                      '', wbemConnectFlagUseMaxWait, nil);
   except
      on E:Exception do ...
      end;
   WMILocator.Free;
end;

Sachant que si la machine distance n'est pas dans un domaine (mais dans un groupe de travail) c'est le nom de la machine distante qu'il faut mentionner et çà marche niquel !