[R] Redirection commande DOS

[DimVar]

Bonjour,

Voici un pb que je rencontre souvent.
Je souhaite, sur une commande DOS, faire une redirection vers un fic txt.
En gros, je map un lecteur reseau.
Je lance un "net use" vers fic txt pour l'afficher dans notepad pour controller que le lecteur est bien monté.
Voila le code auquel j'ai pensé :

Code : Tout sélectionner

dim $file1, $file
$file_netuseLog = FileOpen("c:\temp\netuse.log", 9)
FileClose($file_netuseLog)


$net_delete = "net use * /delete /yes"
$net_use_y = "net use y: \\128.xxx.xxx.45\_test"
$net_use_control = "net use > c:\temp\netuse.log"


Run(@ComSpec & " /c " & $net_delete, "", @SW_HIDE)
Run(@ComSpec & " /c " & $net_use_y, "", @SW_HIDE)
Run(@ComSpec & " /c " & $net_use_control, @SW_HIDE)

run ("notepad c:\temp\netuse.log")

Le script ne plante pas, mais le fichier log reste vide...

Une idée ?

D'avance merci de votre aide.

Cdlt, Dimvar.

[DimVar]

J'ai trouvé un autre procédé :

Code : Tout sélectionner

dim $file1, $file
dim $net_delete = "net use * /delete /yes"
dim $net_use_y = "net use y: \\128.xxx.xxx.45\_test"
dim $net_use_control = "net use > c:\temp\netuse.log"

If FileExists ("c:\temp\netuse.log") Then FileDelete ("c:\temp\netuse.log")
If FileExists ("c:\temp\netuse.bat") Then FileDelete ("c:\temp\netuse.bat")
MsgBox (0,"delete all","")

$file_netuseLog = FileOpen("c:\temp\netuse.log", 9)
FileClose($file_netuseLog)
MsgBox (0,"cree le log","")

$file_netuseBat = FileOpen("c:\temp\netuse.bat", 9)
FileWriteLine ($file_netuseBat, "net use > c:\temp\netuse.log")
FileClose($file_netuseBat)
MsgBox (0,"cree le bat","")


Run(@ComSpec & " /c " & $net_delete, "", @SW_HIDE)
Sleep(5000)
Run(@ComSpec & " /c " & $net_use_y, "", @SW_HIDE)
MsgBox (0,"map les drives","")

Run("c:\temp\netuse.bat","", @SW_HIDE)
Sleep(2000)
Run ("notepad c:\temp\netuse.log")
 

Si vous aviez la reponse, elle m'interesse toujours.
Je clos.

Merci.

[Tlem]

DriveMapAdd() me semble bien plus pratique ...

[DimVar]

Effectivement...