Microsoft Sharepoint Products and Technologies Resource Kit eBook

Chapter 34: The SharePoint Portal Server Object Model 947
This final example will create a report which displays all users in the profile
database and the URL of their My Site. It will display “None” for the URL if the user
does not have a My Site. It will also display the total number of users who have
already created a My Site. This report could easily be modified to calculate the size of
each user’s My Site and the total size of all My Sites, among other useful information.
C#
public static void Report()
{
int usersWithProfiles = 0, usersWithoutProfiles = 0;
//Connect to the portal and get the portal context.
TopologyManager topology = new TopologyManager();
PortalSite portal = topology.PortalSites[new Uri("http://test-server")];
PortalContext context = PortalApplication.GetContext(portal);
//initialize user profile config manager object
UserProfileManager profileManager = new UserProfileManager(context);
foreach (UserProfile profile in profileManager)
{
Microsoft.SharePoint.SPSite personalSite = profile.PersonalSite;
if (personalSite == null)
{
Console.WriteLine(profile["PreferredName"] + " : " + "NONE");
usersWithoutProfiles++;
}
else
{
Console.WriteLine(profile["PreferredName"] + " : " + personalSite.Url);
usersWithProfiles++;
}
}
Console.WriteLine("Users with Personal Site: " + usersWithProfiles.ToString());
Console.WriteLine("Users without Personal Sites: " + usersWithoutProfiles.ToString());
}
VB.NET
Public Shared Sub Report()
Dim usersWithProfiles As Integer = 0
Dim usersWithoutProfiles As Integer = 0
'Connect to the portal and get the portal context.
Dim topology As New TopologyManager()
Dim portal As PortalSite = topology.PortalSites(New Uri("http://test-server"))
Dim context As PortalContext = PortalApplication.GetContext(portal)
'initialize user profile config manager object
Dim profileManager As New UserProfileManager(context)
Dim profile As UserProfile
For Each profile In profileManager
Dim personalSite As Microsoft.SharePoint.SPSite = profile.PersonalSite
If personalSite Is Nothing Then
Console.WriteLine((profile("PreferredName") + " : " + "NONE"))
usersWithoutProfiles += 1
Else
Console.WriteLine((profile("PreferredName") + " : " + personalSite.Url))
usersWithProfiles += 1
End If