Solved

Reset user passwords in Domino

Posted on 2014-01-30
10
368 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

 
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 500 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

MS Dynamics Made Instantly Simpler

Make Your Microsoft Dynamics Investment Count  & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.

Question has a verified solution.

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

Local Continuous Replication is a cost effective and quick way of backing up Exchange server data. The following article describes the steps required to configure Local Continuous Replication. Also, the article tells you how to restore from a backup…
Marketers need statistics and metrics like everybody else needs oxygen. In this article we explain how to enable marketing campaign statistics for Microsoft Exchange mail.
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

734 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