Microsoft Sharepoint Products and Technologies Resource Kit eBook

Chapter 34: The SharePoint Portal Server Object Model 945
'create user profile if it doesn't exist
Dim userAccount As String = userInfo(0)
If Not profileManager.UserExists(userAccount) Then
profileManager.CreateUserProfile(userAccount)
End If 'Get the userprofile so it can be changed
Dim userProfile As UserProfile = profileManager.GetUserProfile(userAccount)
' Set users Preferred name to their first + last name.
userProfile("PreferredName") = userInfo(2) + " " + userInfo(1)
userProfile("WorkEmail") = userInfo(0) + "@domain.com"
userProfile.Commit()
read = fs.ReadLine()
End While
fs.Close()
End Sub
The next example demonstrates how to add the corporate Web site URL to
every user’s Links Web Part. This Web Part is shown on the users’ My Site. You can
use this code to add any links that you deem necessary for all users. The sample
code is a function that adds the passed URL and title to the “Corporate” category.
With modifications, you could also use the code to add certain links to specific sets
of users.
C#
public static void Add(string url, string title, bool IsPublic)
{
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)
{
profile.QuickLinks.Add(title, url, "Corporate", IsPublic);
}
}
VB.NET
Public Shared Sub Add(url As String, title As String, IsPublic As Boolean)
Dim topology As New TopologyManager()
Dim portal As PortalSite = topology.PortalSites(New Uri("http://testserver"))
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
profile.QuickLinks.Add(title, url, "Corporate", IsPublic)
Next profile
End Sub
The next example shows how to create My Sites for all users in the
profile database in one shot. It is often useful to create sites for all users before the