[omegastripes]

Код:

If WScript.Arguments.Count <> 1 Then
	MsgBox "Drag'n'drop exe file to pin to taskbar", , "Pin to Taskbar"
	WScript.Quit
End If

strPath = WScript.Arguments(0)
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

If objFolderItem Is Nothing Then
	MsgBox strPath & vbCrLf & "not found", , "Pin to Taskbar"
	WScript.Quit
End If

Set colVerbs = objFolderItem.Verbs

bPinned = False
For Each objVerb In colVerbs
	VerbName = Replace(objVerb.Name, "&", "")
	If VerbName = "Закрепить программу в панели задач" Or VerbName = "Закрепить на панели задач" Or VerbName = "Pin to Taskbar" Then
		objVerb.DoIt
		bPinned = True
		Exit For
	End If
Next

If bPinned Then
	Msgbox strPath & vbCrLf & "successfully pinned to taskbar"
Else
	Msgbox strPath & vbCrLf & "pin error"
End If

[Dodakaedr]

Где прописывать путь к файлу? Как убрать диалоговое окно?

[Dodakaedr]

Мне нужно для инсталяции программы. А именно в Smart Install Maker

[Iska]

Где прописывать путь к файлу? »

Параметром скрипта.

Как убрать диалоговое окно? »

Укажете параметр — окна не будет.

Мне нужно для инсталяции программы. А именно в Smart Install Maker »

Без разницы. Хоть для WiX.

[Dodakaedr]

Параметром скрипта. »

каким параметром?

Укажете параметр — окна не будет. »

какой параметр?

Я в этом не разбираюсь.

[Iska]

каким параметром? »

Первым и единственным.

Вы сохранили вышеприведённый код в файл «Путь\Имя скрипта.vbs». Запустите скрипт с указанием параметра, например:

Код:

wscript.exe "Путь\Имя скрипта.vbs" "C:\WINDOWS\system32\notepad.exe"

В Вашем случае:

Мне нужно для инсталяции программы. А именно в Smart Install Maker »

Вы должны вместо «Путь\Имя скрипта.vbs» указать конкретный путь, куда у Вас будет извлечён этот скрипт, а вместо «C:\WINDOWS\system32\notepad.exe» — полный путь к исполняемому файлу, который Вы проинсталлируете.

[Dodakaedr]

Вы сохранили вышеприведённый код в файл «Путь\Имя скрипта.vbs». Запустите скрипт с указанием параметра, например: Код: wscript.exe "Путь\Имя скрипта.vbs" "C:\WINDOWS\system32\notepad.exe" »

а как насчет окна которое выскакивает? Как его убрать?

[Dodakaedr]

Вот сделал как ты описал, но ничего так и не получилось. Выскочило окошко Drag'n'drop exe file to pin to taskbar и все((

[Iska]

Вот сделал как ты описал, »

Вы сделали по-своему. Но неправильно.

У меня нет BitTorrent, посему в его качестве выступал Dropbox:

Используйте переменные вместо непосредственного написания путей.