Connecter un lecteur avec authentification

Plus d'informations
il y a 11 ans 6 mois #75 par Admin KoXo
Connecter un lecteur avec authentification a été créé par Admin KoXo
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
Les utilisateur(s) suivant ont remercié: Frank Admin

Connexion ou Créer un compte pour participer à la conversation.

Temps de génération de la page : 0.399 secondes