Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Reset user passwords in Domino

Posted on 2014-01-30
10
Medium Priority
?
374 Views
Last Modified: 2014-02-10
Hello,

I have a domino server 8.5.3 and I need to reset everyone's password. Is there a way to do this in bulk so that I don't have to log into each account, such as with a batch file or something? I would like to be able to reset a group of accounts and assign them the password.

Just in case this matters, everyone accesses their mail through the browser or through the IMAP protocol.

If this this can be done in a batch file or some type of command line then I would appreciate an example on how to do this.

Thank you.
0
Comment
Question by:jhieb
  • 6
  • 4
10 Comments
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 39822542
There are (at least) two passwords in Domino: the password required to open a Notes client and the Internet password. The first cannot be changed programmatically (AFAIK), the 2nd one is fairly easy to change: it is just a field in a document. Do you want to give everyone the same password?  Seems like a bad idea, so let's assume you want to generate a random password for every user, all different. Such an agent can be developed. How's your LotusScript these days?
0
 
LVL 1

Author Comment

by:jhieb
ID: 39822783
Oh my. I haven't run lotus script in years, and back then someone helped me. Shall I say, lousy?

It sounds like what I need is to be able to reset the Internet password for each user since I would just be focusing on the IMAP protocol. Is this correct?

I would prefer to give each person the same password because it is easier, but you are probably right. A random password probably better as long as I had the user name and password for each user. I would have to be able to keep track of it somehow, and I suppose by display name,email address and password would be easiest.
0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 39822825
Hope you read French, because this page gives you almost exactly what you need:
http://www.blogotec.fr/lotus/modification-mot-de-passe-internet/
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 1

Author Comment

by:jhieb
ID: 39822835
No, unfortunately I can't read French and it seems that the code is also non-English. I tried translate.google.com to see if it would help but it does not. Thanks anyway.
0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 39822854
I'll try to translate it for you, tomorrow, if you don't mind... Sorry for now.
0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 39823489
Well, at a second glance, the agent doesn't exactly do what I hoped it would. Parts of it are useful, but it sets the passwords of all selected users to the same identical string. It's a good starting point, which is nice.

I'd suggest you prepare a file in Excel, to be saved as CSV, that contains lines with username,generatedpassword, one line for each user. Or do you want to do it the other way round: the agent visits all User documents, generates a password, changes it in the User document and prints a list of all users+passwords modified (e.g. in a file)?

Will you do the coding yourself?
0
 
LVL 1

Author Comment

by:jhieb
ID: 39825236
Thanks. No, I wasn't planning on doing the coding. I was hoping to find an example how to do this.
0
 
LVL 46

Accepted Solution

by:
Sjef Bosman earned 2000 total points
ID: 39826187
The example I gave (the link) isn't that bad. It takes some tinkering to make it fit your needs. Oh well, for this once... Put the code in an agent in the N&A book, and test in a copy of your names.nsf database.
Sub Initialize
	Dim ws As New NotesUIWorkspace
	Dim vw As NotesUIView
	Dim filename As String
	Dim id As Integer
	Set vw = ws.CurrentView
	Dim dc As NotesDocumentCollection
	Set dc= ws.CurrentDatabase.Database.UnprocessedDocuments
	Dim v As Variant
	v= Evaluate("@Unique")
	filename = "c:\temp" + v(0) + ".txt"
	id = Freefile
	Open filename For Output As idDo Until Eof( v_idFile)

	If dc.Count = 0 Then Exit Sub

	Dim doc As NotesDocument
	Set doc = dc.GetFirstDocument
	Do While Not ( doc Is Nothing )
		v= Evaluate("@Unique")
		Call doc.ReplaceItemValue("HTTPPassword", v(0))
		Print #id, doc.FullName(0) + "," + v(0)
		Call doc.ComputeWithForm( True, False )
		Call doc.Save( True, False)
		Set doc = dc.GetNextDocument( doc )
	Loop
	Close #id
End Sub

Open in new window


Code isn't tested!!
0
 
LVL 1

Author Comment

by:jhieb
ID: 39847952
I got called out of town and am now back in the office. I haven't a chance to look at this, but I will accept the code and test it out. Thank you very much for this help. I appreciate it.
0
 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 39848904
Thanks. Don't hesitate to post here if it doesn't work!
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Are you an Exchange administrator employed with an organization? And, have you encountered a corrupt Exchange database due to which you are not able to open its EDB file. This article will explain all the steps to repair corrupt Exchange database.
Take a look at these 6 Outlook Email management tools which can augment the working and performance of Microsoft Outlook to give you a more rewarding emailing experience.
This Micro Tutorial demonstrates  how Internet marketers work with competitive analysis data, and a common task in data preparation is creating separate column for domains. You will then extract from a list of URLs.
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

886 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question