Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
set WshShell = WScript.CreateObject("WScript.Shell" )
 
strDesktop = WshShell.SpecialFolders("Desktop" )
 
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Assistance Informatique.lnk" )
 
oShellLink.TargetPath = "C:\Program Files(x86)\Mozilla Thunderbird\thunderbird.exe""mailto:mdh-informatique@univ-reims.fr"
 
oShellLink.IconLocation = "C:\Windows\System32\mycomput.dll, 0"
 
oShellLink.Description = "Mail mdh info"
 
oShellLink.Save