グローバル スクリプト例

次のグローバル スクリプトは、現在のユーザーが指定されたグループのメンバであることを確認します。ユーザーがグループに属している場合、フックは True を戻します。

この例では、グローバル スクリプトの作成についての一般的な方法を示します。読みやすくするために、この例にはエラー チェックを組み込んでいません。検証 API の戻り値を調べて、エラーが含まれていないことを確認してから、レコードをデータベースにコミットしてください。

VBScript

Function IsInGroup(groupname)

    ' groupName As String

    ' IsInGroup As Bool

    Set curSession = GetSession

    groupList = curSession.GetUserGroups

    IsInGroup = False

    For Each group in groupList

      If group = groupname Then

        IsInGroup = True

        Exit For 

      End If 

    Next

End Function 

Perl

sub IsInGroup { 

    my ($groupName) = @_;

    my ($curSession,

    $groupList,

    $isInGroup,

    $group,

    );


    $curSession = $entity->GetSession();

    $groupList = $curSession->GetUserGroups();

    $isInGroup = 0;



    foreach $group (@$groupList) {

      if ($group eq $groupName) {

         $isInGroup = 1;

         last;

      } 

    } 

    return $isInGroup;

} 

フィードバック