Accès refusé au répertoire partagé

Version imprimable

15/05/2019, 13h51
Heathcliff_1

Accès refusé au répertoire partagé
Bonjour,

Je suis un débutant en scripting.

J'ai préparer un petit script pour accès à un répertoire partagé. Voici le code:
Code:

1 2 3 Dim test Set test = wscript.CreateObject("Shell.Application") test.Open "\\Srv-hyperv1\WS80010"
Le dossier WS80010 se trouve sur le réseau et pour pouvoir y accéder il faut se connecter au VPN.
Parfois l'utilisateur oublie de se connecter au VPN et exécute le script, pour cela j'aimerai bien faire apparaître un msgbox pour demander à l'utilisateur de se connecter au VPN tout d'abord avant d'exécuter le script.

Je sais pas si c'est possible aussi d'intégrer des capture dans la msgbox pour lui expliquer comment se connecter au VPN ?

Bien cordialement;

On peut tenter de se connecter sans tester si l'on est connecté ou non.
Une fois la connexion établie, on passe à l'étape d'ouverture du dossier(et/ou fichier) :

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
Option Explicit
 
Dim WS, shlApp, strCommand, strUser, strPassWord, strDomain, Nom_VPN, intReturn, strJob
' SYNTAXE : Rasdial Nom_VPN strUser strPassWord /DOMAIN:strDomain
' On doit renseigner le Nom_VPN
Nom_VPN = Chr(34) & Nom_VPN & Chr(34) ' pour éviter de méprendre l'espace dans l'entrée
strUser = "Nom_Utilisateur"    ' à renseinger
strPassWord = "Mot_de_Passe"   ' à renseinger
strDomain = "Nom_Domaine"      ' à renseinger
strCommand = "Cmd.exe Rasdial.exe " & Nom_VPN & " " & strUser _
            & " " & strUser & " " & strPassWord & " /DOMAIN:" & strDomain
Set WS = CreateObject("Wscript.Shell")
intReturn = WS.Run(strCommand, 0, True) 'La fenêtre n'est pas affichée, mais on attend la fin du processus
' On ferme l'objet WS, on n'en a plus besoin :
 Set WS = Nothing
 
'  Résultat de la requête :
If intReturn = 1 Then 
    intReturn = 0  
    strJob = "Succès de la connexion"
ElseIf intReturn >= 2 Then 
    intReturn = 1  
    strJob = "Une erreur est survenue"
Else
    strJob = "Erreur inattendue"
End If
 MsgBox strJob
 
' On passe à l'étape suivante (ouverture du dossier) si connexion OK :
  If  strJob = "Succès de la connexion" Then 
      Set shlApp = CreateObject("Shell.Application")
      shlApp.Open "\\Srv-hyperv1\WS80010"
  Else ' Sinon on quitte
      MsgBox "Connexion non établie"
      Wscript.Quit
  End If
'  A la fin, on ferme l'objet shlApp SI ON N'EN A PLUS BESOIN :
Set shlApp = Nothing

16/05/2019, 08h53
Heathcliff_1

l_autodidacte,

Merci beaucoup pour ton retour. Je me suis inspiré de ton code pour résoudre ton problème.

Bonne journée.

Cdt;
16/05/2019, 11h06
ProgElecT

Salut
:coucou: l_autodidacte

@Heathcliff_1

Citation:

Envoyé par Heathcliff_1

l_autodidacte,

Merci beaucoup pour ton retour. Je me suis inspiré de ton code pour résoudre ton problème.

Bonne journée.

Cdt;

:aie: ne serait se pas plutôt thon problème :mouarf: ......
16/05/2019, 11h14
Heathcliff_1

:D Merci pour la remarque. "Mon problème" je voulais dire, désolé.