RE: [ActiveDir] Modifying Multiple Active Directory User Accountsat Once

[Keith Williams]

Title: Message

Thanks for this guys! I also found a couple of very useful applications which aid with AD maintenance, one aimed specifically at user, share and acl maintenance and the other at entire AD maintenance. Not sure I should be advertising these products on this list, so if you want to know what they are drop me an email.

 

Thanks for your help,

Keith

-----Original Message-----
From: De Schepper Marc [mailto:[EMAIL PROTECTED]]
Sent: 16 October 2002 12:25
To: '[EMAIL PROTECTED]'
Subject: RE: [ActiveDir] Modifying Multiple Active Directory User Accounts at Once

These I found at the MS Site

 

Set objUser = GetObject("LDAP://cn=youngrob,ou=r&d,dc=fabrikam,dc=com")

'**********************************************************************
'* Terminal Services Profile tab


'**********************************************************************
objUser.AllowLogon                    = 1   ' Disabled = 0, Enabled = 1
objUser.TerminalServicesHomeDirectory = "\\Server\Share\User"
objUser.TerminalServicesHomeDrive     = "t:"
objUser.TerminalServicesProfilePath   = "\\Server\Profiles\User"

'**********************************************************************
'* Remote control tab
'**********************************************************************
objUser.EnableRemoteControl = 3       ' EnableRemoteControl Values:
                                      ' Disable               = 0
                                      ' EnableInputNotify     = 1
                                      ' EnableInputNoNotify   = 2
                                      ' EnableNoInputNotify   = 3
                                      ' EnableNoInputNoNotify = 4



'**********************************************************************
'* Sessions tab
'**********************************************************************
objUser.BrokenConnectionAction = 1    ' Disconnect = 0, End Session = 1
objUser.MaxConnectionTime      = 60   ' Time in minutes
objUser.MaxDisconnectionTime   = 1    ' Time in minutes
objUser.MaxIdleTime            = 10   ' Time in minutes
objUser.ReconnectionAction     = 1    ' Any Client = 0, Originating client = 1

'**********************************************************************
'* Environment tab
'**********************************************************************
objUser.ConnectClientDrivesAtLogon     = 1   ' Disabled = 0, Enabled = 1
objUser.ConnectClientPrintersAtLogon   = 1   ' Disabled = 0, Enabled = 1
objUser.DefaultToMainPrinter           = 1   ' Disabled = 0, Enabled = 1
objUser.TerminalServicesInitialProgram = "notepad.exe"
objUser.TerminalServicesWorkDirectory  = "tmp"

objUser.SetInfo

Marc De Schepper

******************************
Marc De Schepper
IT System Engineer
Telenet - Liersestwg. 4 - 2800 Mechelen
Tel: 015/33.54.49 - Fax: 015/33.36.21

      ******************************

-----Original Message-----
From: Keith Williams [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 16, 2002 10:31
To: '[EMAIL PROTECTED]'
Subject: [ActiveDir] Modifying Multiple Active Directory User Accounts at Once

Having just installed Citrix I need to change the Terminal Services Profile, User Profile attribute of all the terminal services user accounts. Having over 1000 users makes this a time consuming job to do manually, and having hunted about for a tool to do it automatically and not found one I wondered if any one had written a script, or found/used a tool which would enable me to do this?

Keith
~~~~~~~~~~~~~~~~~~~~~~~~
Keith Williams
The National Trust for Scotland
Wemyss House
28 Charlotte Square
Edinburgh EH2 4ET

Tel:  0131 243 9549
Fax: 0131 243 9444

*************************************************************

Dit e-mail bericht inclusief eventuele ingesloten bestanden kan informatie bevatten die vertrouwelijk is en/of beschermd door intellectuele eigendomsrechten. Dit bericht is uitsluitend bestemd voor de geadresseerde(n). Elk gebruik van de informatie vervat in dit bericht (waaronder de volledige of gedeeltelijke reproductie of verspreiding onder elke vorm) door andere personen dan de geadresseerde(n) is verboden. Indien u dit bericht per vergissing heeft ontvangen, gelieve de afzender hiervan te verwittigen en dit bericht te verwijderen.

This e-mail and any attachment thereto may contain information which is confidential and/or protected by intellectual property rights and are intended for the sole use of the addressees. Any use of the information contained herein (including but not limited to total or partial reproduction or distribution in any form) by other persons than the addressees is prohibited. If you have received this e-mail in error, please notify the sender and delete its contents.

*************************************************************