Get Microsoft Office Version and Edition Information

[salnet]

Hello folks,

I'm scripting a little info-window for my user to easily get some information (logonuser, IP-address, etc.)

Now I'd like to extend it a little bit to get the Microsoft Office-version (2003, 2007, 2007) and edition (Pro, Standard, Home and Business, etc).

I managed to get the version but I've no clue how to get the edition-information, as it is not stored in the version-infomation of the apps.

This is my code:

$objWord = ObjCreate("Word.Application")
If IsObj($objWord) Then
    $OfficeVerison = $objWord.Version
    $objWord.Quit
Else
    $OfficeVerison = "N/A"
EndIf

Switch $OfficeVerison
    Case "7.0"
        $OfficeVerison = "97"
    Case "8.0"
        $OfficeVerison = "98"
    Case "9.0"
        $OfficeVerison = "2000"
    Case "10.0"
        $OfficeVerison = "2002"
    Case "11.0"
        $OfficeVerison = "2003"
    Case "12.0"
        $OfficeVerison = "2007"
    Case "14.0"
        $OfficeVerison = "2010"
    Case "N/A"
        $OfficeVerison = "Not installed"
    Case Else
        $OfficeVerison = "Older then hell!"
EndSwitch
$USERNAME=ENVGET("USERNAME")
$COMPUTERNAME=ENVGET("COMPUTERNAME")
$USERDOMAIN=ENVGET("USERDOMAIN")
$LOGONSERVER=ENVGET("LOGONSERVER")
MSGBOX(64,"IT-Support information","IT-Support information"&@LF&@LF&"Angemeldeter Benutzer:"&@LF&$USERNAME&@LF&@LF&"Computername:"&@LF&$COMPUTERNAME&@LF&@LF&"Domäne:"&@LF&$USERDOMAIN&@LF&@LF&"Logonserver:"&@LF&$LOGONSERVER&@LF&@LF&"IP-Adresse:"&@LF&@IPADDRESS1&@LF&@LF&"Betriebssystem:"&@LF&@OSVERSION&" "&@OSSERVICEPACK&" "&@OSARCH&@LF&@LF&"Auflösung:"&@LF&@DESKTOPWIDTH&" x "&@DESKTOPHEIGHT&" @ "&@DESKTOPDEPTH&" Bit Farbtiefe"&@LF&@LF&"Microsoft Office Version:"&@LF&$OfficeVerison)

Is there anyone who can help me?

[water]

$objWord.Version gives more information but I'm not sure this is enough to get the edition you need.

[armoros]

Hello Salnet

Maybe this help you

[water]

If I understand the OP correctly he needs the version/edition of the installed Microsoft Office product not the Microsoft Operating System.

[armoros]

Yes Water correctly.

I thought maybe it could give him some clues.

[GEOSoft]

When I did this a few years back I used similar to what you have and it worked great for the purposes but you may want to take a look at reading the uninstall information as well. I'm not sure if it will be in a consistant key or not though. For mine it is "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall{90110409-6000-11D3-8CFE-0150048383C9}"

[salnet]

water: $objWord.Version won't give the edition of an MS Office Product.

armoros: That's an amazing script. I'll have a closer look on it, and I think, I can use it to format my Operating System-details a bit. BUt I see no chance in using it for the office-thing, as the version don't change with an other edition.

GEOsoft: sound good, I'll give it a test. Do you know if the GUID is the same at all installations and versions or do I have to test each edition and version? If so, that wouldn't be good, as we have more than 6 different major-versions and hundereds of different patchlevels with an other GUID I think...

Thank you guys, I 'll test and will give feedback until end of week.

[GEOSoft]

The GUID was the one thing I wasn't sure of but I think it will be the same. Just check it on a couple of machines to see.

[salnet]

I checked the GUID on several machines and it is different on all of them, although they use same OS and same Officeversion, -edition and patchlevel.

[GEOSoft]

When I get a chance in the next couple of days I'll find what entry references the GUID and work back from there to find the best starting point.

Stay tuned to this station.