Picky, picky, picky... *grin*. Here is it in VBS (and a little cleaner Perl
below it).
Richard
--------------------------------------------------------------
' VBS ms-DS-MachineAccountQuota Modifier
Option Explicit
On Error Resume Next
Dim DSO, DSBind, strDS, strDC, strPath, strUsr, strPwd, IntVal
strDC = "domaincontrollername"
strPath = "dc=mycompanyname,dc=com"
strUsr = "DOMAIN\userid"
strPwd = "password"
IntVal = 30
strDS = "LDAP://" & strDC & "/" & strPath
Set DSO = GetObject("LDAP:")
Set DSBind = DSO.OpenDSObject(strDS, strUsr, strPwd, 1)
DSBind.Put "ms-DS-MachineAccountQuota", IntVal
DSBind.SetInfo
If Err.Number = 0 Then
WScript.Echo "Successfully reset the quota value"
Else
WScript.Echo "Doh!: " & Err.Number & ": " & Err.Description
End If
--------------------------------------------------------------
# PERL ms-DS-MachineAccountQuota Modifier
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, $adspath, $admact, $passwd, $newval) = @_;
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 2:54 PM
> To: [EMAIL PROTECTED]
> Subject: RE: [ActiveDir] Joining computers to a domain?
>
>
> That's great Richard. I would still like to see the VBScript
> though. Any for Jscript or Python?
>
> -----Original Message-----
> From: Puckett, Richard [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, October 03, 2002 2:40 PM
> To: '[EMAIL PROTECTED]'
> Subject: RE: [ActiveDir] Joining computers to a domain?
>
>
>
> 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/
>
> 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/