Можно ли с пом SQLDMO узнать уровень польовательского допуска (MULTI_USER/SINGLE_USER) и как?
Полагаю надо создать сервер:
Set oServer = CreateObject("SQLDmo.SqlServer")
'используем аутентификацию Windows
oServer.LoginSecure = True
oServer.Connect "localhost"
For Each oDatabase In oServer.Databases

        WScript.Echo oDatabase.Name & " " & oDatabase.SpaceAvailableInMB
        ' А вот тут спросить у oDatabase. уровень. Только не могу найти в какой проперти/методе это сидит.

Next
oServer.DisConnect
Set oServer = Nothing

а через запрос?

как?

if (SELECT user_access_desc FROM sys.databases WHERE name = 'YourDb')
                                                            = 'SINGLE_USER'
    begin
       print 'It is in single user mode!'
    end

Короче, мне надо из vbs скрипта поймать момент когда БД в мультиюзере, что-бы автоматически запустить перепроведение.
Если я запускаю перепроведение из скрипта, а БД в синглеюзере я получаю:
ALTER DATABASE failed because a lock could not be placed on database

Фишка в том что SQLDMO может меня послать подальше, если БД в синглеюзере.

так можно же set single user что-то там сразу и всех остальных выгнать

ALTER DATABASE ERP_TEST
SET SINGLE_USER
WITH ROLLBACK IMMEDIATE;

а если 1С-ку пытаешся стартовать не проверив тип доступа, то получаешь блокировку входа, сообщение "ALTER DATABASE failed because a lock could not be placed on database" и висячее окно в сеансе терминала. А утром вопли.

(6) А если архивация еще не кончилась?

(7) то же самое. т.е. (9)
Мне надо уловить момент, когда архивация отработает и БД перейдет в мультиюзер.

Вроде, v7 не умеет коннектиться через домен. не?

(10) Запускай отдельный таск по завершению этого

(12) Конечно. Запускаю. Получаю: http://prntscr.com/fdcsp4

(13) Через агента запускаешь?
Можно еще делать бэкап батником, а после выполнения запускать дальше.
Типа такого
https://gist.github.com/a-sitnikov/85a870b2375fd253e7657e8ba45f5552

Пока БД не отпустило, sp_helpdb не отдает строку с нужной БД.
Фактически, если спросить:
sp_helpdb 'НужнаяБд'
и если придет пустой скульрезульт, то значит БД в синглеюзере и нефиг пока соваться.

(14) бекап делается по расписанию vbs-скриптом, который много чего делает.

(15) скрипт ждет завершения бэкапа?
Если да, то пусть по окончании запускает нужное

(16) Ясное дело ждет, ему ведь еще dat-файл архивировать.

ты бэкап через 1с делаешь чтоли?

да

(19) но зачем????

тогда можно еще делать
set multi user

Родил такую функцию:
function dbIsBusy(psBdName)
    dbIsBusy = false
    Set oServer = CreateObject("SQLDmo.SqlServer")
    oServer.LoginSecure = True  'используем аутентификацию Windows

'stop
    oServer.Connect "(local)"
    Set oResult = oServer.ExecuteWithResults("sp_helpdb '"+psBdName+"'")
    if oResult.Rows = 0 Then
        dbIsBusy = true
    End if
    
    oServer.DisConnect

    Set oServer = Nothing
end function

если БД в синглюзере - возвращается true, иначе false

(22) и в цикле запускаешь?

(23) Одна БД архивируется. Я этот прикол знаю...

(24) Я имею ввиду, что в цикле опрос делашь

(25) Скрипт запускается с интервалом в 20 минут. Определяет есть ли уже архив, если есть, идет на перепроведение, если нет, делает архив, и потом запускает сеанс с перепроведением.

(26) А что нельзя сделать архив и запустить перепроведение последовательно?

(27) тогда получаю: (13)

Не знаю, чем там БД занимается, но получаю ошибку "ALTER DATABASE failed because a lock could not be placed on database"  если все последовательно.
Не спасает даже слип. 5-ти минутный.
Ну и пару заданий на обслуживание БД в районе 5 утра.