[Iska]

И что? Для класса WshURLShortcut свойство IconLocation не поддерживается.

Вы можете создать url-ярлык, затем открыть его как обычный текстовый файл и тупо дописать две строки, например:

Скрытый текст

Код:

Option Explicit

Const ForAppending = 8

Dim strPath2UrlFile


strPath2UrlFile = "C:\Мои проекты\0074\My.url"

With WScript.CreateObject("WScript.Shell").CreateShortcut(strPath2UrlFile)
	.TargetPath = "http://forum.oszone.net/thread-327113.html"
	.Save
	WScript.Echo .FullName
End With

With WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(strPath2UrlFile, ForAppending)
	.WriteLine "IconFile=C:\Windows\system32\SHELL32.dll"
	.WriteLine "IconIndex=27"
End With

WScript.Quit 0