#!/usr/bin/perl

use strict;
use warnings;
use Win32::AD::User;

my $user = Win32::AD::User->new('WinNT://dir','andreas.roth');
$user->print_me();