Help for this page
my $adstring = join('', $user, ',user",',$user, '"');
my $acdiruser=Win32::AD::User->new('WinNT://dnsdomain.com/',$user);
my $acdiruser=Win32::AD::User->new('WinNT://NTDOMAIN/',$user);