我在域中拥有 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"