В DTS есть такая задача Copy SQL Server Objects, которая при соотвествующей настройке генерирует штук 20 скриптов, котрые останется только применить в правильном порядке(ну конечно сначала выяснить каков этот порядок).

Соответсвующие установки можно использовать и для объекта TransferObjectsTask при программировании DTS-ов

2Та
- То, о чем говорите вы, завется нахождение и перенесение различий, а не получение скрипта всех объетов базы.

- Copy SQL Server Objects создает скрипты не дя каждого объекта, а для именно для "правильного"(с точки зрения SQL) их создания в другой базе

Т.е. файл .TAB содержит скрипт по созданию всех таблиц НО без constraint, PK, FK и пр.

Добавление же всех FK содержит в себе файл .FKY( спомощью ALTER)
всех PK - .DR1 и пр. и пр.

И когда я говорил про порядок, то имел ввиду порядок запуска этих скриптов.

DTS - это хорошо. Но его необходимо создать в базе. А база далеко и сделать этого там никто не может. Все должно делаться из одного exe-ка

Получение скрипта осуществляется на сервере-источнике, а на нем исходная база должна таки быть.

Вот чуть доработаный пример из BOL

Private Sub RunTransfer(ByVal objPackage As DTS.Package2)
Dim objStep As DTS.Step
Dim objTask As DTS.Task
Dim objXferObj As DTS.TransferObjectsTask

'create step and task
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSTransferObjectsTask")
Set objXferObj = objTask.CustomTask

'configure transfer objects task
With objXferObj
.Name = "XferObjTask"
.SourceServer = "(local)"
.SourceUseTrustedConnection = True
.SourceDatabase = "pubs"
.DestinationServer = "(local)"
.DestinationUseTrustedConnection = True

'/*можно вообще указать любую, т.к.*/
.DestinationDatabase = "SomeOfPubs"
'/*объекты мы НЕ копируем*/
.CopySchema = False
'/*и данные тоже НЕ копируем*/
.CopyData = DTSTransfer_DontCopyData
.DropDestinationObjectsFirst = False

'/*скрипты складываем сюда*/
.ScriptFileDirectory = "X:\MyScripts"

.CopyAllObjects = True
.IncludeDependencies = True

'/*следующие 2 опции на усмотрение*/
.IncludeLogins = False
.IncludeUsers = False
End With

'link step to task
objStep.TaskName = objXferObj.Name
objStep.Name = "XferObjStep"
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask
End Sub

Тоже самое можно сделать и через DTS, используя Copy SQL Server Objects и сбросив опции Create destination objects и Copy data. Т.к. ни объекты ни данные реально копироватся не будут, то в качестве приемника может выступать любая локальная база(хотя бы таже model).

PS
В этом же DTS-е можно, например, заархивировать полученные файлы скриптов и отправть их почтой.