my $path = "LDAP://OU=Public Workstations,DC=domain1,DC=domain2,DC=domain3";
my $ADS  = Win32::OLE->GetObject($path)