Ciao gibra grazie 1000 per l'indizio !!!!

ecco il codice se può essere utile a qualcuno!

Dim WshShell
Dim oMyShortcut
Dim strDesktop


Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortcut = WshShell.CreateShortcut(strDesktop + "\CartDB_Indicatori.lnk")


oMyShortcut.WindowStyle = 1
oMyShortcut.IconLocation = "C:\Program Files\CartDB_Indicatori"
oMyShortcut.TargetPath = "C:\Program Files\CartDB_Indicatori"
oMyShortcut.Arguments = " /find"
oMyShortcut.WorkingDirectory = "c:\"
oMyShortcut.Save