Bonjour,
Dans certains cas on peut avoir besoin de connecter une lecteur sur un partage nécessitant une authentification, le script fourni avec la fonction "
ConnectDrive" n'est pas faite pour ça, il faut réaliser une autre fonction :
Code:
'/////////////////////////////////////////
'// Connect a drive with authentification
function ConnectDriveAuth(Drive,Path,Description,User,Password)
On Error Resume Next
Dim objNetwork,oScriptShell
Set objNetwork=WScript.CreateObject("WScript.Network")
Set oScriptShell=CreateObject("WScript.Shell")
Set oShell=CreateObject("Shell.Application")
err.number=0
objNetwork.MapNetworkDrive Drive,Path,false,User,Password
If err.number<>0 Then
oScriptShell.Popup "Connexion lecteur " & Drive & " (" & Path & ")" & VbCrLf & "Description=" & err.Description & VbCrLf & "Code=" & err.Number,5,"Erreur",64
Else
oShell.NameSpace(Drive).Self.Name=Description
End If
end function
Documentation MSDN de MapNetworkDrive :
msdn.microsoft.com/en-us/library/8kst88h6(v=vs.84).aspx
Cdt.
Le support
