Créer un raccourcis en vbs. Remplir la case"démarrer dans"

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,
Pièce jointe 481971

Mon code est le suivant

Code:

---

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

BIENVENU sur DVP :salut:

Dans l'aide VBscript, tu peux trouver l'exemple suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk") oShellLink.TargetPath = WScript.ScriptFullName oShellLink.WindowStyle = 1 oShellLink.Hotkey = "CTRL+SHIFT+F" oShellLink.IconLocation = "notepad.exe, 0" oShellLink.Description = "Shortcut Script" oShellLink.WorkingDirectory = strDesktop oShellLink.Save

---

WorkingDirectory correspond à Démarrer dans

Okay merci beaucoup tu me sauve la mise :)