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.