On Error Resume Next
CONST VERSION = "1.0"
CONST OVERWRITE_EXISTING = True
strUserName ="login"
strPassword ="mdp"
set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set WshNet = CreateObject("WScript.Network")
Set objPassword = CreateObject("ScriptPW.Password")
Set WshShell = CreateObject("WScript.Shell")
StrDMZWeb1_Drive = "X:"
StrDMZWeb1_Path = "ftp://monserveur/"
Set WshNet = CreateObject("WScript.Network")
WshNet.RemoveNetworkDrive "X:"
WshNet.MapNetworkDrive StrDMZWeb1_Drive, StrDMZWeb1_Path,"True", strUsername, strpassword
Partager