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

[l_autodidacte]

BIENVENU sur DVP

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

Code :

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

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

[aroxster]

Okay merci beaucoup tu me sauve la mise