Dynamics crm 使用sdk向CRM 4.0添加新用户
有人有使用sdk向CRM 4.0添加新用户的示例代码吗?我有基于另一个系统中的用户为我们创建用户的代码,因此我无法将其全部粘贴到此处-大部分对您来说没有意义-但这是它的核心: [在VB中抱歉:-)-在这里发布VB时,我发现我需要使用“/”来表示注释,以使格式正确]Dynamics crm 使用sdk向CRM 4.0添加新用户,dynamics-crm,dynamics-crm-4,Dynamics Crm,Dynamics Crm 4,有人有使用sdk向CRM 4.0添加新用户的示例代码吗?我有基于另一个系统中的用户为我们创建用户的代码,因此我无法将其全部粘贴到此处-大部分对您来说没有意义-但这是它的核心: [在VB中抱歉:-)-在这里发布VB时,我发现我需要使用“/”来表示注释,以使格式正确] Public Sub CreateNewUser() Dim s as mscrm.CrmService = GetMyService() Dim newUser as New mscrm.systemuser() Wit
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
对于C#,看看我的问题,它正是你想要的(但不是我想要的:-p)。嘿,布伦顿,干得好,非常清楚,是完美的解决方案,我想知道为什么没有人愿意说它有用。。。曾经问过这个问题的人应该点击作为问题的答案。。。