LS to change Internet password in NAB

HCL Domino Domino Forum
1

I have a client who want to set internet password to something unique for each user (which will never change) using LotusScript. Any thoughts on how to do this?

TIA

Brent

2

Subject: LS to change Internet password in NAB

Is the question how to create unique passwords? How will you let the users now what their passwords are? You could create a database of users, use @Unique to generate unique passwords- then write script that would lookup the user and set the value of that password in each person’s person document- A less obtuse password algorithm might be to concatenate initials - dates - in that password database.

The code for setting the passwords- use $People view to loop through the users, setting the httppassword field. You will want to encrypt the password field- below is a snippet of code I use to reset internet password to “password” but forces the user to change it-

new_pword = “password”

	'doc.HTTPPasswordForceChange = "1"

	Call doc.replaceItemValue("HttpPasswordForceChange","1")

	Dim chgdt As NotesItem

	Call Doc.ReplaceItemValue("HTTPPassword", new_pword) ' write the new password into the Address Book

	eval = Evaluate("@Password(HTTPPassword)", Doc)

	Call Doc.ReplaceItemValue("HTTPPassword", eval)

	Call doc.replaceItemValue("HttpPasswordChangeDate",Now())

	'Set chgdt = doc.ReplaceItemValue("HTTPPasswordChangeDate",Now())

	success = doc.ComputeWithForm( False, False )

	If success Then

		Call doc.Save( True, True )

Tom

3

Subject: RE: LS to change Internet password in NAB

Tom,

Thanks for the code.

To answer your question the users do not know and never need to know their internet password. The client has a number of franchise owners who only access mail via a portal which handles the actual authentication to the Domino server. The Domino password is stored in an extended schema component of AD, so all I need to do is write the correct plain text to the AD container as the NAB.

Thanks again