Automated Database Schema Scripting (DMO) - Page 16

CREATE procedure dmoDisconnectServer
  @dmoServer int
as
declare @hr int

set nocount on

exec @hr = master.dbo.sp_OAMethod @dmoServer,'DisConnect'
if @hr <> 0 
    exec sp_displayoaerrorinfo @dmoServer, @hr

/* close the database connection */
exec @hr = master.dbo.sp_OADestroy @dmoServer
if @hr <> 0 
  begin
    exec sp_displayoaerrorinfo @dmoServer, @hr
    return
  end