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