Backup OLAP 2000 databases

Een VBS Scriptje dat een archive neemt van elke OLAP database in een Analysis Services 2000 installatie.

Set dsoServer = CreateObject("DSO.Server")
Set dsoDatabase = CreateObject("DSO.MDStore")

Set objShell = WScript.CreateObject("WScript.Shell")


ServerName = "mySERVER"
msmdarchPath = "c:\Program Files\Microsoft Analysis Services\Bin\msmdarch"
OlapPath  = "c:\Program Files\Microsoft Analysis Services\data\"
BackupPath = "c:\temp\"
 
dsoServer.Connect ServerName
For each dsoDB in dsoServer.MDStores

 cmd = """" & msmdarchPath  & """" & " /a " & ServerName & " """  _
 & OlapPath & """ """  & dsoDB.Name & """ """ & BackupPath & dsoDB.Name & ".CAB"""

 objShell.run cmd, 6, True
 'wscript.echo cmd
Next