Discussion :

[Just-Soft]

Bonjour !

Delphi 2010 et windows 8.

J'ai récupéré ce bout de code qui m'a l'air sympa mais qui affiche une erreur à son exécution

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
function GetWMIstring(const WMIClass, WMIProperty:string): string;
const
  wbemFlagForwardOnly = $00000020;
var
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  Result:='';
 
  try
    FWbemObjectSet := FWMIService.ExecQuery(Format('Select %s from %s',
                    [WMIProperty, WMIClass]),'WQL',wbemFlagForwardOnly);
    oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  except
    Showmessage('erreur');
    Exit;
  end;
  if oEnum.Next(1, FWbemObject, iValue) = 0 then
    if not VarIsNull(FWbemObject.Properties_.Item(WMIProperty).Value) then
      Result:=FWbemObject.Properties_.Item(WMIProperty).Value;
  FWbemObject := Unassigned;

Quelqu'un a t-il déjà essayer d'accéder aux info de la WMI avec delphi ?

Merci par avance.

[fbalien]

Bonjour

A quel niveau est l'erreur ?

[ShaiLeTroll]

Quelqu'un a t-il déjà essayer d'accéder aux info de la WMI avec delphi ?

Il y a même une toute petite FAQ Accueil / Delphi / FAQs / FAQ Delphi / Introduction à WMI

Aurais-tu les paramètres pour que l'on reproduise ?
Aurais-tu la classe d'exception et probablement un code erreur HRESULT ?

[Just-Soft]

Aurais-tu la classe d'exception et probablement un code erreur HRESULT ?

la classe d'exception je viens de la trouver, voici le nouveau code aménagé

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
function GetWMIstring(const WMIClass, WMIProperty:string): string;
const
  wbemFlagForwardOnly = $00000020;
var
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  Result:='';
 
  try
    FWbemObjectSet := FWMIService.ExecQuery(Format('Select %s from %s',
                    [WMIProperty, WMIClass]),'WQL',wbemFlagForwardOnly);
    oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  except
    on E : EOleSysError do
    begin
      Showmessage(Format('Message %s', [E.Message]));
      Exit;
    end;
  end;
  if oEnum.Next(1, FWbemObject, iValue) = 0 then
    if not VarIsNull(FWbemObject.Properties_.Item(WMIProperty).Value) then
      Result:=FWbemObject.Properties_.Item(WMIProperty).Value;
  FWbemObject := Unassigned;
end;

L'erreur que j'obtiens à l'exécution est :

Opération de variant incorrecte

[fbalien]

Vous passez quoi en paramètres WMIClass, WMIProperty ?

[Just-Soft]

Vous passez quoi en paramètres WMIClass, WMIProperty ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var FSWbemLocator, FWMIService : OLEVariant;
.
.
.
 
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
 
  x := GetWMIstring('Win32_BIOS','SerialNumber');
  y := GetWMIstring('Win32_PhysicalMedia','SerialNumber');
 
  ShowMessage(x+';'+y);

[SergioMaster]

Bonjour,

pour l'utilisation des WMI, je ne me casse plus la tête, j'utilise WMI Delphi code Creator, 'un must have'