Mike, this is a little cleaner.


$IsMember = IsGroupMember(@wksta, sidtoname('S-1-5-32-544'), "domainName", "AcctOrGrp")
select
    case @error <> 0 ? "IsGroupMember Error: @Error @Serror"
    case $IsMember   ? "YES, a member is found"
    case 1           ? "Yikes, not a member"
endselect

function IsGroupMember($GroupContainer, $GroupName, $TestContainer, $TestObject)
    Dim $grp
    $grp = getObject("WinNT://" + $GroupContainer +"/" +  $GroupName + ",group")
    if @error <> 0
      exit @error
    endif

    $IsGroupMember = $grp.IsMember("WinNT://"+ $TestContainer + "/" + $TestObject)
    exit @error
endfunction


[ 24. July 2003, 20:05: Message edited by: Howard Bullock ]
_________________________
Home page: http://www.kixhelp.com/hb/