Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Accès refusé au répertoire partagé


Sujet :

VBScript

  1. #1
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2019
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : avril 2019
    Messages : 28
    Points : 16
    Points
    16
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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;

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 276
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 276
    Points : 5 384
    Points
    5 384
    Par défaut
    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 : 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
    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
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2019
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : avril 2019
    Messages : 28
    Points : 16
    Points
    16
    Par défaut
    l_autodidacte,

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

    Bonne journée.

    Cdt;

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 956
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 956
    Points : 11 384
    Points
    11 384
    Par défaut
    Salut
    l_autodidacte

    @Heathcliff_1
    Citation Envoyé par Heathcliff_1 Voir le message
    l_autodidacte,

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

    Bonne journée.

    Cdt;
    ne serait se pas plutôt thon problème ......
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2019
    Messages
    28
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : avril 2019
    Messages : 28
    Points : 16
    Points
    16
    Par défaut
    Merci pour la remarque. "Mon problème" je voulais dire, désolé.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Autorisations d'accès d'un répertoire partagé
    Par gk14fire dans le forum C#
    Réponses: 3
    Dernier message: 26/11/2009, 09h21
  2. Réponses: 9
    Dernier message: 26/03/2008, 11h11
  3. [CS3] Accès refusé au répertoire d'enregistrement
    Par flex@ dans le forum Dreamweaver
    Réponses: 2
    Dernier message: 22/01/2008, 21h17
  4. Accés refuser sur répertoire
    Par koKoTis dans le forum VBScript
    Réponses: 11
    Dernier message: 21/01/2008, 14h23
  5. Acces refusé sur un partage depuis php
    Par needles94000 dans le forum Windows
    Réponses: 2
    Dernier message: 06/04/2006, 13h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo