WMI fonction tableau

Version imprimable

Bonjour à tous,
Je suis entrain de créer une application qui affiche les paramètres du PC via WMI (ip, gateway, nom du pc, ...). Vu toutes les infos que j'aimerai récuperer j'ai créer une fonction. Le problème est que quand par exemple je liste toutes les cartes réseaux de mon pc avec la fonction, la fonction explore toutes les cartes réseau et result me renvoie le derniere ce qui est logique. Alors je me suis dit qu'il fallait mettre le resultat dans un tableau comme sa je pourrais tout récuperer. Débutant sous delphi, je n'arrive pas a mettre dans le tableau :( voila ma fonction, elle ne gère pas encore les erreur et je vais surement avoir des problème par rapport a quel type d'info WMI va me renvoyer mais je verrais sa plus tard... Si quelqu'un voit comment faire merci d'avance

Code:

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
function InfoWMI(Instance, Properties : String) :String;
var
  WmiLocator:          TSWbemLocator;
  WmiService:          SWbemServices;
  WmiObjectSet:        SWbemObjectSet;
  WmiObject:           SWbemObject;
  //WmiProperty:         SWbemProperty;
 
  ObjectEnumerator:    IEnumVariant;
 
  ArrayVariant:        OleVariant;
  NumberItem:          LongWord;
 
  OldCursor:           TCursor;
  i: integer;
begin
  i := 0;
  WmiLocator:= TSWbemLocator.Create(nil);
  try
    OldCursor := Screen.Cursor;
    Screen.Cursor := crAppStart;
    // Connexion WMI (PCName, 'ROOT\CIMV2', UserName, UserPassword, '', '', ...)
    WmiService:= WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '',
                                          '', wbemConnectFlagUseMaxWait, nil);
    WmiObjectSet := wmiService.InstancesOf(Instance,
                                            wbemFlagReturnWhenComplete, nil);
    // Affecte un énumérateur pour la collection d'objet SWbemObject
    ObjectEnumerator:= (WmiObjectSet._NewEnum) as IEnumVariant;
 
    // Retourne NumberItem éléments dans le tableau ArrayVariant,
    while (ObjectEnumerator.Next(1, ArrayVariant, NumberItem) = S_OK) do
    begin
      i := i + 1;
      // Récupére de la collection l'objet SWbemObject courant
      WmiObject := IUnknown(ArrayVariant) as SWBemObject;
 
      // Retrouve la propriétés de l'instance au format MOF
      Result := AdjustLineBreaks(WmiObject.Properties_.Item(Properties,0).Get_Value);
      test[i] := WmiObject.Properties_.Item(Properties,0).Get_Value;
 
    end;
    Screen.Cursor:= OldCursor;
  Finally;
    WmiLocator.Free;
  end;
end;

11/04/2007, 11h48
philnext

C'est pas très clair : tu récupères quoi en fait : une string par carte réseau c'est ça ?
11/04/2007, 12h04
BATiViR

Oui enfaite

Code:

Result := AdjustLineBreaks(WmiObject.Properties_.Item(Properties,0).Get_Value);

me renvoie le nom de ma carte réseau, la properties = 'Description'
11/04/2007, 12h13
philnext
Ben le plus simple c'est d'utiliser une TStringList.
Pour rajouter des string (une par carte si j'ai compris) tu prends la fonction Add.

Pour lister toutes tes strings tu fais un code style :
Code:

1 2 3 4 5 for iBcl := 0 to myTStringList.count-1 do begin showMessage(myTStringList[iBcl]); end;
Attention pour utiliser une TStringList il faut la 'créer' :
Code:

1 2 myTStringList :=TStringList.create;
et faire un free à la fin.
11/04/2007, 12h18
BATiViR

Je ne comprend pas comment faire que result me retourne un TStringListe. Pourrais-tu être plus détaillé je débute en delphi et cela est ma première fonction :oops:
11/04/2007, 12h55
philnext

aah !
Ben dans ta boucle tu fais :

Code:

myTStringList.add(WmiObject.Properties_.Item(Properties,0).Get_Value);
11/04/2007, 14h04
BATiViR
Merci sa marche parfait! Maintenant le seul problème est que si je lui demande par exemple l'adresse ip de la carte réseau il fau que je mette
Code:

1 2 Proprietes = 'IPAddress'; edIP := WmiObject.Properties_.Item(Proprietes,0).Get_Value[0];
et si je lui demande la description
Code:

1 2 Proprietes = 'Description'; edName := WmiObject.Properties_.Item(Proprietes,0).Get_Value;
Mon problème est que je vais utiliser la fonction pour les 2, et dans un il faut mettre (Get_Value[0];) car il me renvoie un tableau et dans l'autre il faut (Get_Value;).
Comment savoir si c'est un tableau ou un string??
11/04/2007, 14h13
philnext

J'ai pas compris la question.
11/04/2007, 14h16
BATiViR
dsl, si je demande la description de la carte réseau je fai sa
Code:

1 2 Proprietes = 'Description'; edName := WmiObject.Properties_.Item(Proprietes,0).Get_Value;
et si je demande l'adresse IP je fais sa
Code:

1 2 Proprietes = 'IPAddress'; edIP := WmiObject.Properties_.Item(Proprietes,0).Get_Value[0];
sauf erreur l'adresse IP est un tableau array et la description est un string. Dans ma fonction j'aimerai faire un if ou quelque chose du genre pour demande si

Code:

WmiObject.Properties_.Item(Proprietes,0).Get_Value

est un array ou un string ou une autre solution pour lui mettre [0] ou pas...
11/04/2007, 14h18
Kaféine

je t'ai déja donné la solution ici :?
http://www.developpez.net/forums/sho...=312494&page=2
11/04/2007, 14h21
philnext

Disons que, par principe, tu es censé savoir ce que tu récupères.
Par exemple si tu fais un truc automatique pour prendre le [0] si tu reçois un tableau, comment fais tu quand tu as besoin de [1].
Non, la manière que tu utilises est correcte.