自动创建任务栏快捷方式

自动创建任务栏快捷方式

我在域中拥有 Windows 8 计算机。我想创建一个组策略对象,以便在用户移动到不同计算机时为他们创建任务栏快捷方式。

我已经创建了一个批处理文件,它将快捷方式(即Word.lnk)文件复制到以下文件夹:

C:\Users\User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\Taskbar

但是这不会在用户的任务栏上创建链接。我推测某个地方有一个注册表设置,但在 Google 上找不到任何相关信息。

有人知道如何解决这个问题吗?

答案1

您可以使用如下所示的 VBScript 文件:

Const CSIDL_COMMON_PROGRAMS = &H17
Set objShell = CreateObject("Shell.Application")
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Word 2010.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
Next

如果你想将任意 EXE 固定到任务栏,请查看本文,下载附加的代码并调用PinItem 插件像这样:

cscript PinItem.vbs /taskbar /item:"Drive:\Path\to\app.exe"

相关内容