Public Sub ScriptProcedure(strProcedure As String)
On Error GoTo err_check
    Dim SQLServer As Object
    Dim Database As Object
    Dim proc As Object
    Dim strScript As String
    Dim strFileName As String
    Dim fs As Scripting.FileSystemObject, dest As Scripting.TextStream

    strFileName =  "SQL\"  & strProcedure &  "_"  & Format(Date,  "yymmdd" ) &  ".sql" 
    Set fs = CreateObject( "Scripting.FileSystemObject" )
    Set dest = fs.CreateTextFile(strFileName, True)
    
    Set SQLServer = CreateObject( "SQLDMO.SQLServer" )
    
    SQLServer.LoginTimeout =  10 
    SQLServer.LoginSecure = True
    SQLServer.Disconnect
    
    SQLServer.Connect strDataSource ', strUserName, strPassword'
    Set Database = SQLServer.Databases(strDatabase)

On Error GoTo exists_check
    Set proc = Database.StoredProcedures(strProcedure)
    strScript = proc.Script(SQLDMOScript_Default Or SQLDMOScript_OwnerQualify Or SQLDMOScript_UseQuotedIdentifiers Or SQLDMOScript_ObjectPermissions, , SQLDMOScript2_ExtendedProperty Or SQLDMOScript2_NoCollation Or SQLDMOScript2_NoFG)
'    ArrangeScript strScript'
    strScript = Replace(strScript,  "CREATE PROCEDURE" ,  "ALTER PROCEDURE" )
    dest.WriteLine strScript
    GoTo start_qa
exists_check:
    If err =  21776  Then
        MsgBox  "Процедура "  & strProcedure &  " не существует. Для создания запустите скрипт." , vbCritical,  "Ошибка" 
        err.Clear
    Else
        GoTo err_check
    End If
On Error GoTo err_check
'    GenerateProcedure strProcedure, strScript'
    dest.WriteLine strScript

start_qa:
On Error GoTo err_check
    dest.Close
    Set dest = Nothing
    Shell  "isqlw.exe "  &  "-S "  & strDataSource &  " -d "  & strDatabase &  " -E -f "  & strFileName, vbNormalFocus
    GoTo exit_sub
    
err_check:
    MsgBox  "Ошибка в программе!"  & vbNewLine & err.Description, vbCritical,  "Ошибка" 
    err.Clear

exit_sub:
    Set Database = Nothing
    SQLServer.Disconnect
    Set SQLServer = Nothing
    If Not dest Is Nothing Then
        dest.Close
        Set dest = Nothing
    End If
End Sub