sunil's blog

Alright, I got “How to Create Personal Site Programmatically from MSDN (it was there in one sample chapter of Resource Kit)

Dim topology As New TopologyManager
Dim collection As PortalSiteCollection
Dim portal As PortalSite
portal = topology.PortalSites(New Uri(http://yoursite.yourdomain.com))
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
          Console.Write(("Creating a Personal Site for " + profile("PreferredName") + "…"))
  Try
          profile.CreatePersonalSite()
          Console.Write("Success! Created :" + profile("PreferredName") + "…" + ControlChars.Lf)
   Catch
          Console.Write("Site Already Exists!" + profile("PreferredName") + ControlChars.Lf)
   End Try
Next profile

This entry was posted on Sunday, August 1st, 2004 at 12:53 pm and is filed under Uncategorized. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.