Bonjour, j'ai deux problèmes:

1er problème: Comme j'ai mis dans le titre, je voudrais pourvoir intégrer un script dans une form VB6, plus précisément dans un bouton "Connexion". Est ce possible??


Voici le sript qui fonctionne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit 
Dim objNetwork, strDrive, objShell, objUNC 
Dim LettreLecteur, CheminReseau, NomLecteur  
 
LettreLecteur = "Z:" 
CheminReseau = "\\192.81.95.99\Analytique" 
NomLecteur = "Archivage Datas Analytique" 
 
Set objNetwork = CreateObject("WScript.Network" ) 
 
objNetwork.MapNetworkDrive LettreLecteur, CheminReseau ,"True","ARCHIVES\used","password"
 
Set objShell = CreateObject("Shell.Application" ) 
objShell.NameSpace(LettreLecteur).Self.Name = NomLecteur 
 
WScript.Quit
2éme problème: Si le premier est possible, je voudrais que lorsque l'utilisateur c'est connecté une première fois (qu'il a renseigné son login et mot de passe), si il ferme la page sur laquelle il c'est mappé, et qu'il veuille la ré ouvrir, il n'est pas besoin de retaper login et mdp. Et ceci jusqu'à la fermeture de la page VB6.

En espérant avoir été assez clair et précis. Merci d'avance pour votre aide.