#Get the Server Context
$context = Get-SPServiceContext -Site http://me
  
#Add User Profile Sub-Types 
#Get the Profile Subtype Manager
$psm = [Microsoft.Office.Server.UserProfiles.ProfileSubtypeManager]::Get($context);
  
#create a user profile subtype
$psm.CreateSubtype("SearchTeam","Search Team", [Microsoft.Office.Server.UserProfiles.ProfileType]::User);
$psm.CreateSubtype("AccountExecutive", "Account Executive", [Microsoft.Office.Server.UserProfiles.ProfileType]::User);
  
#create an organization profile subtype
$psm.CreateSubtype("Official", "Official Organization", [Microsoft.Office.Server.UserProfiles.ProfileType]::Organization);
$psm.CreateSubtype("Fun", "Fun Organization", [Microsoft.Office.Server.UserProfiles.ProfileType]::Organization);
$psm.CreateSubtype("Professional", "Professional Organization", [Microsoft.Office.Server.UserProfiles.ProfileType]::Organization);