sub get_corp_accts{
	
	# get ADO object, set the provider, open the connection
	my $ADO = Win32::OLE->new("ADODB.Connection");
	$ADO->{Provider} = "ADsDSOObject";
	$ADO->Open("ADSI Provider");
	
	# Create the ADO Command
	my $ADSPath = "LDAP://OU=group,DC=subdomain,DC=domain,DC=com";
	my $ADOCmd=Win32::OLE->new("ADODB.Command");
	$ADOCmd->{ActiveConnection}=$ADO;
	$ADOCmd->{CommandText}="<$ADSPath>;(objectClass=User);samAccountName,HomeDirectory;SubTree";#new
	$ADOCmd->Properties->{"Page Size"}=10000;
	
	#Execute the Command
	my $users=$ADOCmd->Execute;
	
	#Extract the Info (AccountName, HomeDirectory) from the returned object
	until ($users->EOF){
		my $homeDir=lc($users->Fields(1)->{Value});
    	my $account=lc($users->Fields(0)->{Value});
		print OUT "$account\t$homeDir\n";
		$users->MoveNext;
	}
	$users->Close;
	$ADO->Close;
	print "Wrote Accounts\n";
}