Here are some modules that should give you a push in the right direction. I'm not sure from your email whether your clients are all Windows 2000, or if you are running Active Directory. AD gives you some new challenges as well as more granular control of objects.
I'm going to assume you're still using an NT4 domain (most of these modules will still work, but may not be the best way for 2k domains). 1. AdminMisc from Dave roth http://www.roth.net/perl/adminmisc is a great tool for getting and setting user information, and has a very low learning curve. To install it you should add the repository http://www.roth.net/perl/packages to your PPM.(check the PPM documentation for how to add a repository) 2. NetAdmin is a module that comes standard with ActivePerl. It has functions that correspond to some of the basic administration APIs, but is a little out-of-date IMO. 3. I would heartily recommend using Win32::Lanman. It has the most complete list of functions, but has the highest learning curve. The documentation is humongous, but if you want, I have pulled it apart into a series of Word documents by category. It makes it a lot easier to find what you need. Just send me an email if you want the word docs. Once you have the information you need, you will need a module for sending out the emails: 1. Net::SMTP is the most basic module for sending text messages. I usually go this route, unless I need to send an attachment, then I usually use either 2. MIME::Lite or 3. Mail::Sender Try some of these out. If you get stumped, feel free to ask for help. -----Original Message----- From: Ronen Kfir [mailto:[EMAIL PROTECTED] Sent: Sunday, June 06, 2004 6:05 AM To: [EMAIL PROTECTED] Subject: log in to domain with script Hi, I work in a windows 2000 environment. Need to check & find out the users who haven't changed their password from the default password given to them when the user was opened. I want to the script will make a log in to the domain with each user, & try to do it with the default password. For the users successfully logged in with default password I want to do 2 actions: 1. Send e-mail states that if password will not be changed, it will be expired in a week from now. 2. Resets the "password expires" date attribute to one week from now. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
