Note: Until it is updated there is a correction to the code.

dim App, cntServ, cntGrps

Set App = CreateObject("SQLDMO.Application")

For cntGrps = 1 to App.ServerGroups.Count

    For cntServ = 1 To App.ServerGroups(cntGrps).RegisteredServers.Count

  MsgBox App.ServerGroups(cntGrps).Name & " - "_

    & App.ServerGroups(cntGrps).RegisteredServers(cntServ).Name & " - "_

    & App.ServerGroups(cntGrps).RegisteredServers(cntServ).Login & " - "_

    & App.ServerGroups(cntGrps).RegisteredServers(cntServ).Password

 Next

Next

Set App = nothing