Get Analysis Services last processed date

 1Public Function GetCubeLastProcessedDates(ByVal AnalysisServer As String) As Collection(Of CubeInfo)
 2    Dim result As Collection(Of CubeInfo)
 3    Dim identity As WindowsIdentity = WindowsIdentity.GetCurrent()
 4    Dim eCode As Integer = CommonUtility.RevertToSelf()
 5    Dim oServer As New Server
 6    Try
 7        result = New Collection(Of CubeInfo)
 8        oServer.Connect(String.Format(CultureInfo.InvariantCulture, "data Source = {0};", AnalysisServer))
 9
10        For Each d As Database In oServer.Databases
11            For Each c As Cube In d.Cubes
12                result.Add(New CubeInfo(d.Name, c.Name, c.LastProcessed))
13            Next
14        Next
15
16        oServer.Disconnect()
17    Catch e As ConnectionException
18        ' Do some error handling
19    Catch e As AdomdErrorResponseException
20        ' Do some error handling
21    Catch e As AdomdConnectionException
22        ' Do some error handling
23    Catch e As Microsoft.AnalysisServices.AmoException
24        ' Do some error handling
25    Catch e As Exception
26        Throw
27    Finally
28        oServer.Dispose()
29        identity.Impersonate()
30    End Try
31    '------------------------------
32    Return result
33End Function