Page 2 sur 2
Re: [..] Script pour copier des fichiers vers une liste de p
Posté : mer. 25 mai 2011 10:52
par sksbir
fgouret a écrit :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...
Re: [..] Script pour copier des fichiers vers une liste de p
Posté : mer. 25 mai 2011 11:09
par 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 ..
Re: [R] Script pour copier des fichiers vers une liste de po
Posté : mer. 25 mai 2011 11:43
par 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
Re: [..] Script pour copier des fichiers vers une liste de p
Posté : mer. 25 mai 2011 11:49
par 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 ?