Discussion :

[BATiViR]

Bonjour a tous,
mon application se connecte via WMI à d'autres postes en sachant leurs mots de passes administrateur... Je me demandai si il était possible de leurs envoyer un fichier via WMI ou autre manière... Je sais le nom du PC, user et mot de passe... J'aimerai explorer l'ordinateur distant et dire où mettre le fichier que je veux envoyer...
Merci d'avance a tous

[Cthulhu_RLyeh]

Désolé de décevoir, mais je ne donne pas de réponse, j'arrive toujours pas à utiliser les WMI, et comme tu as l'air de savoir les utiliser...

J'utilise delphi 2005 et Xp, j'importe la librairie, mais j'arrive pas à aller plus loin...

[BATiViR]

Regarde ce tuto de
laurent dardenne

[Cthulhu_RLyeh]

Lu, imprimé et même relié !
Je suis sa méthode, mais c'est après que ça coince. Les importations de librairies se passent bien, mais je n'arrive pas à compiler des exemples d'utilisations des WMI.

[BATiViR]

Je débute en delphi mais bon j'ai fai une fonction pour récuperer les infos. Elles fonctionne bien pour récuperer address IP, ...

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
// Fonction lecture infos WMI
// InfoWMI('Nom de l'instance Win32_...', 'Nom de la propriété')
function InfoWMI(Instance, Properties : String) :TStringList;
var
  WmiLocator:          TSWbemLocator;
  WmiService:          SWbemServices;
  WmiObjectSet:        SWbemObjectSet;
  WmiObject:           SWbemObject;
  //WmiProperty:         SWbemProperty;
 
  ObjectEnumerator:    IEnumVariant;
 
  ArrayVariant:        OleVariant;
  NumberItem:          LongWord;
begin
  result := TStringList.create;
  DNS2 := TStringList.create;
  WmiLocator:= TSWbemLocator.Create(nil);
  try
    Screen.Cursor := crAppStart;
    // Connexion WMI (PCName, 'ROOT\CIMV2', UserName, UserPassword, '', '', ...)
    WmiService:= WMILocator.ConnectServer(sPCName, 'ROOT\CIMV2', sUserName, sUserPwd, '',
                                          '', 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
      // Récupére de la collection l'objet SWbemObject courant
      WmiObject := IUnknown(ArrayVariant) as SWBemObject;
      If WmiObject.Properties_.Item(Properties,0) <> nil Then
      begin
        if not VarIsNull(WmiObject.Properties_.Item(Properties, 0).Get_Value) Then
        begin
          if WmiObject.Properties_.Item(Properties,0).IsArray Then
          begin
            if not VarArrayHighBound(WmiObject.Properties_.Item(Properties,0).Get_Value, 1) > 0 Then
            begin
              // Retrouve la propriétés de l'instance au format MOF
              result.add(WmiObject.Properties_.Item(Properties,0).Get_Value[0]);
              if(Properties = 'DNSServerSearchOrder') Then DNS2.add('');
            end
            else
            begin
              result.add(WmiObject.Properties_.Item(Properties,0).Get_Value[0]);
              if(Properties = 'DNSServerSearchOrder') Then
              begin
                if VarArrayDimCount(WmiObject.Properties_.Item(Properties,0).Get_Value) > 0 Then
                  DNS2.add(WmiObject.Properties_.Item(Properties,0).Get_Value[1])
                else DNS2.add('');
              end;
            end;
          end
          else
          begin
            // Retrouve la propriétés de l'instance au format MOF
            result.add(WmiObject.Properties_.Item(Properties,0).Get_Value)
          end;
        end
        else
        begin
          result.add('');
          if(Properties = 'DNSServerSearchOrder') Then DNS2.add('');
        end;
      end;
    end;
    Screen.Cursor:= crDefault;
  Finally;
  WmiLocator.Disconnect;
  WmiLocator.Free;
  end;
end;

Par exemple pour récuperer addresse IP

Code :

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

lbCardNumResult.Caption := InfoWmi('Win32_NetworkAdapterConfiguration WHERE IPEnabled = True', 'IPAddress')[0];

[Cthulhu_RLyeh]

Je te remercie, mais tu pourrais aussi me préciser les USES que tu a utilisé, lorsque je teste ta fonction, il me manque plein de déclaration (IEnumVariant, DNS2...)

[BATiViR]

uses WbemScripting_TLB, ActiveX

et dans les var globales DNS2 :String;

[Laurent Dardenne]

Salut,
Bativir pour ton besoin regarde les outils de Sysinternals sur le site de MS, je ne suis pas certains que WMI permet de faire des copie de fichiers entre PC.
Si tu fais de l'administration système regarde PowerShell...

mais je n'arrive pas à compiler des exemples d'utilisations des WMI.

Moi je n'arrive pas à comprendre ton problème. Peut-on avoir d'autres informations à son sujet ou c'est top-secret ?

[Cthulhu_RLyeh]

Euh, je l'explique en vitesse (j'ai ouvert une discussion sur ce sujet ( http://www.developpez.net/forums/sho...d.php?t=321662 ).

je n'arrive pas à ouvrir les exemples WMI avec Delphi 2005, en ayant importé les bibliothéques requises.
La solution (simple, mais n'expliquant pas le pourquoi du comment, se nomme Delphi 7...).

Comme je dois faire un logiciel type Everest, enter API et WMI, le choix est vite fait !

PS : merci pour le tutoriel.

[Laurent Dardenne]

j'ai ouvert une discussion sur ce sujet

J'y ai répondu.

PS : merci pour le tutoriel.

De rien c'est fait pour, content qu'il puisse t'aider