Office Produktversion per VBS auslesen und in Varaiable überführen

Hallo zusammen,

ich benötige ein VB Skript, welches mir die installierte OfficeProduktversion ausliest.

Ich muss nicht nur wissen, dass Office 2010 installiert ist, ich brauche quasi den String "Microsoft Office Professional Plus 2010" respektive "Microsoft Office Standard 2010".

Ich weiß, daß diese Info in der Registry zu finden ist und auch in etwa wo. Es ist wohl ein Key mit Namen DisplayName irgendwo unter HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\.

Nur wie krieg ich das raus, extrahiere das aus dem Wust an Informationen und übergebe den String in eine Variable, mit der ich weiter arbeiten kann.

Meine Suchen führten mich bisher immer nur dahin, dass ich rauskriegen, dass Office installiert ist, aber nicht welche Produktversion. Und es müsste VBS sein, kein Batch, Powershell, etc.

Meine bisherige Lösung ist etwas krude (sucht nur nach Vorhandensein eines Access-Keys):

Const HKLM = &H80000002

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKey= "SOFTWARE\Microsoft\Office\14.0\Access\Options"
strValue = "AttachIndexWarning"
objRegistry.GetStringValue HKLM,strKey,strValue

If IsNull(strValue) Then
ver="Microsoft Office 2010 Standard"
Else
ver="Microsoft Office 2010 Professional Plus"
End If

DANKE SCHON EINMAL!!!!!!!!!

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32_Product where Caption like 'Microsoft Office%'")  

strOfficeProducts = ""  
For Each objSoftware in colSoftware
	    strOfficeProducts = strOfficeProducts & objSoftware.Caption & vbcrlf
Next
WScript.Echo strOfficeProducts

HKEY_LOCAL_MACHINE\Software\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall