1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Option Explicit
Dim WS, strDesktop, oMyShortCut
' Créer l'instance WScript
set WS=WScript.CreateObject("WScript.Shell")
' En cas d'erreur on continue
On Error Resume Next
' Définir le chemin d'accès
strDesktop = WS.SpecialFolders("AllUsersStartMenu") & "\Programs\Startup\"
' Définir le nom du raccourci
Set oMyShortCut = WS.CreateShortcut(strDesktop & "Anniversaires IRC.lnk")
' Définir le lien
oMyShortCut.TargetPath = "http://serveur/dossier/Anniversaires.asp"
oMyShortCut.Hotkey = ""
oMyShortCut.Save
if err then msgbox err.description
Wscript.Quit |
Partager