Discussion :

[aroxster]

Salut tous le monde j'ai un petit problème...

J'aimerais avoir le code vbs pour remplir la case ci dessous à la création de mon raccourci mais je ne le trouve pas,


Mon code est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Option Explicit
Dim Shell, HackPath, INK
Set Shell = CreateObject("WScript.Shell")
HackPath = "\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp"
Set Ink = Shell.CreateShortcut(HackPath & "\exe.lnk")
Ink.TargetPath = "\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\Shutdown\exe.bat"
Ink.Description = "test"
Ink.Save

merci de votre aide par avance