Listing 1: Creating a List of All Registered Server Names

'List the registered SQL Servers.
Private Sub ListServers()
Dim oApp As New SQLDMO.Application
Dim oGroup As SQLDMO.ServerGroup
Dim oServer As SQLDMO.RegisteredServer

'From each SQL Server group, collect all registered SQL Server names
'in the host Enterprise Manager.
For Each oGroup In oApp.ServerGroups
   For Each oServer In oGroup.RegisteredServers
      List1.AddItem oServer.Name
   Next oServer
Next oGroup

Set oApp = Nothing
End Sub