• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 376
  • Last Modified:

Reset user passwords in Domino

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
jhieb
Asked:
jhieb
  • 6
  • 4
1 Solution
 
Sjef BosmanGroupware ConsultantCommented:
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
 
jhiebAuthor Commented:
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
 
Sjef BosmanGroupware ConsultantCommented:
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
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
jhiebAuthor Commented:
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
 
Sjef BosmanGroupware ConsultantCommented:
I'll try to translate it for you, tomorrow, if you don't mind... Sorry for now.
0
 
Sjef BosmanGroupware ConsultantCommented:
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
 
jhiebAuthor Commented:
Thanks. No, I wasn't planning on doing the coding. I was hoping to find an example how to do this.
0
 
Sjef BosmanGroupware ConsultantCommented:
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
 
jhiebAuthor Commented:
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
 
Sjef BosmanGroupware ConsultantCommented:
Thanks. Don't hesitate to post here if it doesn't work!
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 6
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now