☰

在 Windows 2008 TS 环境中是否有一种自动化的方法可以将项目固定到任务栏？

tag-icon • tag-icon windows-server-2008 terminal-server automation windows
在 Windows 2008 TS 环境中是否有一种自动化的方法可以将项目固定到任务栏？

我们有一个Windows 2008 (R2) 终端服务器环境并希望找到一种方法自动化为我们的用户将程序添加（固定）到 Windows 任务栏。

我的第一个想法是从组策略，但找不到这个设置。我听说你“可能”可以通过脚本，但还没有看到任何示例（我不是程序员，但以前使用过批处理脚本）。 还有其他方法吗？

请指教。

谢谢！

答案1

由于没有人发布不需要脚本的方法，因此这里有一个将Pin to Taskbar在快捷方式上调用该方法的脚本。如果有人知道任何不需要脚本的方法，我也想知道。

Option Explicit

ShellActionInvoke "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Other", _
                  "Lock Screen.lnk", _
                  "Pin to Tas&kbar"

Function ShellActionInvoke(Fol, File, Verb)
    On Error Resume Next
    Dim objWscriptShell
    Set objWscriptShell = WScript.CreateObject("WScript.Shell")
    Fol=objWscriptShell.ExpandEnvironmentStrings(Fol)
    Dim objAppShell
    Set objAppShell = CreateObject("Shell.Application")
    Dim objFolder
    Set objFolder = objAppShell.Namespace(Fol)
    Dim objFolderItem
    Set objFolderItem = objFolder.ParseName(File)
    Dim objVerb, colVerbs
    Set colVerbs = objFolderItem.Verbs
    For Each objVerb in colVerbs
        If objVerb.Name = Verb Then objVerb.DoIt()
    Next
End Function

答案2

这实际上行不通。这只适用于英文版 Windows。我正在寻找一种解决方案，而无需将此动词翻译成所有可能的语言 :(

相关内容