RE: script to check the version of outlook.

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

RE: script to check the version of outlook.

Logged in as: Guest

arrSession:exec spGetSession 2,2,32540

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: script to check the version of outlook.
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: << < prev 1 [2]

Message

<< Older Topic Newer Topic >>

RE: script to check the version of outlook. - 3/27/2006 1:13:36 AM

mbouchard

Posts: 1916
Score: 16
Joined: 5/15/2003
From: USA
Status: offline

Here is a script modified from one that I use to get the IE version, but there is one problemthat I noticed, but it should give you a start.

Depending on what Office or Outlook patches that may be installed, the version may be different than what is reported below (I used Office 2003 as that is what I have installed.

Set WshShell = CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")

MsgBox getOutlookVersion

Function getOutlookVersion
   Dim sKey, sPath, tPack
   sKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Outlook.EXE\"
   sPath = Wshshell.regread(sKey)
'    MsgBox Fso.getfileversion(sPath) used for testing what the version is
   If CompareVersion(Fso.getfileversion(sPath), "11.0.5510.0 ") = 0 Then
       getOutlookVersion = "O2K3RTM"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "11.0.6353.0") = 0 Then
       getOutlookVersion = "O2K3SP1"
   ElseIf CompareVersion(Fso.getfileversion(sPath), "11.0.7969.0 ") = 0 Then
       getOutlookVersion = "O2K3SP2"
   Else
       getOutlookVersion = "UNKNOWN"
   End If
End Function

Function CompareVersion(ByVal Version1, ByVal Version2)
   Dim V1, V2, T1, T2
   ' Function returns -1 if Version1 < Version2
   ' Function returns 1 if Version1 > Version2
   ' Function returns 0 if Version1 = Version2
   CompareVersion = 0
   If Version1="" Or Version2="" Then
       If Version1<Version2 Then
           CompareVersion = -1
           Exit Function
       Else
           If V1>V2 Then
               CompareVersion = 1
               Exit Function
           Else
               CompareVersion = 0
               Exit Function
           End If
       End If
   End If
   T1 = Instr(Version1, ".")
   If T1 = 0 Then T1 = Len(Version1)+1
   T2 = Instr(Version2, ".")
   If T2 = 0 Then T2 = Len(Version2)+1
   Do While True
       V1 = CInt(Left(Version1,T1-1))
       V2 = CInt(Left(Version2,T2-1))
       If V1<V2 Then
           CompareVersion = -1
           Exit Function
       Else
           If V1>V2 Then
               CompareVersion = 1
               Exit Function
           End If
       End iF
       Version1 = Mid(Version1,T1+1)
       Version2 = Mid(Version2,T2+1)
       If Version1="" Or Version2="" Then
           If Version1<Version2 Then
               CompareVersion = -1
               Exit Function
           Else
               If V1>V2 Then
                   CompareVersion = 1
                   Exit Function
               Else
                   CompareVersion = 0
                   Exit Function
               End If
           End If
       End iF
       T1 = Instr(Version1, ".")
       If T1 = 0 Then T1 = Len(Version1)+1
       T2 = Instr(Version2, ".")
       If T2 = 0 Then T2 = Len(Version2)+1
   Loop
End Function

For instance, when I ran the below code on my PC with the msgbox uncommented, the version reported was 11.0.8010.0. Now, thinking on this there are a couple possible ways to get around this. 1) put the highest number first and use =1 instead of =o (see compareversion function) then exit the function if it is true.



Another way would be to use seperate If/end if statements, with the lowest number first and using =1 instead of =0 (again see function), minus the Exit function used above. This way, while the first one may be true , the last will override it and you will see what the highest level outlook is installed.



_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to Cybex)

Post #: 21

RE: script to check the version of outlook. - 3/27/2006 2:36:51 AM

ebgreen

Posts: 5069
Score: 31
Joined: 7/12/2005
Status: offline

If you can assume that the machine will have outlook on it then do this:

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mbouchard)

Post #: 22

RE: script to check the version of outlook. - 3/27/2006 11:09:34 AM

muna_nbi

Posts: 12
Score: 0
Joined: 3/22/2006
Status: offline

Thanks you the last script did what i wanted. one more help is how to get the hostname and the outlook version to be printed to a txt file

(in reply to ebgreen)

Post #: 23

RE: script to check the version of outlook. - 3/27/2006 12:00:55 PM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

How do you plan on running this? From one machine against all others? If so, how are the machine names getting into the script?

Cybex

_____________________________

Common sense is not so common.

(in reply to muna_nbi)

Post #: 24

RE: script to check the version of outlook. - 3/27/2006 1:11:35 PM

muna_nbi

Posts: 12
Score: 0
Joined: 3/22/2006
Status: offline

i will be deploying the script to all computers or in the login script. so i need the feedback to either one drive or one host.

(in reply to Cybex)

Post #: 25

RE: script to check the version of outlook. - 1/17/2007 3:23:00 AM

vishesh

Posts: 1
Score: 0
Joined: 1/17/2007
Status: offline

Hi Guys,

I am actually looking a script for the same purpose. I want to run this on my machine and the script should read the computer names from the text file.

Apprecite your earlist response.

(in reply to mbouchard)

Post #: 26

RE: script to check the version of outlook. - 1/17/2007 3:31:58 AM

ebgreen

Posts: 5069
Score: 31
Joined: 7/12/2005
Status: offline

Please start your own thread and explain the problem that you are having. We don't generally write scripts for people. We help them write their own.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to vishesh)