Help for this page

Select Code to Download


  1. or download this
    use Win32::AD::User;
$connect = Win32::AD::User->new("WinNT://ad.domain/admin-user,user","u
+ser-name");
$connect->get_info();
$property = $connect->get_property('middleName');
  2. or download this
    use Win32::AD::User;
$connect = Win32::AD::User->new("WinNT://ad.domain/admin-user,user","u
+ser-name");
$connect->get_info();
@groups = $connect->get_groups();
print join("\n\t", @groups);