Set WshShell = CreateObject("WScript.Shell") strDesktopPath = WshShell.SpecialFolders("Desktop") Set objShortcutUrl = WshShell.CreateShortcut(strDesktopPath & "\www.3effegroup.it.url") objShortcutUrl.TargetPath = "http://www.3effegroup.it" objShortcutUrl.Save