Script vb de démarrage (NET USE)

Version imprimable

13/10/2017, 15h31
Feuztoff

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
17/10/2017, 07h29
ericlm128

Tu ne veux pas mettre ton script à un endroit de démarrage standard ?
17/10/2017, 14h40
Feuztoff

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

J'aurais une autre solution évitant de rechercher le dossier de démarrage :

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
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é.

26/10/2017, 15h28
Feuztoff

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
29/10/2017, 10h17
l_autodidacte

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)