Недавно знакомый обратился с вопросом о возможности в PDF документе перевести два листа формата A4 в один лист A3. Данную операцию можно легко сделать, используя возможности виртуального (далее…)

Включение выделения элемента DOM

В отличии от современных браузеров, у Internet Explorer в средствах разработчика, по умолчанию, выключена подсветка исследуемого DOM элемента. Включается она нажатием на значок квадрата, который (далее…)

Использование оболочки Shell.Application

При использовании скриптов на VBScript может потребоваться выполнить открытие какого-либо файла, при помощи назначенного этому типу файлов приложению по умолчанию. Например, файл (далее…)

Использование реестра

В том случае, если вам понадобиться узнать разрядность (корректнее будет сказать — архитектуру) установленной версии операционной системы Windows через VBScript, то самым простым способом выполнить это, будет (далее…)

Описание проблемы

После обновления операционной системы Windows на компьютере с установленным КриптоПро CSP, в журнале событий можно обнаружить записи следующего (далее…)

В семействе операционных систем Windows почти все возможные действия со службами можно легко выполнить через графическую консоль управления. Однако, удалить службу через неё не получится — (далее…)

Закрепленные приложения

Функционал панели задач во многом остается неизменным со времен Windows 95 — на нем отображались запущенные приложения, можно было размещать различные панели инструментов (к примеру, Панель быстрого запуска), однако разработчики все же иногда вносят в её функционал некоторые изменения. Одним из таких стала возможность закреплять приложения — если ранее, для того, чтобы поместить ярлык нужного приложения на панель задач, требовалось поместить её ярлык в инструментов, вроде ранее упомянутой панели быстрого запуска, то теперь достаточно было просто нажать на приложении «Закрепить», и оно помещалось сразу за кнопкой Пуск.

Например, по умолчанию, в Windows 7 закрепляются следующие приложения:

• Проводник
• Internet Explorer
• Проигрыватель Windows Media

Для открепления приложения, достаточно нажать по его значку в панели задач правой кнопкой мыши, и выбрать пункт «Открепить от панели задач». Но в случае работы с несколькими компьютерами, а так же несколькими пользователями, может возникнуть потребность управлять тем, какие приложения должны быть закреплены в панели задач, а какие нет. Групповых политик на данный случай не существует, по этому придется воспользоваться возможностями встроенного в Windows VBScript,

Например, открепим из панели задач ярлык Internet Explorer. Сделать это можно следующим скриптом:

Set objFSO = CreateObject("Scripting.FileSystemObject")  Set objShell = CreateObject("WScript.Shell")  Set objShellApplication = CreateObject("Shell.Application")    Set objFolder = objShellApplication.Namespace(objShell.ExpandEnvironmentStrings("%appdata%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBar")    If objFSO.FileExists(objShell.ExpandEnvironmentStrings("%appdata%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBarInternet Explorer.lnk") Then  	Set objPinnedApp = objFolder.ParseName("Internet Explorer.lnk")  	Set colVerbs = objPinnedApp.Verbs  	For Each objVerb in colVerbs  		If objVerb.name = "Открепить от &панели задач" Then  			objVerb.DoIt  		End If  	Next  End If

Фактически, происходит так, что с помощью скрипта срабатывает вызов опции «Открепить от панели задач» на указанном файле (в данном случае ярлыке от Internet Explorer). Для того, чтобы открепить какое-то иное приложение, следует внести в скрипт следующие изменения:

• В 5 строке изменить путь у переменной objFolder на директорию с файлом или ярлыком от приложения, которое нужно открепить;
• В 7 строке, в условии на проверку существования ярлыка так же следует изменить путь на прямой до файла;
• В 8 строке внести имя ярлыка.

Сделаем все то же самое, но для ярлыка от Windows Media Player:

Set objFSO = CreateObject("Scripting.FileSystemObject")  Set objShell = CreateObject("WScript.Shell")  Set objShellApplication = CreateObject("Shell.Application")    Set objFolder = objShellApplication.Namespace(objShell.ExpandEnvironmentStrings("%appdata%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBar")    If objFSO.FileExists(objShell.ExpandEnvironmentStrings("%appdata%") & "MicrosoftInternet ExplorerQuick LaunchUser PinnedTaskBarWindows Media Player.lnk") Then  	Set objPinnedApp = objFolder.ParseName("Windows Media Player.lnk")  	Set colVerbs = objPinnedApp.Verbs  	For Each objVerb in colVerbs  		If objVerb.name = "Открепить от &панели задач" Then  			objVerb.DoIt  		End If  	Next  End If

Описание и решение проблемы

При подключении к удаленному рабочему столу, используя стандартный клиент Windows для подключения к удаленному рабочего столу, можно получить следующую ошибку:

Удаленный компьютер отключил сеанс, из-за (далее…)