Yasin EVRENKAYA | Microsoft & Linux Specialist

Set oWS = WScript.CreateObject(“WScript.Shell”)
   sLinkFile = “C:\Documents and Settings\All Users\Desktop\EmsaMagaza.LNK”
   Set oLink = oWS.CreateShortcut(sLinkFile)
  
   oLink.TargetPath = “d:\emsamagaza\emsamagaza.EXE”
   ‘ oLink.Arguments = “”
   ‘ oLink.Description = “EmsaMagaza”
   ‘ oLink.HotKey = “ALT+CTRL+F”
   ‘ oLink.IconLocation = “d:\emsamagaza\emsamagaza.EXE, 2″
   ‘ oLink.WindowStyle = “1″
   ‘ oLink.WorkingDirectory = “d:\emsamagaza”
   oLink.Save

********************

.vbs olarak kaydedip çalıştırın. Kolay gelsin.