![]() | |
![]() |
| | Thread Tools | Display Modes |
#1
| |||
| |||
|
#2
| |||
| |||
|
#3
| |||
| |||
|
|
Hi Al, Try running this VB script: '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 HTH, Yaniv |
![]() |
| Thread Tools | |
| Display Modes | |
| |