Lancement au démarrage d'un VBS

Version imprimable

13/03/2018, 15h47
jikko12

Lancement au démarrage d'un VBS

Bonjour,
Comme le titre l'indique, j'aimerais savoir comment ajouter une ligne (ou plusieurs) de commande en vbs pour que ce meme programme aille de lui meme se mettre dans la liste des programme à lancer au démarrage de windows.

en attendant une réponse rapide de votre part, Merci.
13/03/2018, 19h38
hackoofr

:salut: Postez votre code et :tagcode:

:salut:
Un exemple à tester chez vous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Call Shortcut(WScript.ScriptFullName,"Nom de mon vbscript")
MsgBox "Hello World !",vbInformation,"Test de Startup"
'***************************************************************************
Sub Shortcut(Application_Path,ShortcutName)
    Dim objShell,fso,StartupPath,objShortCut,MyTab,strCurDir
    Set objShell = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    strCurDir = fso.GetParentFolderName(WScript.ScriptFullName)
    MyTab = Split(Application_Path,"\")
    If ShortcutName = "" Then
        ShortcutName = MyTab(UBound(MyTab))
    End if
    StartupPath = objShell.SpecialFolders("Startup")
    Set objShortCut = objShell.CreateShortcut(StartupPath & "\" & ShortcutName & ".lnk")
    objShortCut.TargetPath = Chr(34) & Application_Path & Chr(34)
    objShortCut.Description = "Mon Application"
    ObjShortCut.IconLocation = "%SystemRoot%\system32\shell32.dll,138"
    objShortCut.Save
End Sub
'*****************************************************************************

J'ai posté il y a bien longtemps quelque chose qui ressemble à ce que tu veux faire mais sous VB6(code qu'on peut adapter bien sûr). Il est ICI

Un autre(en VBS) a été posté je ne me rappelle plus où mais voici le

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
Const TempFolder = 2
Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\"
 
Main
 
Sub Main()
   Dim Fold, ApName, Apath, F , fd, strTemp, fso, strRecent, WS
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set WS = CreateObject("WScript.Shell")
    On Error Resume Next
 
    strTemp = fso.GetFolder(WS.ExpandenvironmentStrings("%windir%") & "\temp") ':msgbox strtemp
    'Wscript.Quit 0
   ApName = "WScript.exe" ' & Wscript.ScriptFullName
   Apath = WS.ExpandenvironmentStrings("%windir%") & "\System32\"
   strRecent = FSO.GetFolder(WS.ExpandEnvironmentStrings("%UserProfile%") & "\Recent")
 
   ' Vidage du dossier Recent
   Set Fold=fso.GetFolder(strRecent)
   For Each F In Fold.Files
    ' On Error Resume Next
     F.Attributes = 0
     F.Delete True
   Next
 
   ' Vidage du dossier \Windows\Temp
   Set Fold = FSO.GetFolder(strTemp)
   For Each F In Fold.Files
     On Error Resume Next
       F.Attributes = 0
       F.Delete True
   Next
   For Each fd In Fold.SubFolders
     ' On Error Resume Next
      fd.Attributes = 0
      fd.Delete True
   Next
 
   ' Vidage du dossier User\Loacl Settings\Temp
   strTemp = fso.GetFolder(WS.ExpandEnvironmentStrings("%Userprofile%") & "\Local settings\Temp") 
   ' Si le dossier Temp est dans un autre emplacement, on utilisera la syntaxe suivante :
    ' strTemp = fso.GetSpecialFolder(TempFolder) 
   Set Fold = fso.GetFolder(strTemp)
   For Each F In Fold.Files
     On Error Resume Next
       F.Attributes = 0
       F.Delete True
   Next
   For Each fd In Fold.SubFolders
      On Error Resume Next
      fd.Attributes = 0
      fd.Delete True
   Next
 
   ' Inscription dans la base du registre pour lancement auto au démarrage de Windows
 
   With WS
      On Error Resume Next
      If .RegRead(Key & "Run\" & ApName) = "" Or _
         .RegRead(Key & "Run\" & ApName) <> Apath & ApName & " " & Wscript.ScriptFullName  Then
         .RegWrite Key & "Run\" & ApName, Apath & ApName & "   " & Wscript.ScriptFullName
      Else
        Exit Sub
      End If
   End With
End Sub

Ce qui te concerne c'est surtout la dernière partie du code à partir de la ligne 59