Script İle Masaüstüne Kısayol Oluşturma

Soru:

Merhaba ;
Asagıdakı scrıpt ıle masaustune kısayol yapabılıyorum
Fakat ıstedıgım ıconu veremıyorum .


Set fs= CreateObject("WScript.Shell")
'WshShell = CreateObject("WScript.Shell")
strDesktop = fs.SpecialFolders("Desktop")
Set oUrlLink = fs.CreateShortcut(strDesktop+"\TELEFON REHBERI.URL")
oUrlLink.TargetPath = "http://10.2.3.58/TELEFONREHBERI"
oUrlLink.Save

Cevap:

oUrlLink.TargetPath = "http://10.2.3.58/TELEFONREHBERI"

satiri altina asagidaki satiri ekleyin.

oURLLink.IconLocation = "icon_dosyasi_konumu, icon_pozisyon_numarasi"Ornegin:
Ornek 1: oURLLink.IconLocation = "SHELL32.dll, 18"Ornek 2: oURLLink.IconLocation = "C:\Windows\System32\SHELL32.dll, 98"

Gibi