Solved

Reset user passwords in Domino

Posted on 2014-01-30
10
363 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
 
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
Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

 
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

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Join & Write a Comment

Email signatures have numerous marketing benefits. Here are 8 top reasons to turn your email signature into a marketing channel.
It’s a strangely common occurrence that when you send someone their login details for a system, they can’t get in. This article will help you understand why it happens, and what you can do about it.
In this video we show how to create an Accepted Domain in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.: First we need to log into the Exchange Admin Center. Navigate to the Mail Flow >> Ac…
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.

743 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now