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'

[fbalien]

Bonjour

je viens de tester votre code et cela fonctionne
- Delphi Seattle
- Windows 7
- Ordinateur HP

a quel ligne cela plante ?
en utilisant WMICodeCreator vous avez un résultat sur les requêtes ?

[fbalien]

SergioMaster merci pour ce lien vers ce super outils

[Just-Soft]

Bonjour

je viens de tester votre code et cela fonctionne
- Delphi Seattle
- Windows 7
- Ordinateur HP

a quel ligne cela plante ?
en utilisant WMICodeCreator vous avez un résultat sur les requêtes ?

sur la 1ère ligne !

Code :

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

FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');

[fbalien]

La couche WMI est bien fonctionnel sur votre PC ?

[Just-Soft]

La couche WMI est bien fonctionnel sur votre PC ?

Que voulez-vous dire par fonctionnel ?

[ShaiLeTroll]

Starting and Stopping the WMI Service

[fbalien]

Bonjour

pour être sur que la couche WMI soit ok
1- le service doit être démarré (winmgmt ou "Infrastructure de gestion Windows" dans un windows seven en Français)
2- Ouvrir Gestion de l'ordinateur demarrer -> executer -> compmgmt.msc
3- Déplier Service et applications
4- Clic Gauche sur Contrôle WMI
5- Clic Droit sur Contrôle WMI -> Propiété
6- une fenêtre doit s'ouvrir et dans l'onglet générale il devrait y avoir les information de base qui s'affichent (Processeur , système d'exploitation .....)
7- Si les info ne s'affiche pas il faut réparer la couche WMI

- Dans une invite de commande en mode admin

Code :

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

1
2
3
4
5
6
7
8
   Cd C:\Windows\System32\wbem <entrée>
   net stop ccmexec /y <entrée>
   net stop sharedaccess /y <entrée>
   net stop winmgmt /y <entrée>
   Ren Repository repository_old <entrée>
   net start winmgmt /y <entrée>
   for /f %s in ('dir /b *.mof') do mofcomp %s <entrée>
   for /f %s in ('dir /b en-us\*.mfl') do mofcomp en-us\%s <entrée>

[SergioMaster]

pour être sur que la couche WMI soit ok ...

ou faire un test avec WMI Delphi Code Creator

[Just-Soft]

ou faire un test avec WMI Delphi Code Creator

Merci à tous pour les réponses ...

Oui c'est ce que j'ai fait Serge mais même avec WMI Delphi Code Creator j'ai cette créature (erreur) !!!

[fbalien]

Bonjour

Vous avez tenté la réparation (point 7 de mon message)

[Just-Soft]

Bonjour

Vous avez tenté la réparation (point 7 de mon message)

Je viens de le faire à l'instant même ... mais toujours la même erreur

[SergioMaster]

Bonjour,

s'agirait-il alors d'une question de Droits ? (tester en mode administrateur) ou d'antivirus ?

[Just-Soft]

Bonjour,

s'agirait-il alors d'une question de Droits ? (tester en mode administrateur) ou d'antivirus ?

de droit je ne crois pas car j'ai fait le test en mode admin

antivirus je ne vois pas trop le lien avec le message d'erreur 'impossible de convertir *****' mais je vais désactiver mon antivirus et voir sait-on jamais !