[Iska]

а через проводник белый листок »

содержание url через блокнот »

У меня — нормально:

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

«WScript.Echo .FullName» можно убрать — это по недосмотру оставил.

а как сюда засунуть… »

Например. так:

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

Код:

Option Explicit

Const ForAppending = 8

Dim strUrlFileName

Dim objFSO
Dim strPath2UrlFile


strUrlFileName = "ссылка.url"

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

With WScript.CreateObject("WScript.Shell")
	strPath2UrlFile = objFSO.BuildPath(.SpecialFolders("Desktop"), strUrlFileName)
	
	With .CreateShortcut(strPath2UrlFile)
		.TargetPath = "http://yandex.ru"
		.Save
	End With
End With
	
With objFSO.OpenTextFile(strPath2UrlFile, ForAppending)
	.WriteLine "IconFile=C:\Windows\system32\SHELL32.dll"
	.WriteLine "IconIndex=27"
End With

Set objFSO = Nothing

WScript.Quit 0

Кстати: использование раскрытие пути к специальной папке Рабочий стол вместо прямого задания пути — правильный подход, Вы совершенно правы.