Si l'on souhaite ajouter un lecteur qui pointe vers une ressource du réseau qui n'est pas du même domaine et qui nécessite un mot de passe, voici un exemple de routine :
(Code à placer en fin de votre script)
Code:
'///////////////////////////////////////////////////////////
'// Connect a drive with credential
function ConnectDrive2(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
If User="" Then
objNetwork.MapNetworkDrive Drive,Path
Else
objNetwork.MapNetworkDrive Drive,Path,False,User,Password
End If
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
Exemple d'appel de cette routine :
ConnectDrive2 "
S:","
\\10.75.126.5\COMMUN","
Espace Commun Administratif","
toto","
123456"
Cdt.
Le support
