[Dodakaedr]

Если приведёте Ваш код — посмотрим.

Код:

If WScript.Arguments.Count <> 1 Then
	MsgBox "Drag'n'drop exe file to pin to taskbar", , "Pin to Taskbar"
	WScript.Quit
End If
	a=MsgBox("Закрепить ярлык на Панели задач?", vbYesNo + vbInformation, "ххх") 
	If a = 6 Then
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))
	ElseIf a = 7 Then 
	WScript.Quit
	End If
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 "Ярлык закреплен", vbOKOnly + vbInformation, "ххх"
Else
	Msgbox "Ошибка", vbOKOnly + vbCritical, "ххх"
End If

Да ну? Например?