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.
