Accéder à un serveur depuis le code

Version imprimable

05/03/2014, 11h33
kervin

Accéder à un serveur depuis le code

Bonjour,

J'ai des applications qui doivent se connecter à un serveur.
Tout fonctionne parfaitement bien mais ceci entraine qu'à chaque installation d'une de ces applications je dois donner accès à ce serveur à chaque nouvel utilisateur; je le fais en créant un raccourci sur le bureau avec l'adresse IP du serveur '\\99.9.9.999', une fois créé, je clique sur le raccourci, une boite de dialogue s'ouvre et là j'introduis le login + le mot de passe + cocher le case 'rester connecter'.
Comme je le disais plus haut ceci fonctionne bien mais d'une part je dois faire l'opération à chaque nouvel utilisateur mais surtout en cas de modifications sur le reseau, l'accès est perdu, je suis alors connecté par les utilisateurs et je dois réintroduire le login + mot de passe ...
Existe-il un moyen dans un module d'automatiser cette procédure de login pour que l'accès se fasse au départ du code des applis concernées ??

Merci pour votre aide
05/03/2014, 14h56
Jean-Philippe André

Salut,

les pistes qui me viennent en tête :
- créer un batch/script vbs
- créer une tâche planifiée à l'ouverture de la session
- stocker quelque part l'adresse du serveur, et que chaque script vienne y lire l'adresse IP qui lui convient :)
05/03/2014, 19h31
kervin

Salut,

J'ai bien pensé à ce genre de solution, mais voilà... je ne vois pas comment réaliser ce genre de script !!!!
C'est bien pour cela que je sollicite de l'aide.
Je suppose que ce genre de script peur être intégré au code VBA de l'application ??
05/03/2014, 19h42
Jean-Philippe André

Pour la partie tâche planifiée, un tuto ici : http://jpcheck.developpez.com/tutori...ous-windows-7/
Pour le script, as-tu déjà un code VBA qui fait tes étapes en question (lien réseau, authentification, etc.) ?

J'ai essayé ce genre de procédure, qui a pour but de "mapper" le serveur et de lui donner une lettre.

C'est tout ce que j'ai trouvé et ça ne fonctionne de toute façon pas. :(

Pour info, j'ai oublié d'indiquer que dans le cadre de ce projet, je travaille sous XP avec office 2003 :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Declare Sub sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
 
Option Compare Database
'-------------------------------------------
Public Function MapToServer(ByVal DriveLetter As String, ByVal ServerName As String, ByVal SharedFolder As String, ByVal USER As String, ByVal Pwd As String) As Double
Dim strMapCmdLine                                      As String
Dim dblSuccess                                         As Double
 
    strMapCmdLine = "NET USE " & DriveLetter & ": " & Chr(34) & "\\" & ServerName & SharedFolder & Chr(34) & " " & Pwd & "/user:" & USER
    dblSuccess = Shell(strMapCmdLine, vbHide)
    MapToServer = (dblSuccess > 32)
End Function
Sub ConnectSV()
Dim MyUser                                             As String
Dim MyPwd                                              As String
Dim MyDriveLetter                                      As String
Dim MyServer                                           As String
Dim MyShare                                            As String
 
    MyUser = "user"
    MyPwd = "pwd"
    MyDriveLetter = "X"
    MyServer = "99.99.9.999"
    MyShare = "\wwwroot\VK"
 
    If MapToServer(MyDriveLetter, MyServer, MyShare, MyUser, MyPwd) Then sleep 2000
 
End Sub
'----------------------------------
 
'----------------------------------
Sub DisConnectSV()
Dim cmdline As String
 
cmdline = "NET USE " & "x: /DELETE"
retour = Shell(cmdline, vbHide)
 
End Sub
'----------------------------------

11/03/2014, 07h16
kervin

Personne pour un coup de pouce ???