Microsoft Sharepoint Products and Technologies Resource Kit eBook

944 Part IX: Maintaining a Server in Windows SharePoint Services
The following code snippet demonstrates how to import user profiles from a
text file. It assumes that each property is delimited by a colon (:) character. Although
this is a simple example, it can easily be modified to provide user profile imports for
any other type of directory service, be it a database, a Lightweight Directory Access
Protocol (LDAP) service, or a corporate directory.
C#
public static void Import (string filename)
{
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);
//Open Text File containing user information
System.IO.FileInfo file = new FileInfo(filename);
System.IO.StreamReader fs = file.OpenText();
string read;
while ((read = fs.ReadLine()) != null)
{
//parse line
string[] userInfo = read.Split(":".ToCharArray());
//create user profile if it doesn't exist
string userAccount = userInfo[0];
if (!profileManager.UserExists(userAccount))
profileManager.CreateUserProfile(userAccount);
//Get the userprofile so it can be changed
UserProfile 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();
}
fs.Close();
}
VB.NET
Public Shared Sub Import(filename As String)
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)
'Open Text File containing user information
Dim file = New FileInfo(filename)
Dim fs As System.IO.StreamReader = file.OpenText()
Dim read As String
read = fs.ReadLine()
While Not (read Is Nothing)
'parse line
Dim userInfo As String() = read.Split(":".ToCharArray())