Mickey Rourke
IS-IT--Management
Hi all,
actually I am using the following function down below within my vbs to get information about the actual installed MS Office software. But the full name of the installed office software eg. "Microsoft Office Professional Plus 2016" is not a result of my query I set it on my own depeding on what registry key is found and that's bullshit. The registry key only says that it is Version 16.0 or 15.0 and does not deliver the Office Edition (Professional or Professional Plus). Does anyone know how to get the complete name including the edition (from local computer)?
This is my function
Function GetOfficeVer()
sRegPre = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\"
sRegPost1 = "\Common\FilesPaths\"
sRegPost2 = "\Common\InstallRoot\"
Select Case True
Case RegKeyExists(sRegPre & "16.0" & sRegPost1)
sOfficeVer = "MS Office Professional Plus 2016"
Case RegKeyExists(sRegPre & "15.0" & sRegPost2)
sOfficeVer = "MS Office Professional Plus 2013"
Case Else
sOfficeVer = "Office not installed"
End Select
GetOfficeVer = sOfficeVer
End Function
actually I am using the following function down below within my vbs to get information about the actual installed MS Office software. But the full name of the installed office software eg. "Microsoft Office Professional Plus 2016" is not a result of my query I set it on my own depeding on what registry key is found and that's bullshit. The registry key only says that it is Version 16.0 or 15.0 and does not deliver the Office Edition (Professional or Professional Plus). Does anyone know how to get the complete name including the edition (from local computer)?
This is my function
Function GetOfficeVer()
sRegPre = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\"
sRegPost1 = "\Common\FilesPaths\"
sRegPost2 = "\Common\InstallRoot\"
Select Case True
Case RegKeyExists(sRegPre & "16.0" & sRegPost1)
sOfficeVer = "MS Office Professional Plus 2016"
Case RegKeyExists(sRegPre & "15.0" & sRegPost2)
sOfficeVer = "MS Office Professional Plus 2013"
Case Else
sOfficeVer = "Office not installed"
End Select
GetOfficeVer = sOfficeVer
End Function