sub ad_get_attrib { # For returning Attribute Values....
	my $dn = $_[0]; # The object DN
	my $attrib = $_[1]; # The attribute in question
	
	my ($object,$result);
	
	$object = Win32::OLE->GetObject("$dn");
	
	if ($object->{$attrib}) { # If this Attribute actually exists....
		$result = $object->Get("$attrib");
	}
	
	return $result;
}