AD Account Lockout

[BMW]

All,

I am managing several w2k servers. I have changed my AD account password yesterday. Now I am getting account lockout all the time. I have checked all the servers and services I can think which could related to my account. I also checked the security logs on two DCs in my domain. Could you give me some suggestions which can help me figure out where I am getting the lockout from?

Thanks in advance!

BMW

 

[aznluvsmc]

You changed the password for you network account and now you get an account lockout on the first try to login?

Have you verified that the PDC emulator is working fine? Did all the DCs replicate properly?

Steven S.
MCSA
A+, Network+, Server+, i-Net+

 

[dek123]

maybe someone was using your user , and he is trying to login with the old password ...
if it not a big problem , just rename your user. .. .

 

[markdmac]

Most likely the problem is that you are still logged in somewhere under the old credentials.

You can try using this script to determine where you are getting locked out from.

You will need to provifde the script with a list of workstation names. Call the file WSLIST.TXT.

'==========================================================================
'
' NAME: getLockoutLocation.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL:

http://www.thespidersparlor.com

' DATE : 1/4/2004
'
' COMMENT: <comment>
'
'==========================================================================

On Error Resume Next

'open the file system object
Set oFSO = CreateObject("Scripting.FileSystemObject")

'open the data file
Set oTextStream = oFSO.OpenTextFile("wslist.txt")
'make an array from the data file
RemotePC = Split(oTextStream.ReadAll, vbNewLine)
'close the data file
oTextStream.Close
report = ""

For Each strComputer In RemotePC
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount",,48)
For Each objItem in colItems
If objItem.Lockout = "False" Then
report = report & "User: " & objItem.FullName & " is locked out on " & strComputer & vbCrLf
End If
Next
Next


Set ts = oFSO.CreateTextFile ("lockoutreport.txt", ForWriting)
ts.write report
Set oTextStream = nothing
set ts = nothing
set oFSO = nothing



I hope you find this post helpful. Please let me know if it was.

Regards,

Mark