На код взглянуть можно?

Тот же самый код внутри HTA приложения.
Я понял уже, как надо делать с TRUNCATE, вы правы, там ответа как такого нет.
Были сомнения по поводу DBCC SRINKDATABASE, но оказалось, что у эта функция возвращает набор записей.

Меня немного смутило, что выполнение скрипта при помощи OSQL.EXE всегда выдает строку с результатом.

На код взглянуть можно?

Вот мой

Test
Sub Test
	Set objConn = WScript.CreateObject("ADODB.Connection", "Connection_")
	ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User Id=sa;Password=super_pass;Initial Catalog=test;Data Source=1C"
	
	objConn.Open ConnectString
	Set objRecordset = objConn.Execute("TRUNCATE TABLE tblTest")

	objConn.Close
	
	Set objConn = Nothing
	Set objRecordset = Nothing

End Sub

Function Connection_ExecuteComplete(RecordsAffected, pError, adStatus, pCommand, pRecordset, pConnection)
	MsgBox "yeah"
End Function

Но! Если текст запроса вида

TRUNCATE TABLE BAR

То набора записей нет. А сообщение сервера есть. То есть мне надо не количество обработанных строк, а именно сообщение. Вот как его получить?

Набора записей конечно нет - команда его не возвращает(т.к. очищает таблицу без подсчёта удалённых записей). Что до сообщения от сервера, то какое?!
"The command(s) completed successfully." в QA это просто интерпритация того что команда выполнена без ошибок и не более того. В ответ на команду не возвращающую значения сервер может только сказать выполнена ли команда с ошибками или нет. Если требуется убедиться в том что команда выполена успешно, то достаточно отследить ошибки объекта MSSQLConn после выполнения MSSQLConn.Execute(Command_1) - если нет ошибок, значит "The command(s) completed successfully.".

strSQL = "TRUNCATE TABLE BAR"
On Error Resume Next
MSSQLConn.Execute(strSQL)
If MSSQLConn.Errors.Count > 0 Then ' обработка ошибок SQL
 For Each E In MSSQLConn.Errors
  wscript.echo "SQL_Error: " & E.Description
 Next
End If
On Error Goto 0

Если и это не убеждает, то после "TRUNCATE TABLE BAR" можно сделать "SELECT count(*) FROM BAR" - если вернулось 0, то таблица очищена .

В любом случае, обработку возможных ошибок при выполнении запроса лучше добавить. Я бы вообще выполнение запроса вынес в отдельную процедуру для каждого типового случая - селект отдельно, делет отдельно, транкейт отдельно. В дальнейшем эти процедуры легко скопипастить в другой код для повторного использования .

Или я не совсем правильно понял что требуется сделать?

Пробовали использовать?

Да. Событие ExecuteComplete не наступает.

Это событие, как я понял, тоже возвращает количество обработанных строк.

Вопрос 1: и это все?
А что находится в pError, pCommand, pRecordset, pConnection?

Sub Test
   Set objConn = WScript.CreateObject("ADODB.Connection", "Connection_")
   ConnectString = "Provider=;"
   objConn.Open ConnectString
   Set objRecordset = objConn.Execute("exec DO_IT")
      objConn.Close
   Set objConn = Nothing
   Set objRecordset = Nothing
End Sub

Function Connection_ExecuteComplete(RecordsAffected, pError, adStatus, pCommand, pRecordset, pConnection)
   'перебрать RecordsAffected, pError, adStatus, pCommand, pRecordset, pConnection
End Function

Вопрос 2: а какое сообщение-то сервер отправляет? Что там находится?

Пробовали использовать?

...
		SQLConn.Execute SQLstr, rcount
		msgbox  Cstr(rcount)+ " Записей обработано"
...

Но это только для DELETE FROM
А вот для всего остального не ясно...

Command_1="select barcode from bar"'Текст запроса
Set Record_1 =MSSQLConn.Execute(Command_1)'Выплняем запрос

While Not Record_1.EOF 'Перебираем результаты
    if isNull(Record_1.Fields(0).Value)  then' Что нибудь с ними вытворяем
	RecSet="NULL"
	Else
	RecSet=CStr(Record_1.Fields(0).Value)
	end if
Record_1.MoveNext' Идем к следующей записи
wend

Но! Если текст запроса вида

TRUNCATE TABLE BAR

То набора записей нет. А сообщение сервера есть. То есть мне надо не количество обработанных строк, а именно сообщение. Вот как его получить?