Решение:

Соответствующий код скрипта может быть таким:

Dim oServer

Set oServer = CreateObject("SQLDMO.SQLServer")

oServer.Name = "LONDON2\SQL2008"

Select Case oServer.Status

Case 0 'Состояние получить не удалось

WScript.Echo "Неизвестная ошибка"

Case 1 'Запущен

WScript.Echo "Сервер уже работает"

Case 2 'Приостановлен

oServer.Continue

Case 3 'Остановлен

'FALSE означает: не подключаться к серверу после запуска

oServer.Start("FALSE")

Case Else

WScript.Echo "Сервер в переходном состоянии"

WScript.Echo "Запустите скрипт повторно через несколько секунд"

End Select