Dunno if this is useful for anyone, but here it is in Perl...
Regards,
Richard
use strict;
use Win32::OLE 'in';
use Win32::OLE::Const 'Active DS Type Library';
$Win32::OLE::Warn = 3;
# domain, access & quota variables
my $usr = 'DOMAIN\userid';
my $pwd = 'password';
my $dse = 'dc=mycompanyname,dc=com';
my $srv = 'domaincontrollername';
my $val = '30';
&mod_quota($srv, $dse, $usr, $pwd, $val);
exit;
# modify the ms-DS-MachineAccountQuota value
#---------------------------------------------------------
sub mod_quota {
#---------------------------------------------------------
my $adc = shift;
my $adspath = shift;
my $admact = shift;
my $passwd = shift;
my $newval = shift;
my $DSO = Win32::OLE->GetObject("LDAP:");
my $DSBind = $DSO->OpenDSObject("LDAP://".$adc."/".$adspath,
$admact,
$passwd,
ADS_SECURE_AUTHENTICATION);
$DSBind->{'ms-DS-MachineAccountQuota'} = $newval;
$DSBind->SetInfo();
}
> -----Original Message-----
> From: Sullivan, Kevin [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, October 03, 2002 1:48 PM
> To: [EMAIL PROTECTED]
> Subject: RE: [ActiveDir] Joining computers to a domain?
>
>
> I tried to post the swynk script and it didn't send. From
> past experience it will probably show up in a while. Anyway,
> I couldn't get the script that Tony mentioned to run. Can
> someone put their eyes on the script and let me know if you
> see any problems or lines that I may need to edit.
>
> Thanks,
>
> Kevin
>
http://www.swynk.com/friends/policht/103101.asp
List info : http://www.activedir.org/mail_list.htm
List FAQ : http://www.activedir.org/list_faq.htm
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
List info : http://www.activedir.org/mail_list.htm
List FAQ : http://www.activedir.org/list_faq.htm
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
