[amel27]

может так?

Код:

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWSH = WScript.CreateObject("WScript.Shell")

strDesktop = objWSH.SpecialFolders("Desktop")

If Not objFSO.FileExists(strDesktop & "\InOutD.lnk") Then
  Set objLink = objWSH.CreateShortcut(strDesktop & "\InOutD.lnk")

  objLink.IconLocation = "J:\InOutD\inoutd.ico"
  objLink.TargetPath = "J:\InOutD\inoutd.exe"
  objLink.Arguments  = "-T -cJ:\InOutD\config.fpw"
  objLink.WindowStyle = 1
  objLink.WorkingDirectory = "J:\InOutD"
  objLink.Save
End If