clmn.CanSetAttribute( "DefaultValue", dflt_isdeleted.value, err_message)

Dim model
Dim ModelTables
Dim DefaultValue
Dim srtTbl
Dim clmn
Dim tbl
Dim table_temp
Dim dflt_isdeleted 'ссылка на нужный "Default"-объект 
Dim dflt
Dim err_message

set model=ActiveModel
set ModelTables = model.tables
set DefaultValues = model.defaults

output Version

  'поиск нужного "default"
 for each dflt in DefaultValues
   if dflt.name="isdeleted_default"  then 
     set dflt_isdeleted = dflt
   end if
 next

 if not(isObject(dflt_isdeleted)) then
   output "not found ""Default"" obj"
   quit
 end if
 
  output "DefaultObj:" + dflt_isdeleted.name + "=" + dflt_isdeleted.value  

   'перебор таблиц, столбцов
   for each tbl in ModelTables
      If IsObject(tbl) Then
         set table_temp = tbl
         for each clmn in table_temp.Columns
      
            if clmn.name="isdeleted" then   
               output clmn.Table + " = " _
                                 & + CStr(clmn.GetAttribute("CannotModify")) _
                                 & +", " + CStr(clmn.DefaultValue) _
                                 & +", " + CStr(clmn.CanSetAttribute( "DefaultValue", dflt_isdeleted.value, err_message))
               output err_message
               'output CStr(clmn.SetAttribute( "DefaultValue", dflt_isdeleted))
            end if
         next
      End if
   next

VB Script started on 23.03.2012 at 16:50:44
16.0.0.3488
DefaultObj:isdeleted_default=0
Table 'dbo'.'address' = Ложь, null, Ложь
Default Value cannot be set to this value
Table 'dbo'.'checkpoints' = Ложь, 0, Ложь
Default Value cannot be set to this value
Table 'dbo'.'company' = Ложь, , Ложь
Default Value cannot be set to this value
Table 'dbo'.'email' = Ложь, , Ложь
Default Value cannot be set to this value
Table 'dbo'.'people' = Ложь, , Ложь
Default Value cannot be set to this value