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 7 mois #75

  • admin
  • Hors Ligne
  • Administrateur
  • Administrateur
  • Messages : 1130
  • Karma: 22
  • Remerciements reçus 157
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é: admin05

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

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