'For each class in the model having unloaded components, 
'this script list:
'
'1. all components assigned to the class 
'that are not currently loaded 
'(they could be indicators of corrupted references)
'2. all loaded components
'
'The results are written to the rose Log.
'
'If the model is large, right click on the log and 
'turn on the Autosave Log option before executing the script

Option Explicit
Sub Main
	Dim theclass As class
	Dim i As Integer, j As Integer
	Dim thecomp As String
	Dim theModel As Model
	Dim themodule As module
	Set theModel = roseapp.currentmodel
	RoseApp.writeerrorlog "Report of classes with unloaded components:"
	For j = 1 To themodel.getallclasses.count
	Set theclass = themodel.getallclasses.getat(j)
	If 	 theclass.getassignedunloadedcomponents.count > 0 Then
	RoseApp.WriteErrorLog "Class: "+theclass.getQualifiedName
	For i = 1 To theclass.getassignedunloadedcomponents.count
   		thecomp = 	theclass.getassignedunloadedcomponents.getat(i)
		RoseApp.WriteerrorLog _
		"  *** Unloaded/Corrupted Component: "+thecomp
	Next i
	For i = 1 To theclass.getassignedmodules.count
   		Set themodule = 	theclass.getassignedmodules.getat(i)
		RoseApp.WriteerrorLog _
		"  +++ Loaded Component: "+theModule.getqualifiedname+_
		" ID: "+theModule.getUniqueId
	Next i
	End If
	Next j
End Sub