Description :
Ce script vous permet d'ajouter un site à vos favoris d'Internet Explorer :
Script :
Const ADMINISTRATIVE_TOOLS = 6
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Nom de votre site.url")
objURLShortcut.TargetPath = "Url de votre site"
objURLShortcut.Save
 Proposer un script
|
Notre avis :
Votre avis :
Réactions :
0
Votants :
3
Visites :
15901
|
