Envoi fichier poste distant

Version imprimable

23/04/2007, 12h40
BATiViR

Envoi fichier poste distant

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
23/04/2007, 14h46
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...
23/04/2007, 15h17
BATiViR

Regarde ce tuto de
laurent dardenne
23/04/2007, 15h51
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.

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:

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:

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

24/04/2007, 09h35
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...)
24/04/2007, 09h50
BATiViR

uses WbemScripting_TLB, ActiveX

et dans les var globales DNS2 :String;
24/04/2007, 21h15
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...

Citation:

Envoyé par Cthulhu_RLyeh

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 ?
25/04/2007, 14h01
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.
25/04/2007, 15h58
Laurent Dardenne

Citation:

Envoyé par Cthulhu_RLyeh

j'ai ouvert une discussion sur ce sujet

J'y ai répondu.

Citation:

Envoyé par Cthulhu_RLyeh

PS : merci pour le tutoriel.

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