Discussion :

[phplive]

Bjr,

Je cherche à recupérer les informations sur la configuration des postes sous Windows (mémoiré installé, logiciels, fabriquant, disques durs, BIOS etc ...) dans le cadre de la gestion d'un parc informatique.

Avec Delphi 7 j'y arrive facilement en utilisant WMI (un grand merci à Laurent Dardenne grand gourou de la doc s'il en est ...)

Cependant je suis obligé d'indiquer manuellement les classes WMI (Win32_BIOS, Win32_OperatingSystem, Win32_PhysicalMemory etc ...)

Afin de faire un browser j'aimerais savoir s'il existe un moyen de récuperer la liste des noms de toutes les classes WMI ? Ca doit être faisaible puisque l'utilitaire wbemtest.exe fournit par Microsoft le fait ...

Comment ?

Si vous avez une idée ...

Merci

[anapurna]

salut

je ne sais pas si c'est cela que tu demenade mais bon
a toi de voir

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    // procedure ButtonClick(Sender: TObject);
  private
    { Déclarations privées }
  Protected
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
 
uses
  ActiveX, WbemScripting_TLB;
 
function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;
  var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';
 
procedure DumpWMI_Process(Process: SWBemObject);
var
  Enum: IEnumVARIANT;
  varArr: OleVariant;
  lNumElements: ULong;
  SProp: ISWbemProperty;
  Prop: OleVariant;
  PropName: string;
  PropType: string;
  PropValue: string;
begin
  Form1.Memo1.Lines.Add('=> WMI Path: ' + Process.Path_.Path);
  Enum := Process.Properties_._NewEnum as IEnumVariant;
  while (Succeeded(ADsEnumerateNext(Enum, 1, VarArr, lNumElements))) and
    (lNumElements > 0) do
  begin
    if Succeeded(IDispatch(varArr).QueryInterface(SWBemProperty, SProp)) and
      Assigned(SProp) then
    begin
      try
 
        PropName  := SProp.Name;
        Prop := SProp.Get_Value;
        PropType := VarTypeAsText(VarType(Prop));
        PropValue := VarToStr(Prop);
        Form1.Memo1.Lines.Add('  + ' + PropName + '[' + PropType + '] = ' + PropValue);
      except
        on E: Exception do
        begin
          // WriteLn(ErrOutput, PropName, ': ', E.Message);
        end;
      end;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Server: string;
  Enum: IEnumVARIANT;
  varArr: OleVariant;
  lNumElements: ULong;
  AName: array[0..255] of Char;
  ASize: DWORD;
begin
  if (ParamCount = 0) then
  begin
    Server := '';
    ASize  := SizeOf(AName) - 1;
    if GetComputerName(@AName, ASize) then
     Server := AName;
  end
  else
  begin
    Server := ParamStr(1);
  end;
 
   try
    Memo1.Lines.BeginUpdate;
    Enum := CoSWbemLocator.Create.ConnectServer(Server, 'root\cimv2', '',
      '', '', '', 0, nil).ExecQuery('Select * from Win32_Process', 'WQL',
      wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;
    while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and (lNumElements > 0) do
    begin
      DumpWMI_Process(IUnknown(varArr) as SWBemObject);
    end;
  finally
    Memo1.Lines.EndUpdate;
  end;
end;

@+ Phil

[phplive]

Bonsoir,

Ca ne répondait pas exactement ... Par contre ca m'a donné un ex pour parcourir les propriétés

Finalement j'ai trouvé :

Code :

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

1
2
 
WmiObjectSet := WmiServices.SubclassesOf('', wbemQueryFlagDeep, nil);

Simple


Reste plus qu'à collecter toutes ces informations et les enregistrer dans une base MySQL : plus facile à dire qu'à faire ...