Discussion :

[johnyboyy]

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

[Cachlab]

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"

++

[Cachlab]

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

++

[ProgElecT]

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.

[johnyboyy]

Oui en vbscript s’il vous plaît

[l_autodidacte]

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.

[johnyboyy]

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 !

[johnyboyy]

Avec net use sa marcherais non ?

[l_autodidacte]

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.

[johnyboyy]

À l'exécution du script.

J'ai mis cela

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

Mais je veux que sa rentre dans le documents scripts.

Merci,

[l_autodidacte]

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

Il faut le nom de l'ordinateur puis le dossier partagé comme ceci :
net.MapNetworkDrive "S:", "\\ServerName\scripts"

[l_autodidacte]

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.

[johnyboyy]

Merci, je vais essayer