sub main
ooVersion = OOoVersion()
msgbox ooVersion
end sub
Function OOoVersion() As String
Dim aSettings, aConfigProviderDim aParams2(0) As new com.sun.star.beans.PropertyValue
Dim sProvider$, sAccess$
sProvider = "com.sun.star.configuration.ConfigurationProvider"
sAccess = "com.sun.star.configuration.ConfigurationAccess"
aConfigProvider = createUnoService(sProvider)
aParams2(0).Name = "nodepath"
aParams2(0).Value = "/org.openoffice.Setup/Product"
aSettings = aConfigProvider.createInstanceWithArguments(sAccess, aParams2())
OOOVersion=aSettings.getbyname("ooSetupVersion")
End Function