Probleme WMI avec CIM_DataFile
Bonjour à toutes et à tous,
Je sollicite votre aide car j'ai une erreur sur une appli que je developpe actuellement.
Mon but est de pouvoir copier des fichiers d'une machine distante sur un emplacement réseau, pour cela j'utilise WMI, voici ma fonction :
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
|
'DECLARATION POUR LA REQUETE WMI
'Dim ms As System.Management.ManagementScope
Dim oq As System.Management.ObjectQuery
Dim mos As System.Management.ManagementObjectSearcher
Dim co As New ConnectionOptions
Dim obj As System.Management.ManagementObject
Dim ans As Double
Dim col As New ArrayList
Dim retour_execution
co.Authority = "ntlmdomain:mondomaine"
co.Username = frm_menu.compte.Text
co.Password = frm_menu.mdp.Text
Try
'On cree la connection wmi
Dim ms As New ManagementScope("\\" & poste & "\root\cimv2", co)
Dim classInstance As New ManagementObject(ms, New ManagementPath("CIM_DataFile.Name='" & source & "'"), _
Nothing)
' Obtain [in] parameters for the method
Dim inParams As ManagementBaseObject = _
classInstance.GetMethodParameters("Copy")
' Add the input parameters.
inParams("FileName") = destination
' Execute the method and obtain the return values.
Dim outParams As ManagementBaseObject = _
classInstance.InvokeMethod("Copy", inParams, Nothing)
retour_execution = outParams("ReturnValue")
If retour_execution = 0 Then
log = log & Now & " - Copie terminée " & poste & " avec succès" & vbCrLf
Else
log = log & Now & " - " & Err.Description & vbCrLf
End If
Catch
log = log & Now & " - " & Err.Description & vbCrLf
End Try |
Ce code fonctionne bien lorsque je veux copier des fichiers d'un répertoire à l'autre (sur le même disque), par contre dès que je lui indique un map réseaux (pour la destination) cela plante sur la ligne en rouge, avec comme message d'erreur NON TROUVE. Sur ma machine distante j'ai bien accès au répertoire réseaux en écriture, ce n'est donc pas un problème de droits (enfin je suppose). Avez vous une piste à me suggérer, merci.
