Lock an account with VB6: Authentication and security

[ramass]

I like to lock an account in a VB Script.
I use the

getObject

functions of VB6 to obtain the account object from a ADSI directory and then, I use the

IsAccountLocked

property.

Here is my code:

Set usr = GetObject(&quot;LDAP://<URL>&quot;)
usr.IsAccountLocked = TRUE
usr.SetInfo
Set usr = Nothing

But there can be a problem if the PDC require an authentication. How can I specify the credentials ?

And is it possible to use an algorithm for encryption (SSL...) ?

Thanks in advance

 

[Aslamvs]

HI,

I m using this code for unlocking my user accounts in my doamin.In this program it will ask you username whose account is locked out. just enter the usernmae and release the account.that's it.
This is vb code.Just copy this code in notepad and save it ab *.vbs and try to execute.



UserName = InputBox("Enter the user's login name that you want to unlock:&quot

DomainName = InputBox("Enter the domain name in which the user account exists:&quot


Set UserObj = GetObject("WinNT://"& DomainName &"/"& UserName &"&quot
If UserObj.IsAccountLocked = -1 then UserObj.IsAccountLocked = 0
UserObj.SetInfo

If err.number = 0 Then
Wscript.Echo "The Account Unlock Failed. Check that the account is, in fact, locked-out."
Else
Wscript.Echo "The Account Unlock was Successful"
End if



This is easier way to administer.

Aslam

 

[ramass]

OK, it works if no authentication is needed.

But my problem is to authenticate against the PDC. If I try your code, I have an

automation error

when the

getObject

function is executed.

Matthieu

 

[Aslamvs]

Hi,

If you want to authenticate with another user Then u can use "Su.exe" which comes with resource kit.

Try this out. Aslam