my $adstring = join('', $user, ',user",',$user, '"');

##</code><code>##

my $acdiruser=Win32::AD::User->new('WinNT://dnsdomain.com/',$user);

##</code><code>##

my $acdiruser=Win32::AD::User->new('WinNT://NTDOMAIN/',$user);