1. #1
    Nouveau membre du Club
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2014
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2014
    Messages : 70
    Points : 38
    Points
    38

    Par défaut Script vb de démarrage (NET USE)

    Bonjour,
    Entre deux réseaux (Domaine et workgroup) j'utilise net use sur 1 poste de WORKGROUP pour accéder à un dossier partagé dans DOMAINE,
    j'ai mis :
    net use f:\\serveurdomaine\dossierPartagé /user:YYYYY@DOMAINE XXXXX /persistent:yes et ça marche.
    et au niveau du script j'ai mis : net use * /delete /yes ,
    net use f:\\serveurdomaine\dossierPartagé /user:YYYYY@DOMAINE XXXXX /persistent:no ,
    et je l'ai mis dans le dossier : sysvol/DOMAINE/scripts (scriptDemarre.bat)

    mais ça ne connecte pas a chaque démarrage, je suis obligé de retaper la commande dans cmd.
    Comment faire avec un script VBS

  2. #2
    Membre chevronné

    Homme Profil pro
    Responsable déploiement (SCCM, AirWatch, AMP)
    Inscrit en
    juillet 2014
    Messages
    1 100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, AirWatch, AMP)
    Secteur : Transports

    Informations forums :
    Inscription : juillet 2014
    Messages : 1 100
    Points : 2 049
    Points
    2 049

    Par défaut

    Tu ne veux pas mettre ton script à un endroit de démarrage standard ?

  3. #3
    Nouveau membre du Club
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2014
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2014
    Messages : 70
    Points : 38
    Points
    38

    Par défaut

    oui je suis preneur pour toute solution et ensuite je vai voir laquelle sera plus la adapter pour mon cas
    merci

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

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 005
    Points : 4 558
    Points
    4 558

    Par défaut

    J'aurais une autre solution évitant de rechercher le dossier de démarrage :
    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
    Option Explicit
     
    Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"
     
    On Error Resume Next
    Main
     
    Sub Main()
       Dim AppName, App_Path, WS, strCommand
     
        Set WS = CreateObject("WScript.Shell")
     
       AppName = "WScript.exe" 
       App_Path = WS.ExpandenvironmentStrings("%windir%") & "\System32\" ' adapter le chemin selon la version de Windows
     
       strCommand = "CMD.EXE /C scriptDemarre.bat" ' Le fichier (scriptDemarre.bat) doit être dans le même dossier 
                                                   ' que le script présent.
       WS.Run strCommand, 0, False
     
       With WS
          On Error Resume Next
          ' Vérification et inscription éventuelle dans le registre(si valeur absente)
          If .RegRead(Key & AppName) = "" Or _
             .RegRead(Key & AppName) <> App_Path & AppName & " " & Wscript.ScriptFullName  Then
             .RegWrite Key & AppName, App_Path & AppName & " " & Wscript.ScriptFullName
          Else
            Exit Sub
          End If
       End With
    End Sub
    Le fichier présent(quel que soit son nom) est à lancer une fois, puis à chaque démarrage du PC, il sera automatiquement lancé.
    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

  5. #5
    Nouveau membre du Club
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2014
    Messages
    70
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2014
    Messages : 70
    Points : 38
    Points
    38

    Par défaut

    Bonjour et merci
    ca marche mais je dois l'executer à chaque démarrage
    comment faire pour qu'il s'execute à chaque démarrage?
    NB: il ya ESET Smart Security qui gére le pare Feu

  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 005
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Tunisie

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 005
    Points : 4 558
    Points
    4 558

    Par défaut

    Vérifie d'abord si la valeur HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Wscript.exe et sa donnée existent(et si elles sont correctes) dans le registre.

    Configure ton pare-feu pour qu'il accepter de lancer le script et si nécessaire le fichier batch(.bat)
    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

Discussions similaires

  1. NET USE SCRIPT DE DEMARRAGE
    Par Feuztoff dans le forum Réseaux
    Réponses: 4
    Dernier message: 27/10/2017, 13h51
  2. Réponses: 9
    Dernier message: 10/02/2017, 11h11
  3. Exécution de net use dans un script perl
    Par Bruno51 dans le forum Langage
    Réponses: 7
    Dernier message: 30/04/2008, 19h58
  4. Net use trop crado
    Par Mr6 dans le forum Modules
    Réponses: 4
    Dernier message: 11/12/2006, 22h07
  5. [Réseaux] Comment faire un Net Use en Delphi ?
    Par Spart64 dans le forum Web & réseau
    Réponses: 2
    Dernier message: 28/04/2004, 15h53

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