Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2207 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Connection à un serveur

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Connection à un serveur

n°2198823
vinker
Posté le 26-07-2013 à 10:04:33  profilanswer
 

Bonjour,
Voici le problème auquel je suis confronté.
J'ai une série d'applicatif Access qui doivent à un certain moment se connecter à un serveur pour y lire des info's dans un fichier texte.
Pour accéder au server en question il faut entrer un login & mot de passe.
pour cela j'ai créer un racourci qui pointe vers l'adresse IP du server, il faut alors entrer le login et pw.
Je cherche à pouvoir intégrer dans mon code l'adresse, le login et le PW nécessaire pour établir ma connexion.
Existe-t-il une procédure pour établir une connexion ?
 
Merci pour votre aide

mood
Publicité
Posté le 26-07-2013 à 10:04:33  profilanswer
 

n°2202263
westdl
Posté le 09-09-2013 à 10:51:39  profilanswer
 

Bonjour Vinker,
 
Je suis nouveau sur le forum c'est pourquoi je ne te répond que maintenant.  
 
J'utilise cette fonction pour maper un disque réseau depuis pas mal de temps et j'en suis satisfait.
 
Il y a quatre parametres à passer lors de l'appel:
DriveMap: la lettre du lecteur (exemple X:\)
Path: Chemin du répertoire qui t'interesse sur le lecteur que tu map
user: le login de connection
password: le mot de passe
 
Function MapDisk(ByVal DriveMap As Object, ByVal Path As Object, ByVal user As String, ByVal password As String)
 
        'Déclaration des objets
        Dim objNet As Object
        Try
            'Instanciation des objets
            objNet = CreateObject("Wscript.Network" )
            'Vérifie si le lecteur ("H:" par exemple) existe
            Dim cdrive = My.Computer.FileSystem.GetDriveInfo(DriveMap)
            If Not cdrive.isready Then
                'il n'existe pas on le mappe
                objNet.MapNetworkDrive(DriveMap, Path, "false", user, password)
                'objNet.MapNetworkDrive(lettre,chemin de type "\\10.0.2.44\Partage",reconnection au démarrage du pc,utilisateur,mot de passe)
                'Il n'est pas obligatoire d'indiquer l'utilisateur et le mot de passe selon les droits du disque à monter
            Else
                'il existe alors on le démappe et on le remappe (si c'est le même lecteur permet de réactiver le disque)
                objNet.RemoveNetworkDrive(DriveMap, True)
                objNet.MapNetworkDrive(DriveMap, Path, "false", user, password)
            End If
        Catch err As System.Exception
            'Capture de l'erreur éventuelle
            MsgBox("Map->" + DriveMap + Path + " || " + err.ToString)
        End Try
        Return (DriveMap)
    End Function
 
ci-dessous, une fonction qui demap le disque réseau.
 
Function DeMapDisk(ByVal DriveMap As Object)
        Dim objNet As Object = CreateObject("Wscript.Network" )
        objNet.RemoveNetworkDrive(DriveMap, True)
        Return DriveMap
    End Function
 
Si cela peut t'aider.
 

n°2202275
vinker
Posté le 09-09-2013 à 11:32:59  profilanswer
 

Merci Westdl,
 
J'avais trouvé qqch d'approchant, mais ce que tu proposes est plus complet.
 
Merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Connection à un serveur

 

Sujets relatifs
[solved] Démarrer WEBrick ou Mongrel sans connection réseau[C] Connection à un serveur mail
[php] connection à un serveur de news avec joomla[ASP] Connexion sur une base Access située sur un autre serveur
Interface connection serveur ftp. formulaire html + variable JSConnection LDAP fonctionne sur le serveur mais pas en LOCAL ?
Connection a une bdd MS SQL depuis serveur linuxproblème connection VB6 vers MSSQL par ODBC W2003 SERVEUR
problème connection VB6 vers MSSQL par ODBC W2003 SERVEURPb "too connection" a mon serveur mysql
Plus de sujets relatifs à : Connection à un serveur


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR