When I had to do this, I did it with Win32::AD::User.

$user=Win32::AD::User->new("WinNT://DOMAIN/username,user","username");
 $user->get_info();
 print join "\n",$user->get_groups();
[download]

if $user's undef, there's no account there.