LISTING 1: Example of Using SQL-DMO with Collections

Dim dmoApp As SQLDMO.Application
Dim dmoServerGroup As SQLDMO.ServerGroup
Dim dmoServer As SQLDMO.RegisteredServer
    
Set dmoApp = New SQLDMO.Application
For Each dmoServerGroup In dmoApp.ServerGroups
	For Each dmoServer In dmoServerGroup.RegisteredServers
		'Add the server name to a list box
		lstServers.AddItem dmoServer.Name
	Next
Next