2009-11-24 2 views

답변

2

다른 시스템의 사용자를 기반으로 사용자를 생성하는 코드가 있기 때문에 여기에 모두 붙여 넣을 수는 없습니다. 대부분 당신에게 이해가 가지 않습니다. 그러나 이것이 핵심입니다 :

-, C 번호

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 
+0

헤이 Brendon 좋은 직업 아주 명확하고 완벽한 해결책 나는 아무도 그것이 말하기를 돌 보았던 이유를 궁금해합니다. 누가이 질문을 한 적이 있습니까? –

1

을 살펴 [VB 죄송합니다 :-) 여기에 VB를 게시 할 때 또한 나는 올바른 서식을 만들기 위해 코멘트를 표시하기 위해 '//'를 사용합니다 찾을] 내 질문, Dynamics CRM: Create users with specific GUIDs, 정확히 원하는대로 수행합니다 (단, 은 정확히이 아닙니다 .-P).