NTFSストリーム内のfaviconを指定する。
インターネットショートカットにfavicon指定がある場合は通常、NTFSストリーム内にfaviconが格納されています。
iconfile=http://server/favicon.ico
iconindex=1
NTFSストリーム内のfaviconを指定すれば、化けないかも。
iconfile=c:\folder\title.url:favicon
iconindex=0
以下の favicon.vbs にインターネットショートカットをドロップします。
Option Explicit
Dim fso
Dim Path
Dim Link
Set fso=CreateObject("Scripting.FileSystemObject")
Path=fso.GetAbsolutePathName(WScript.Arguments(0))
If fso.FileExists(Path & ":favicon") Then
Set Link=CreateObject("Shell.Application").NameSpace(fso.GetParentFolderName(Path)).ParseName(fso.GetFileName(Path)).GetLink
Call Link.SetIconLocation(Path & ":favicon",0)
Link.Save Path
Else
WScript.Echo "stream:faviconがありません。"
End If