$user = ReadValue ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultUserName")

If InStr ($user,"@@")
   $user = Split ($user, "@@")[0]
Endif

$usergroups = UserGroups(@LDomain, $user)


If AScan ($usergroups,"Domain Admins") >= 0
   ; Do Whatever You Would Do If They Were A Member Of The Above Group
Endif

If AScan ($usergroups,"Domain Users") >= 0
   ; Do Whatever You Would Do If They Were A Member Of The Above Group
Endif


Function UserGroups($target,$user,OPTIONAL $datatype)
    DIM $group, $temp[2], $i
    $user = getobject("WinNT://$target/$user,user")
    if @error <> 0 and vartype($user) <> 9 exit(@error) endif
    for each $group in $user.groups
        select
            case $datatype = 0 ;return the group.name
                $temp[$i] = $group.name
            case $datatype = 1 ;return the groupobject
                $temp[$i] = $group
            case $datatype = 2 ;return the group.adspath
                $temp[$i] = $group.adspath
            case 1
                exit(1)
        endselect
        if $i = ubound($temp)
            redim preserve $temp[$i+2]
        endif
        $i = $i+1
    next
    if $i <> 0 
        redim preserve $temp[$i-1]
        $UserGroups = $temp
    else
        redim preserve $temp[$i]
        $usergroups = ""
    endif
    exit(0)
endfunction