Partenaire Microsoft

 

 

Bienvenue, Invité
Nom d'utilisateur : Mot de passe : Se souvenir de moi
  • Page :
  • 1

SUJET : Connecter un lecteur avec authentification

Connecter un lecteur avec authentification il y a 5 ans 9 mois #75

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)
'///////////////////////////////////////////////////////////
'// 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.

  • Page :
  • 1
Temps de génération de la page : 0.220 secondes