http://www.perlmonks.org?node_id=411291


in reply to AD User Exist?

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();
if $user's undef, there's no account there.