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

  1. #1
    Membre à l'essai
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : Canada

    Informations professionnelles :
    Activité : Ingénieur sécurité
    Secteur : Biens de consommation

    Informations forums :
    Inscription : décembre 2017
    Messages : 10
    Points : 10
    Points
    10

    Par défaut Script vbscript projet

    Bonjour à tous,

    J'essaie de créé un script qui va s'exécuter automatiquement sans intervention à l'ouverture de session de l'administrateur de l'ordinateur. Je veux me connecter au lecteur S: à mon dossier scripts. Sa marche avec net use, j'ai tenté.

    De plus, je voudrais qu'il ouvre l'explorateur Windows sur le lecteur S:. Ouvrir aussi l'explorateur Internet sur la page d'ouverture de https://cmontmorency.moodle.decclic.qc.ca/.

    J'ai cherché assidument partout mais rien pour faire cela.

    Si vous savez comment le faire, s'il vous plait m'aider je suis sur ce projet depuis un bout.

    Cordialement,

    J

  2. #2
    Membre averti
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2011
    Messages
    161
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : novembre 2011
    Messages : 161
    Points : 300
    Points
    300

    Par défaut

    Salut johnyboyy !

    Alors, d'abord le script qui lance les applis peut ressembler à cela (launcher.bat) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    echo off
    net use s: /delete /y
    net use s: \\server\folder /persistent:yes
    explorer.exe s:
    c:
    cd %ProgramFiles(x86)%\Internet Explorer
    iexplore.exe "https://cmontmorency.moodle.decclic.qc.ca"
    Ensuite pour qu'il se lance au démarrage, copie le fichier en local (sur C:\ par ex.) et ajoute la clé au registre (install.bat, à exécuter 1 fois en admin local) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    REG DELETE HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v launcher /f
    REG ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v launcher /t REG_SZ /d "C:\launcher.bat"
    ++

  3. #3
    Membre averti
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2011
    Messages
    161
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : novembre 2011
    Messages : 161
    Points : 300
    Points
    300

    Par défaut

    En relisant ta question, je crois comprendre que tu souhaites que seule l'ouverture de session en administrateur déclenche le script ... !?

    Dans ce cas, il faudrait ajouter une condition dans le script, genre ... :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    echo off
    if /i %username% EQU Administrateur goto :line
    goto :eof 
    :line
    net use s: /delete /y
    net use s: \\server\folder /persistent:yes
    explorer.exe s:
    c:
    cd %ProgramFiles(x86)%\Internet Explorer
    iexplore.exe "https://cmontmorency.moodle.decclic.qc.ca"
    :eof
    ++

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

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

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 662
    Points : 10 272
    Points
    10 272

    Par défaut

    Cachlab, je ne doute pas que ta/tes réponses fonctionnent, mais apparemment, johnyboyy voudrait ça en VBScript vu qu'il a posté son message dans ce forum.
    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
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : Canada

    Informations professionnelles :
    Activité : Ingénieur sécurité
    Secteur : Biens de consommation

    Informations forums :
    Inscription : décembre 2017
    Messages : 10
    Points : 10
    Points
    10

    Par défaut

    Oui en vbscript s’il vous plaît

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

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 116
    Points : 4 900
    Points
    4 900

    Par défaut

    Teste ce
    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
    Option Explicit
     
     Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"
     Dim WS, AppName, AppTitle
     
      Set WS = CreateObject("WScript.Shell")
      AppTitle = "Launcher"
      AppName = Wscript.FullName
      ' Vérifie si la valeur existe, sinon l'inscrit.
      With WS
          On Error Resume Next ' Utile uniquement à la première exécution du script
          If .RegRead(Key  & AppTitle) = "" Or _
             .RegRead(Key & AppTitle) <> AppName & " " & Wscript.ScriptFullName  Then
             .RegWrite Key & AppTitle, AppName & " " & Wscript.ScriptFullName
          Else
            'Exit Sub
          End If
       End With
       '===============Lancement des progs =============
       ' Page iternet 
       WS.Run "iexplore.exe https://cmontmorency.moodle.decclic.qc.ca", 1, True
       ' Si le lecteur est déjà mappé :
       WS.Run "Explorer.exe S:", 1, True
    A remarquer que je n'ai pas tenu compte du fait que l'utilisateur est un admin, le script étant à lancer une seule fois dans la session admin.
    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)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  7. #7
    Membre à l'essai
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : Canada

    Informations professionnelles :
    Activité : Ingénieur sécurité
    Secteur : Biens de consommation

    Informations forums :
    Inscription : décembre 2017
    Messages : 10
    Points : 10
    Points
    10

    Par défaut Rép

    Oui, tant qu'il le lance en admin.

    Sa marche par contre, après l'exécution, il ouvre mon dossier documents?

    Est-ce normal ?

    Merci !

  8. #8
    Membre à l'essai
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : Canada

    Informations professionnelles :
    Activité : Ingénieur sécurité
    Secteur : Biens de consommation

    Informations forums :
    Inscription : décembre 2017
    Messages : 10
    Points : 10
    Points
    10

    Par défaut Rép

    Avec net use sa marcherais non ?

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

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 116
    Points : 4 900
    Points
    4 900

    Par défaut

    A quelle exécution : du script ou après redémarrage du système ?

    Une solution est d'ajouter avant la dernière ligne ce
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
       Dim net   
       Set net = CreateObject("WScript.Network")
       net.MapNetworkDrive "S:", "\\Server_Name\Shared_Folder"
    en remplaçant Server_Name et Shared_Folder par les noms corrects.
    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)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  10. #10
    Membre à l'essai
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : Canada

    Informations professionnelles :
    Activité : Ingénieur sécurité
    Secteur : Biens de consommation

    Informations forums :
    Inscription : décembre 2017
    Messages : 10
    Points : 10
    Points
    10

    Par défaut Rép

    À l'exécution du script.

    J'ai mis cela

    net.MapNetworkDrive "S:", "\scripts"

    Mais je veux que sa rentre dans le documents scripts.

    Merci,

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

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 116
    Points : 4 900
    Points
    4 900

    Par défaut

    net.MapNetworkDrive "S:", "\scripts"
    Il faut le nom de l'ordinateur puis le dossier partagé comme ceci :
    net.MapNetworkDrive "S:", "\\ServerName\scripts"
    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)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

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

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 116
    Points : 4 900
    Points
    4 900

    Par défaut

    Je viens de me rendre compte que le chemin vers le script vbs peut comporter des espaces ou être long.

    Pour cela, modifie le script ainsi :
    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
    Option Explicit
     
     Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"
     Dim WS, AppName, AppTitle, fso, PathToScript
     
      Set WS = CreateObject("WScript.Shell")
      Set fso = CreateObject("Scripting.FileSystemObject")
      AppTitle = "Launcher"
      PathToScript = fso.GetFile(Wscript.ScriptFullName).ShortPath
      AppName = Wscript.FullName
      ' Vérifie si la valeur existe, sinon l'inscrit.
      With WS
          On Error Resume Next ' Utile uniquement à la première exécution du script
          If .RegRead(Key  & AppTitle) = "" Or _
             .RegRead(Key & AppTitle) <> AppName & " " & PathToScript Then
                 .RegWrite Key & AppTitle, AppName & " " & PathToScript
          Else
              ' Nothing to do
          End If
       End With
       '===============Lancement des progs =============
       ' Page iternet 
       WS.Run "iexplore.exe https://cmontmorency.moodle.decclic.qc.ca", 1, False     ' False pour ne pas attendre Iexplore.exe
     
       Dim net
       Set net = CreateObject("WScript.Network")
       net.MapNetworkDrive "S:", "\\HP_4\Scripts"       
       WS.Run "Explorer.exe S:", 1, False
    Remplace HP_4 par le nom de partage de ton ordinateur.
    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)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  13. #13
    Membre à l'essai
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : Canada

    Informations professionnelles :
    Activité : Ingénieur sécurité
    Secteur : Biens de consommation

    Informations forums :
    Inscription : décembre 2017
    Messages : 10
    Points : 10
    Points
    10

    Par défaut Rép

    Merci, je vais essayer

Discussions similaires

  1. Impossible de trouver le moteur de script "VBScript"
    Par hackoofr dans le forum VBScript
    Réponses: 9
    Dernier message: 07/09/2011, 19h29
  2. Comment éditer, sauvegarder et exécuter un script VBScript?
    Par Heka-thumbs dans le forum VBScript
    Réponses: 3
    Dernier message: 08/06/2011, 14h21
  3. Réponses: 1
    Dernier message: 16/04/2010, 09h19
  4. variable d'un script VBScript en ASP
    Par Mateache dans le forum ASP
    Réponses: 6
    Dernier message: 11/08/2006, 10h18
  5. transfert base access --> mysql et script vbscript
    Par boss_gama dans le forum ASP
    Réponses: 9
    Dernier message: 22/06/2006, 15h22

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