You are creating an administrative Web Part for a Microsoft Windows SharePoint Services application.

You write the following code segment.

Dim mySPFarm As SPFarm = SPWebService.ContentService.Farm
Dim mySPServerCollection As SPServerCollection = mySPFarm.Servers
Dim contentDatabases As ArrayList = New ArrayList ()

You need to add the names of the content databases for non-administrative sites that are available within the server farm to the ArrayList object.

Which code segment should you use?

A.
Dim webAppCollection As SPWebApplicationCollection = _
SPWebService.ContentService.WebApplications
If Not (webAppCollection Is Nothing) Then
For Each webApp As SPWebApplication In webAppCollection
Dim contentDbCollection As SPContentDatabaseCollection = _
webApp.ContentDatabases
For Each contentDb As SPContentDatabase In contentDbCollection
contentDatabases.Add(contentDb.Name)
Next
Next
End If

B.
Dim webAppCollection As SPWebApplicationCollection = _
SPWebService.ContentService.WebApplications
If Not (webAppCollection Is Nothing) Then
For Each webApp As SPWebApplication In webAppCollection
Dim contentDbCollection As SPContentDatabaseCollection = _
webApp.ContentDatabases
For Each contentDb As SPContentDatabase In contentDbCollection
contentDatabases.Add(contentDb.Server)
Next
Next
End If

C.
Dim webAppCollection As SPWebApplicationCollection = _
SPWebService.AdministrationService.WebApplications
If Not (webAppCollection Is Nothing) Then
For Each webApp As SPWebApplication In webAppCollection
Dim contentDbCollection As SPContentDatabaseCollection = _
webApp.ContentDatabases
For Each contentDb As SPContentDatabase In contentDbCollection
contentDatabases.Add(contentDb.Name)
Next
Next
End If

D.
Dim webAppCollection As SPWebApplicationCollection = _
SPWebService.AdministrationService.WebApplications
If Not (webAppCollection Is Nothing) Then
For Each webApp As SPWebApplication In webAppCollection
Dim contentDbCollection As SPContentDatabaseCollection = _
web App.ContentDatabases
For Each contentDb As SPContentDatabase In contentDbCollection
contentDatabases.Add(contentDb.Server)
Next
Next
End If