Script VBS déploiement d'icône

Set oShell = WScript.CreateObject("WScript.Shell")
set oFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
sDesktopFolder = oShell.SpecialFolders("Desktop")
if oFileSystem.FileExists(sDesktopFolder & "\GLPI.lnk") then
oFileSystem.DeleteFile(sDesktopFolder & "\GLPI.lnk")
end if

Set oShortcut = oShell.CreateShortcut(sDesktopFolder & "\GLPI.lnk")
oShortcut.TargetPath = "http:\\lienacréer\site"
oShortcut.IconLocation = "%SystemRoot%\System32\Shell32.dll,208"
oShortcut.Save