Thanks,

I got riddled the deny right part in the mean time ( ŽUserFlags | 64' )
^ was the operator that I failed to remember( It's simply to new for me )

here is the result :

Code:

function ADS_PWChangeRight($usr, $domain, $Right)
    dim $objUsr, $_, $UserFlags, $NewUserFlags
    $objUsr = getobject("WinNT://" + $domain + "/" + $usr + ",user")
    if not @error
        $UserFlags = $objUsr.Get("UserFlags")
        if not $Right
            $NewUserFlags = $UserFlags | 64
        else
            $NewUserFlags = $UserFlags ^ 64
        endif
        $objUsr.Put("UserFlags", $NewUserFlags)
        $objUsr.SetInfo
        $ADS_PWChangeRight = @error
    else
        $ADS_PWChangeRight = @error
    endif
endfunction


Thanks again Richard
_________________________