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
    Futur Membre du Club
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    9
    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 : 9
    Points : 5
    Points
    5

    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 actif
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2011
    Messages
    151
    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 : 151
    Points : 275
    Points
    275

    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 actif
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2011
    Messages
    151
    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 : 151
    Points : 275
    Points
    275

    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 576
    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 576
    Points : 9 915
    Points
    9 915

    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
    Futur Membre du Club
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    9
    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 : 9
    Points : 5
    Points
    5

    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 087
    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 087
    Points : 4 820
    Points
    4 820

    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
    Futur Membre du Club
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    9
    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 : 9
    Points : 5
    Points
    5

    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
    Futur Membre du Club
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    9
    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 : 9
    Points : 5
    Points
    5

    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 087
    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 087
    Points : 4 820
    Points
    4 820

    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
    Futur Membre du Club
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    9
    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 : 9
    Points : 5
    Points
    5

    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 087
    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 087
    Points : 4 820
    Points
    4 820

    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 087
    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 087
    Points : 4 820
    Points
    4 820

    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
    Futur Membre du Club
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    décembre 2017
    Messages
    9
    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 : 9
    Points : 5
    Points
    5

    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, 18h29
  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, 13h21
  3. Réponses: 1
    Dernier message: 16/04/2010, 08h19
  4. variable d'un script VBScript en ASP
    Par Mateache dans le forum ASP
    Réponses: 6
    Dernier message: 11/08/2006, 09h18
  5. transfert base access --> mysql et script vbscript
    Par boss_gama dans le forum ASP
    Réponses: 9
    Dernier message: 22/06/2006, 14h22

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