IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

API, COM et SDKs Delphi Discussion :

comment utiliser Wmi ?


Sujet :

API, COM et SDKs Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Juin 2003
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Juin 2003
    Messages : 13
    Par défaut comment utiliser Wmi ?
    soir all

    Quelqu'un a til reussit à utiliser les exemples du tutoriel WMI ?

    j'ai D6, j'arrive à rien ..
    le code ci dessous me dit "parametre non valide"



    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
     
    procedure TForm1.Button1Click(Sender: TObject);
    Var
     
      WMILocator:          TSWbemLocator;
      WmiService:          SWbemServices;
     
      OldCursor:           TCursor;
     
    begin
     WMILocator:= TSWbemLocator.Create(self);
     try
     
      OldCursor := Screen.Cursor;
      Screen.Cursor := crSQLWait;
     
      WmiService:= WMILocator.ConnectServer('.', 'ROOT\CIMV2', '', '', '',
                                            '', 16, nil);
     Finally
      WMILocator.Free;
      Screen.Cursor:= OldCursor;
     end;
     
    end;
    quelqu'un aurrait-il une bonne idée ?

    Merci Merci
    Cordialement
    Ln

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2002
    Messages
    89
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juin 2002
    Messages : 89
    Par défaut
    Salut,

    Oui j'arrive à les compiler et les utiliser sans problèmes (Delphi 7 Pro)

    Sur quelle ligne le compilateur s'arrête-t-il ??

    As-tu importer la libraire "Microsoft WMI Scripting" ??

  3. #3
    Membre averti
    Inscrit en
    Juin 2003
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Juin 2003
    Messages : 13
    Par défaut
    oui, c'est ça le pire, ça m'ennerve


    bon, apparement, ceci fonctionne :

    Ln

    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
     
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, WbemScripting_TLB, ComObj;
     
    type
      TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.dfm}
     
    procedure TForm1.Button1Click(Sender: TObject);
     
    Var
    objWMIService,objectLocator,oReg :Olevariant;
    OldCursor:  TCursor;
    begin
    try
    OldCursor := Screen.Cursor;
    Screen.Cursor := crSQLWait;
    objectLocator := CreateoleObject('WbemScripting.SWbemLocator');
    objWMIService:= objectLocator.ConnectServer('.','root\default','','');
    objWMIService.Security_.ImpersonationLevel :=3 ;
    Finally
      Screen.Cursor:= OldCursor;
    end;
    end;

  4. #4
    Rédacteur
    Avatar de Giovanny Temgoua
    Profil pro
    Étudiant
    Inscrit en
    Novembre 2003
    Messages
    3 830
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2003
    Messages : 3 830
    Par défaut
    Peut être qu'en lisant quelques tutos tu y verrais plus clair :
    http://laurent-dardenne.developpez.com/

Discussions similaires

  1. Associators of , comment l'utiliser wmi ?
    Par Acris dans le forum VBScript
    Réponses: 0
    Dernier message: 26/04/2010, 13h08
  2. Comment Utiliser les WMI
    Par BATiViR dans le forum C++Builder
    Réponses: 15
    Dernier message: 24/10/2007, 19h13
  3. Réponses: 5
    Dernier message: 11/06/2002, 15h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo