Hi,
You can use :
select Case GetOfficeVer
Case 13
'Office 2010
Case 12
'Office 2007
Case else
'Version Office not detected
End Select
if you want, you can send me all your script. I will modify for you.
Best regards.
From: [email protected] [mailto:[email protected]] On
Behalf Of Marcum, John
Sent: mercredi 4 septembre 2013 17:28
To: '[email protected]'
Subject: [scripting] RE: Pin Taskbar Shortcuts
So I'd get the version and then do an if statement? If GetOfficeVer = something
then .... else....?
________________________________
John Marcum
Sr. Desktop Architect
Bradley Arant Boult Cummings LLP
________________________________
From: [email protected]<mailto:[email protected]>
[mailto:[email protected]] On Behalf Of Mathieu Kindelberger
Sent: Wednesday, September 04, 2013 8:42 AM
To: [email protected]<mailto:[email protected]>
Subject: [scripting] RE: Pin Taskbar Shortcuts
Hi John,
You can used 3 ways for it.
* You can check version with Wmi and class : Win32_Product. You need to
do an query for list only "Microsoft Office " and you read property Version. I
think return process of Win32_Product query can be long in duration. If you
have an computer with lot of software.
* You can check with registry : HKLM\SOFTWARE\Microsoft\Office\
* You can use Office Object and return Version.
Option Explicit
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
wscript.Echo GetOfficeVer
Best regards
From: [email protected]<mailto:[email protected]>
[mailto:[email protected]]<mailto:[mailto:[email protected]]>
On Behalf Of Marcum, John
Sent: mercredi 4 septembre 2013 14:56
To: Scripting List
([email protected]<mailto:[email protected]>)
Subject: [scripting] Pin Taskbar Shortcuts
I have a script that someone wrote that's used to pin Office 2010 shortcuts to
the taskbar. Some of my computers have Office 2007 and others have 2010. Can
someone please show me how to make the script determine which version of Office
is on the machine and pin the appropriate items to the taskbar?
On Error Resume Next
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 & "\")
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
________________________________
John Marcum
Sr. Desktop Architect
Bradley Arant Boult Cummings LLP
________________________________
________________________________
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.
=====================
Is managing company email taking up way too much time?
Let users manage archived email through Outlook and drastically
reduce email storage requirements.
Download trial at http://www.gfi.com/mailarchiver/?adv=930&loc=1
=====================
Is managing company email taking up way too much time?
Let users manage archived email through Outlook and drastically
reduce email storage requirements.
Download trial at http://www.gfi.com/mailarchiver/?adv=930&loc=1
________________________________
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.
=====================
Is managing company email taking up way too much time?
Let users manage archived email through Outlook and drastically
reduce email storage requirements.
Download trial at http://www.gfi.com/mailarchiver/?adv=930&loc=1
=====================
Is managing company email taking up way too much time?
Let users manage archived email through Outlook and drastically
reduce email storage requirements.
Download trial at http://www.gfi.com/mailarchiver/?adv=930&loc=1
