Seems to work great manually, but can't get this to work via GP startup script.
From: [email protected] To: [email protected] Subject: RE: [mssms] OT: Office 2013 desktop shortcuts Date: Fri, 20 Jun 2014 18:54:34 +0000 Yep From: [email protected] [mailto:[email protected]] On Behalf Of Brian McDonald Sent: Friday, June 20, 2014 1:54 PM To: [email protected] Subject: RE: [mssms] OT: Office 2013 desktop shortcuts John, Thanks for sending this. Are you using this as a startup script? Thanks, Brian From: [email protected] To: [email protected] Subject: RE: [mssms] OT: Office 2013 desktop shortcuts Date: Fri, 20 Jun 2014 15:42:06 +0000 I pin them to the taskbar. On Error Resume Next Function GetOfficeVer() On Error Resume Next Dim ObjectWord,strVersiontemp strVersiontemp = 0 Set ObjectWord = CreateObject("Word.Application") strVersiontemp = ObjectWord.Version ObjectWord.Quit Set ObjectWord = Nothing GetOfficeVer = strVersiontemp End Function Const CSIDL_COMMON_PROGRAMS = &H17 Const CSIDL_PROGRAMS = &H2 Set objShell = CreateObject("Shell.Application") Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS) strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path Set objACCFolder = objShell.Namespace(strAllUsersProgramsPath & "\Accessories") Set objOFFFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office") Set objRootFolder = objShell.Namespace(strAllUsersProgramsPath & "\") If GetOfficeVer = "12.0" then Set objRootFolder2 = objRootFolder.ParseName("Windows Media Player.lnk") Set colROOTVerbs2 = objRootFolder2.Verbs For Each objVerb in colROOTVerbs2 If Replace(objVerb.name, "&", "") = "Unpin this program from taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Microsoft Office Outlook 2007.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Microsoft Office Word 2007.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Microsoft Office Excel 2007.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next End if If GetOfficeVer = "13.0" then Set objRootFolder2 = objRootFolder.ParseName("Windows Media Player.lnk") Set colROOTVerbs2 = objRootFolder2.Verbs For Each objVerb in colROOTVerbs2 If Replace(objVerb.name, "&", "") = "Unpin this program from taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Microsoft Outlook 2010.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Microsoft Word 2010.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Microsoft Excel 2010.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next End if If GetOfficeVer = "15.0" then Set objOFFFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office 2013") Set objRootFolder2 = objRootFolder.ParseName("Windows Media Player.lnk") Set colROOTVerbs2 = objRootFolder2.Verbs For Each objVerb in colROOTVerbs2 If Replace(objVerb.name, "&", "") = "Unpin this program from taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Outlook 2013.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Word 2013.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next Set objOFFFolder1 = objOFFFolder.ParseName("Excel 2013.lnk") Set colOFFVerbs1 = objOFFFolder1.Verbs For Each objVerb in colOFFVerbs1 If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt Next End if From: [email protected] [mailto:[email protected]] On Behalf Of Brian McDonald Sent: Friday, June 20, 2014 10:39 AM To: [email protected] Subject: [mssms] OT: Office 2013 desktop shortcuts Hey everyone, Is it possible to utilize GPP in a Windows Server 2003 DFL/FFL environment for Win7 clients? I have a need to deploy Excel, Word and PowerPoint desktop shortcuts to Win7 clients. My DC is running WinSrv2008R2 and the shortcuts don't seem to be appearing on the desktop. Here is how I have the policy configured: Action: Create Name: Word Target Type: File System Object Location: All Users Desktop Target Path: "C\Program Files (x86)\Microsoft Office\Office15\Winword.exe" Icon file path: C:\Windows\System32\Icons\Word2013.ico Not sure if I have this setup incorrectly, or if we need to update our DFL/FFL to 2008 R2? Thanks, Brian Confidentiality Notice: This e-mail is from a law firm and may be protected by the attorney-client or work product privileges. If you have received this message in error, please notify the sender by replying to this e-mail and then delete it from your computer. Confidentiality Notice: This e-mail is from a law firm and may be protected by the attorney-client or work product privileges. If you have received this message in error, please notify the sender by replying to this e-mail and then delete it from your computer. Confidentiality Notice: This e-mail is from a law firm and may be protected by the attorney-client or work product privileges. If you have received this message in error, please notify the sender by replying to this e-mail and then delete it from your computer. Confidentiality Notice: This e-mail is from a law firm and may be protected by the attorney-client or work product privileges. If you have received this message in error, please notify the sender by replying to this e-mail and then delete it from your computer.
