Discussion :

[vincentlec]

Bonjour,

Je tente de réaliser via WMI un programme qui me donnerait le login windows de l'utilisateur en cours.

Voici mon code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Var
  WMILocator: TSWbemLocator;
  WMIService: SWbemServices;
  WMIObjectSet: SWbemObjectSet;
  WMIObject: SWbemObject;
 
  WmiProperty: SWbemProperty;
  WmiPropertySet: SWbemPropertySet;
 
  PropertyEnumerator, ObjectEnumerator: IEnumVariant;
  ArrayVariant: OleVariant;
 
  OldCursor: TCursor;
 
  NumberItem: LongWord;
  // userName, domain: string;
 
begin
  Try
    try
     WMILocator:= TSWbemLocator.Create(nil);
     WmiService:= WMILocator.ConnectServer('.', 'root\CIMV2','','','','', wbemConnectFlagUseMaxWait, nil);
     WmiObjectSet := WMIService.InstancesOf('Win32_ComputerSystem' , wbemFlagReturnWhenComplete, Nil);
 
     ObjectEnumerator:= (WmiObjectSet._NewEnum) as IEnumVariant;
 
     while (ObjectEnumerator.Next(1, ArrayVariant, NumberItem) = S_OK) do
     begin
       WmiObject := IUnknown(ArrayVariant) as SWBemObject;
       WmiPropertySet:= WmiObject.Properties_;
       PropertyEnumerator:= (WmiPropertySet._NewEnum) as IEnumVariant;
 
       while (PropertyEnumerator.Next(1, ArrayVariant, NumberItem) = S_OK) do
       begin
         WmiProperty := IUnknown(ArrayVariant) as SWBemProperty;
         If WmiProperty.name='UserName' then
          Memo1.Lines.Add(WmiProperty.Get_Value);
       end;
     End;
 
    except
     Memo1.Lines.Add('*** Echec de l''exécution de la requête WMI!!!');
    end;
  Finally
    WMILocator.Disconnect; WMILocator.Free;
  end;
end;

Ce code marche parfaitement sous XP mais sous windows 2000 j'ai le message de mon except dans mon memo, je ne vois pas d'où ca pourrais venir. Les tests sous windows 2000 sont réalisé sur le sp4.

Merci de l'aide.

[vincentlec]

J'ai trouvé, ca venais tout bêtement du fait que windows 2000 n'a pas le même wbemdisp.tlb qu'XP et qu'il ne connais pas le wbemFlagReturnWhenComplete, j'ai donc remplacé le flag par 0 et ca fonctionnait sur les deux OS. Maintenant a savoir si 0 est une bonne valeur de à la place de wbemFlagReturnWhenComplete...