[R] Script pour copier des fichiers vers une liste de poste

[sksbir]

merci,
Il n'y aurait pas une erreur dans la ligne:
$FileCopy = FileCopy("c:\script\salle203.txt", "\\" & $DrvMap & "\*.*", 9)
je ne comprend pas trop la destination "\\" & $DrvMap & "\*.*" et je ne comprend pas vraiment ce qu'il va avoir dans la variable $DrvMap
qu'en pensez-Vous ?
Autrement je vais faire le test que tu as dit
A +

ha oui, attention avec $drvmap :
Note: When using "*" for the device parameter the drive letter selected will be returned instead of 1 or 0, e.g. "U:". If there was an error using "*" then a blank string "" will be returned
Donc laisse tomber l'histoire du "O:" à la place de "*" : avec "*", il prend une lettre dispo pour faire le mappage, et il te retourne cette lettre dans drvmap, voila pourquoi shrek la réutilise dans filecopy...

Essaye de monter le partage, puis de faire le filecopy dans le sous-répertoire ensuite, plutot que de tenter de monter le sous-répertoire du partage...

[fgouret]

J'ai fais le test, donc je monte sur C$ et apres Filecopy :

Code : Tout sélectionner

$FileCopy = FileCopy("c:\script\salle203.txt", "" & $DrvMap & "\script\", 9)

Je ne suis pas sur de ma ligne Filecopy :

Code : Tout sélectionner

#include <File.au3>

Global $strAdminNom = "administrateur"
Global $strAdminPasswd = "mpa"
Global $Char
Global $DrvMap
Global $FileCopy

_FileReadToArray("c:\script\salle203.txt", $Char)

For $i = 1 To $Char[0]
    ConsoleWrite($i & @TAB & "[" & $Char[$i] & "]"&@crlf) ; Affichage de debug
    $DrvMap = DriveMapAdd("*", "\\" & $Char[$i] & "\c$\script\", 0, $Char[$i] & "\" & $strAdminNom, $strAdminPasswd) ; on mappe la destination avec le compte admin de la machine de destination et non celui de la machine ou tourne le script
    MsgBox(0,"drivemap",$DrvMap)
    msgbox(0,"test", "\\" & $Char[$i] & "\c$\" & ", 0, " & $Char[$i] & "\" & $strAdminNom & ",pass=" &  $strAdminPasswd)
    $FileCopy = FileCopy("c:\script\salle203.txt", "" & $DrvMap & "\script\", 9)
    If $FileCopy = 0 Then MsgBox(0, "", "ca a merdu !")
    DriveMapDel($DrvMap) ; on démappe, avant de passer au suivant
Next
Exit

Tjrs pb, par contre dans ma message box Drivemap, rien ne s'affiche, c'est Vide,
C'est pas normal ?

Merci pour votre aide, je galère vraiment ..

[fgouret]

Bonjour (@SkSbir et @Zeshrek)

Avec votre patience et vos compétence, j'ai enfin trouvé la solution , voici mon code :

En fait j'ai virer la variable $DrvMap, car j'avais un champ vide
j'ai utilisé U: que j'ai mapé directement sur \\$char [$i]\c$
et ensuite filecopy sur u:\script\

Code : Tout sélectionner

#include <File.au3>

Global $strAdminNom = "administrateur"
Global $strAdminPasswd = "mpa"
Global $Char
Global $DrvMap
Global $FileCopy

_FileReadToArray("c:\script\salle203.txt", $Char)

For $i = 1 To $Char[0]
    ConsoleWrite($i & @TAB & "[" & $Char[$i] & "]"&@crlf) ; Affichage de debug
    DriveMapAdd("u:", "\\" & $Char[$i] & "\c$", 0, $Char[$i] & "\" & $strAdminNom, $strAdminPasswd) ; on mappe la destination avec le compte admin de la machine de destination et non celui de la machine ou tourne le script
    ;msgbox(0,"test", "\\" & $Char[$i] & "\c$\" & ", 0, " & $Char[$i] & "\" & $strAdminNom & ",pass=" &  $strAdminPasswd)
    $FileCopy = FileCopy("c:\script\salle203.txt", "u:\script\", 9)
    If $FileCopy = 0 Then MsgBox(0, "", "ca a merdu !")
    DriveMapDel("u:") ; on démappe, avant de passer au suivant
Next
Exit

Encore Merci à tous les deux

[zeshrek]

Bon, si ca marche c'est le principal. (oublie pas de passer le topic en [R] )
N'empeche que moi j'aimerai quand même bien savoir pourquoi il refuse de faire le mappage aver "*". Est ce que c'est lié au fait que quand on lui passe un user/pass il faut avoir une lettre en dur ?