'VB syntax: 
' Dim dsoServer As New DSO.Server 
' Enumerated olapXXXXXXX constants already defined when 
'       you added the DSO COM object to your project 
'VBS syntax: 
Dim dsoServer 
Set dsoServer = CreateObject("DSO.Server")  
Const olapEditionUnlimited = 0 
Const olapEditionPivotOnly = 1 
Const olapEditionNoPartitions = 2 
Const olapEditionError = &HFFFFFFFF 
' ------------------------------------------------------- 
 
' Connect to the local Analysis server. 
dsoServer.Connect "LocalHost" 
' Check the Edition property. 
Select Case  0  'dsoServer.Edition 
    Case olapEditionUnlimited 
        ' Insert code for Enterprise Edition features. 
 Msgbox  "EE"  
    Case olapEditionPivotOnly 
 ' Reserved for future use. 
        Msgbox "Reserved" 
    Case olapEditionNoPartitions 
        ' Insert code for Standard Edition features. 
 Msgbox  "Standard Edition"  
    Case olapEditionError 
        ' An error occurred while retrieving this information. 
 Msgbox "An error occurred" 
    Case Other 
 ' Invalid return value 
 Msgbox  "Invalid return value seen"  
End Select 
dsoServer.CloseServer 
Set dsoServer = Nothing