1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Mapper un lecteur réseau (connexion et déconnexion)

Mapper un lecteur réseau (connexion et déconnexion)

0/5 (11 avis)

Snippet vu 28 881 fois - Téléchargée 44 fois

Commenter

Contenu du snippet

En cherchant à mapper des lecteurs Réseaux sur mon serveur jai utilisé la bonne vieille commande Net USE. Donc je vous mets les 2 fonctions que jai développé dans ce cadre.

Source / Exemple : 


Public Function attendre(intervalle As String, indice As Integer) As Integer
    Valeur = Time
    tmp = DateAdd(intervalle, indice, Valeur)
    Do While Time < tmp
   
    Loop
End Function

Private Function connectServ(serv As string, Share AS string, Lettre AS string, Pass AS string, usr AS string )
    Dim LigneCommande  As String, val, retour As Integer
 
   LigneCommande = "NET USE " & serv & ": \\" & Share & "\" & Lettre & " " & Pass & " /USER:" & usr & " /PERSISTENT:NO"
    retour = Shell(LigneCommande, vbNormalFocus)
    val = attendre("s", 5)
End Function

Private Function DisconnectServ(Lettre AS string)
    Dim LigneCommande As String, val, retour As Integer
    LigneCommande = "NET USE " & Lettre & ": /DELETE"
    retour = Shell(LigneCommande, vbNormalFocus)
    val = attendre("s", 5)
End Function

Conclusion :


C'est un petit truc en cas de besoin

Romelard Fabrice (Alias F___)

A voir également

Ajouter un commentaire Commentaires
cs_JLN Messages postés 371 Date d'inscription samedi 1 juin 2002 Statut Membre Dernière intervention 17 juin 2013
27 févr. 2003 à 07:58
Pas mal du tout, je fais de la micro depuis 1980 et j'avais pourtant oublié en partie les extensions possibles de la command NET USE je pense que le DOS n'est pas complètement mort.... la preuve....

J'ai mis 10 pour ce rappel !
StephVBF Messages postés 21 Date d'inscription jeudi 4 avril 2002 Statut Membre Dernière intervention 3 juin 2008
17 mars 2004 à 17:36
Je cherchais à faire cela en ce moment.
C'est bien de le faire avec le Net Use, c'est beaucoup plus simple.
Merci.
Stephane
Wam0106 Messages postés 3 Date d'inscription jeudi 3 avril 2003 Statut Membre Dernière intervention 3 mai 2004
3 mai 2004 à 17:13
petite remaque sous DOSl'odre execution de la commande "NET USE" est:
NET USE x: \\srv\partage pwd /user:utilisateur /PERSISTENT:"YES" ou "NO"
avec :
"x:": la lettre du lect. reseau que l'on va créer
"\\srv": le pc auquel on se connecte
"\partage": le chemin du fichier partagé
"pwd": le mot de passe (si necessaire) a la connexiondu dossier partagé
"/user:utilisateur": le compte utilisateur qui se connecte
"/PERSISTENT:"YES" ou "NO"": le lecteur reseau se reconnecte au demarrage.

Si ce que j'avance se trouve etre vrai je crois que tu a fais une petite erreure dans l'ordre de ta fonction
"connectServ"
Si non desolé...

Wam0106
cs_JLN Messages postés 371 Date d'inscription samedi 1 juin 2002 Statut Membre Dernière intervention 17 juin 2013
3 mai 2004 à 17:38
Exact il y a une erreur mais on aura modifié facilement. Wam0106 à eu l'oeil de linx.

Bonne Prog à tous

JLN
cracken3544 Messages postés 11 Date d'inscription jeudi 10 novembre 2005 Statut Membre Dernière intervention 2 juillet 2011
28 avril 2012 à 21:46
salut : Concernant ton message :

-------Citation :----------
Je lance un SOS sur le même sujet.
J'ai un programme VBA qui écrit sur un lecteur réseau. Avant d'ecrire il me faudra trouver le lecteur logique pour faire ChDrive "x" où 'x' correspond à celui de NET USE x: \\srv...
Je cherche la commande qui me donnera le "x" du lecteur réseau à partir de "\\srv..."
Merci d'avance.
---------Fin Citation ----------

si tu veut continuer a utiliser net use pour récupérer la lettre du lecteur pourquoi pas :

Dim mountedletters as string = shell("net use | findstr :")
dim letters = split(mountedletters," ")
for each a in letters(2)
Msgbox(a)
end for


Attention j'est pas tester le code il sera surement a modifier mais tu peut t'en inspiré ;)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_fabrice69)