
A quick post for my Java friends: Microsoft released SQL Server 2005 JDBC Driver 1.1 CTP June 2006.
www.vandeputte.org
Primum vivere, deinde philosophari
'CubeStatus.vbs
ServerName = "LocalHost"
'Delimiter = Chr(9) 'Tab
Delimiter = ";"
Set dsoServer = CreateObject("DSO.Server")
'Connect Analysis server
dsoServer.Connect ServerName
'Walk through OLAP DBs
For Each dsoDB In dsoServer.MDStores
'Walk through Cubes.
For Each dsoCube In dsoDB.MDStores
State = "Other"
If dsoCube.State = 0 Then
State = "OFFLINE"
ElseIf dsoCube.State = 4 Then
State = "Online"
End if
Wscript.Echo dsoDB.Name & Delimiter & dsoCube.Name & Delimiter & State
Next
Next