sub ad_modify { # To change a single value in AD

	my $dn = $_[0]; # The object DN
	my $attrib = $_[1]; # The attribute to change
	my $value = $_[2]; # The attributes new value
	
	my ($object);
	
	$object = Win32::OLE->GetObject("$dn");

	$object->{$attrib} = "$value";

	$object->SetInfo; # Don't forget to set the values
}