新 サブサイト→トップレベルサイト -(3)- ユーザーとクロスサイトグループのコピー

今回はユーザーとクロスサイトグループに関してです。

ユーザーとクロスサイトグループはロールと密接につながっているようです。

ユーザーを追加する際は下記の命令で実装できます。

NewRole.AddUser(ログイン名 as string 、メールアドレス as string 、
                          ユーザー名 as string 、備考 as string ）

クロスサイトグループを追加する際は下記の命令で実装できます。

NewRole.AddGroup(グループ as SPGroup)

そこで下記のように実装してみました。前回作成したNewRoleに対してユーザーとクロスサイトグループを追加しています。

 '--- Target Role Users
For Each TargetUser In TargetRole.Users
　'--- Flag Initialed
　Flg = False
　'--- New Role Users
　For Each NewUser In NewRole.Users
　　'--- Target Role Check
　　If TargetUser.LoginName = NewUser.LoginName Then
　　　Flg = True
　　Exit For
　End If
Next
'--- Flag Check
If Flg = False Then
　'--- Role Add
　NewRole.AddUser(TargetUser.LoginName, TargetUser.Email, TargetUser.Name, TargetUser.Notes)
End If
　

For Each TargetGroup In TargetRole.Groups
　'--- Flag Initialed
　Flg = False
　'--- New Role Groups
　For Each NewGroup In NewRole.Groups
　　'--- Target Role Check
　　If TargetGroup.Name = NewGroup.Name Then
　　　Flg = True
　　Exit For
　End If
Next
'--- Flag Check
If Flg = False Then
　'--- Role Add
　NewRole.AddGroup(TargetGroup)
End If
　

うーん、美しくないですねぇ。誰かもっと美しい方法があれば教えてください。

とりあえずはこれでユーザーとクロスサイトグループをコピーすることができました。

次回はやっかいなリストに入ります

コメント 1

5本指 旅行者にとって、もしかするとひとペアの適当な靴を探し当てるのが別にそんなに簡単でなくて、少し軽便な様子はまた美しくありませんて、スタイルは美しくて、着てまた気分が悪いです。今もう悩み煩っていません。だんだん多くなる人が 5本指 シューズ を発見したためです。5本靴は非常に不思議な靴です。一般のものとは異なる特質、みんなをだんだんに好きにならせます。今もしあなたはまだ5本指靴を着るならば、そんなに惜しすぎて、すぐに Fivefingersの非常に不思議さを体験しにくるようにしましょう。http://www.vibramtrek.com
by 五本指 シューズ (2011-01-20 13:52)