PropertyEntry (Perl)

This code can be found in Chapter 21 of Active Directory, 3rd Edition

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# From the book "Active Directory, Third Edition" 
# ISBN: 0-596-10173-2

use Win32::OLE;

use constant ADSTYPE_CASE_IGNORE_STRING => 3;
use constant ADS_PROPERTY_UPDATE => 2;

my $objPropValue;
# An ADSI PropertyValue object
my $objPropEntry;
# An ADSI PropertyEntry object

$objPropValue = Win32::OLE->new('PropertyValue');
$objPropValue->{ADsType} = ADSTYPE_CASE_IGNORE_STRING;
$objPropValue->{CaseIgnoreString} = '0123-456-7890';

$objPropEntry = Win32::OLE->new('PropertyEntry');
$objPropEntry->{Name} = 'pager';
$objPropEntry->{Values} = [$objPropValue];
$objPropEntry->{ADsType} = ADSTYPE_CASE_IGNORE_STRING;
$objPropEntry->{ControlCode} = ADS_PROPERTY_UPDATE;

This code has been viewed 830 times.

New from the creators of TechTasks.com: StatSheet.com