使用 sdk 向 CRM 4.0 添加新用户答案

【问题标题】：Adding a new user to CRM 4.0 using sdk使用 sdk 向 CRM 4.0 添加新用户
【发布时间】：2009-11-24 15:35:27
【问题描述】：

有没有人有使用 sdk 向 CRM 4.0 添加新用户的示例代码？

【问题讨论】：

【解决方案1】：

我的代码可以根据另一个系统中的用户为我们创建用户，因此我无法将其全部粘贴到此处 - 大部分内容对您来说没有意义 - 但这是它的核心：

[在 VB 中抱歉 :-) - 在这里发布 VB 时，我发现我需要使用 '//' 表示注释以使格式正确]

Public Sub CreateNewUser()
  Dim s as mscrm.CrmService = GetMyService()
  Dim newUser as New mscrm.systemuser()
  With newUser
     .domainname = "domain\user"
     .firstname = "Stan"
     .lastname = "Molda"
     //set anything else you want here
  End With
  Dim userGuid as guid = s.Create(newUser)

  //Next we need to assign the user a role
  AssignRole(userGuid)

  //Finally we need to assign them to the correct Time Zone
  SetUserTimeZone(userGuid)
End Sub

Public Sub AssignRole(g as Guid)
    Dim s as mscrm.CrmService = GetMyService()
    Dim req As New mscrm.AssignUserRolesRoleRequest()
    req.UserId = g
    req.RoleIds = New Guid() {GetTheGuidForMyPrimaryRole()}
    s.Execute(req)
End Sub

Public Sub SetUserTimeZone(g as Guid)
    Dim s as mscrm.CrmService = GetMyService()
    Dim r As New mscrm4.RetrieveUserSettingsSystemUserRequest()
    r.ColumnSet = New mscrm3.AllColumns()
    r.EntityId = New Guid(g)
    Dim resp As mscrm.RetrieveUserSettingsSystemUserResponse = CType(s.Execute(r), mscrm.RetrieveUserSettingsSystemUserResponse)
    Dim settings As mscrm.usersettings = CType(resp.BusinessEntity, mscrm.usersettings)
    settings.timezonecode = New mscrm.CrmNumber
    settings.timezonecode.Value = OUR_TIME_ZONE_CONSTANT
    Dim update As New mscrm.UpdateUserSettingsSystemUserRequest()
    update.Settings = settings
    update.UserId = g
    s.Execute(update)
End Sub

【讨论】：

嘿，Brendon 干得好，非常清楚，完美的解决方案我想知道为什么没有人愿意说它很有用...曾经问过这个问题的人应该真正点击作为问题的答案...

【解决方案2】：

对于 C#，看看我的问题 Dynamics CRM: Create users with specific GUIDs，它完全符合您的要求（但不是完全我想要的 :-P）。

【讨论】：