Set oAPI = CreateObject("MOM.ScriptAPI")
set oSQLPropertyBag = oAPI.CreatePropertyBag()
'Set the connection string
Dim connectionString
connectionString = "Provider=sqloledb;Server=" & _
databaseServerName & ";" & _
"Integrated Security=SSPI;Initial Catalog=" & databaseName
If GetDBFreeSpace(connectionString, oSQLPropertyBag) = SQL_DISCOVERY_SUCCESS Then Call oAPI.Return(oSQLPropertyBag)
WScript.Quit()
Function GetDBFreeSpace(ByVal connectionString, ByVal oSQLPropertyBag)
Dim cnADOConnection
Set cnADOConnection = CreateObject("ADODB.Connection")
Set oResults = nothing
cnADOConnection.Close
GetDBFreeSpace = SQL_DISCOVERY_SUCCESS
End Function
Function ConvertSizeStringToNumber(sSizeString)
' Remove the MB and return a valid double
sSizeString = Replace(sSizeString, " KB", "")
sSizeString = Replace(sSizeString, " MB", "")
ConvertSizeStringToNumber = CDbl(sSizeString)
End Function