Set objShell = CreateObject("Shell.Application")   
set filesystem = CreateObject("scripting.Filesystemobject")   
Set objFolder = objShell.Namespace(filesystem.GetParentFolderName(Wscript.Arguments(0)))   
Set objFolderItem = objFolder.ParseName(filesystem.GetFileName(WScript.Arguments(0)))   
Set colVerbs = objFolderItem.Verbs   
For Each objVerb in colVerbs   
      If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt   
      If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt   
      If Replace(objVerb.name, "&", "") = "Закрепить программу в панели задач" Then objVerb.DoIt   
      If Replace(objVerb.name, "&", "") = "Изъять программу из панели задач" Then objVerb.DoIt       
      If Replace(objVerb.name, "&", "") = "Закрепить на панели задач" Then objVerb.DoIt   
      If Replace(objVerb.name, "&", "") = "Открепить от панели задач" Then objVerb.DoIt     
Next

const
      LOAD_LIBRARY_AS_DATAFILE = $2;

#ifdef UNICODE
      #define A "W"
#else
      #define A "A"
#endif

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

function PinToTaskbar(Filename: String; IsPin: Boolean): Boolean;
//Filename: full path to executable file
//IsPin: False - unpin to TaskBar, True - pin from TaskBar
var
      hInst: THandle;
      buf: array [0..255] of Char;
      i, Res: Integer;
      strLnk, strVerb: String;
      objShell, colVerbs: Variant;
begin
      Result := False;
      if (GetWindowsVersion shr 24 < 6) or ((GetWindowsVersion shr 24 = 6) and ((GetWindowsVersion shr 16) and $FF < 1)) then Exit;
      if not FileExists(Filename) then Exit;
      if IsPin then if SHGetNewLinkInfo(Filename, ExpandConstant('{tmp}'), buf[0], Res, 0) then
      begin
          while buf[Length(strLnk)] <> #0 do strLnk := strLnk + buf[Length(strLnk)];
          if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
      end;
      if IsPin then Res := 5386 else Res := 5387;
      hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
      if hInst <> 0 then
      try
          for i := 0 to LoadString(hInst, Res, buf[0], 255)-1 do strVerb := strVerb + Buf[i];
          try
              objShell := CreateOleObject('Shell.Application');
          except
              ShowExceptionMessage;
              Exit;
          end;
          colVerbs := objShell.Namespace(ExtractFileDir(Filename)).ParseName(ExtractFileName(Filename)).Verbs;
          for i := colVerbs.Count downto 1 do if colVerbs.Item[i].Name = strVerb then
          begin
              colVerbs.Item[i].DoIt;
              Result := True;
              Break;
          end;
      finally
          FreeDLL(hInst);
      end;
end;