Script vbscript projet

Version imprimable

05/10/2018, 00h05
johnyboyy

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 :lol:

Salut johnyboyy !

Alors, d'abord le script qui lance les applis peut ressembler à cela (launcher.bat) :
Code:

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:

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"
++

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:

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
++

05/10/2018, 15h54
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.
05/10/2018, 17h09
johnyboyy

Oui en vbscript s’il vous plaît

Teste ce

Code:

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.

05/10/2018, 17h37
johnyboyy

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 !
05/10/2018, 17h39
johnyboyy

Rép

Avec net use sa marcherais non ?
05/10/2018, 17h46
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:

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.
05/10/2018, 18h10
johnyboyy

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,
05/10/2018, 18h36
l_autodidacte

Citation:

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

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

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:

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.

05/10/2018, 19h19
johnyboyy

Rép

Merci, je vais essayer