Automated Database Schema Scripting (DMO) - Page 6

CREATE procedure dmoConnectServer
  @serverName varchar(30),
  @dmoServer int OUT
as
declare @hr int
declare @password varchar(30)

set nocount on

/* create a server object */
exec @hr = master..sp_OACreate 'SQLDMO.SQLServer', @dmoServer OUT
if @hr <> 0 
  begin
    exec sp_displayoaerrorinfo @dmoServer, @hr
    return  
  end

/* set the security context to integrated */
exec @hr = master..sp_OASetProperty @dmoServer,'loginSecure',1
if @hr <> 0 
  begin
    exec sp_displayoaerrorinfo @dmoServer, @hr
    return
  end

/* connect to the specified server */
exec @hr = master..sp_OAMethod @dmoServer,'Connect',NULL,@serverName
if @hr <> 0 
  begin
    exec sp_displayoaerrorinfo @dmoServer, @hr
    exec dmoDisconnectServer @dmoServer
    select @dmoServer=0
    return 
  end

return