Discussion :

[petit rabot]

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.

[rv26t]

Bonjour,

Pour le premier problème, regarde ce post
http://www.developpez.net/forums/d40...s/#post2464938

A+, Hervé

[petit rabot]

Merci rv26t, cela m'a permis de résoudre mon premier problème. Et ce fut assez simple à faire .
Néanmoins, il me reste toujours mon problème de reconnexion sans demande de login et mot de passe. Si quelqu'un a un éclair de génie, il sera le bienvenue!!!
Merci d'avance.

[rv26t]

Si tu ne l'ouvres pas en modal il suffit de faire un hide pour la cacher, et un show pour la réafficher, elle gardera les info saisies.
A+, Hervé.

[petit rabot]

Si tu ne l'ouvres pas en modal il suffit de faire un hide pour la cacher, et un show pour la réafficher, elle gardera les info saisies.
A+, Hervé.

Merci pour ta réponse, mais je ne comprends pas ou mettre le hide et show. Voici mon code:

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
17
18
19
20
Private Sub Command1_Click()
 
    LettreLecteur = "P:"
    CheminReseau = "\\Ordi1\C"
    NomLecteur = "Data 2006"
 
    Set objNetwork = CreateObject("WScript.Network")
        objNetwork.MapNetworkDrive LettreLecteur, CheminReseau, "True", "nom_user", "password"
 
 
    Set objShell = CreateObject("Shell.Application")
        objShell.NameSpace(LettreLecteur).Self.Name = NomLecteur
 
    Shape1.Visible = True
    Shape2.Visible = False
 
 
 
 
End Sub

Et merci encore de ton aide

[rv26t]

je parlais de la "Form" (vb6) sur laquelle l'utilisateur a saisit son nom et son mot de passe.
Mais apparement, il les saisit en dehors de VB6.

Peux-tu préciser à ce niveau ? (s'il les saisit dans vb6 ou pendant le déroulement du script)

[petit rabot]

Peux-tu préciser à ce niveau ? (s'il les saisit dans vb6 ou pendant le déroulement du script)

Et oui, malheureusement, il les saisit lors du déroulement du script.

[rv26t]

Et en les passant comme paramètres au script, comme ça ils pourraient être saisies dans une form vb6 et ainsi utilisable tout le temps de l'utilisation de ton application.

[petit rabot]

Peux être, mais je ne suis pas assez calé pour les passer en paramètre script, je découvre tout juste le script.

[rv26t]

Je ne connais pas le langage script mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
  objNetwork.MapNetworkDrive LettreLecteur, CheminReseau, "True", "nom_user", "password"
...

C'est peut-être sur cette ligne que tu dois passer tes paramètres nom et mot de passe au lieu de les mettre en dur.