See which users have blank password

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi.

I have a Windows 2000 Active Directory with more than 100 users. I would
like to know which users have blank password.

Is there a way where I can see which users have a blank password.?

Any ideas?
 
There is no tool available to see which users have passwords unless you have
a crack tool. Some companies will terminate you if you even load them on
your machine.

You may have to expire all passwords if you haven't required a password.
ADModify might allow this to, I haven't tried it on that attribute
(Explanation with link):
http://ambition.cz/blogs/shaitan/archive/2004/12/13/373.aspx

I have a script at http://pbbergs.dynu.com/windows/windows.htm that will
list all users that don't have a password required.

Set the domain ou to password parameters, I did a quick google and the link
details said policy:
http://searchwindowssecurity.techtarget.com/generic/0,295582,sid45_gci1050083,00.html?bucket=REF



--


Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA

This posting is provided "AS IS" with no warranties, and confers no rights.
 
What about something along these lines....

Sub ListUsers( strDomain )
Set objComputer = GetObject("WinNT://" & strDomain )
objComputer.Filter = Array( "User" )
For Each objUser In objComputer
WScript.Echo "Name: " & objUser.Name
WScript.Echo "Fullname: " & objUser.Fullname
WScript.Echo "Description: " & objUser.Description
WScript.Echo "AccountDisabled: " & objUser.AccountDisabled
WScript.Echo "IsAccountLocked: " & objUser.IsAccountLocked
WScript.Echo "Profile: " & objUser.Profile
WScript.Echo "LoginScript: " & objUser.LoginScript
WScript.Echo "HomeDirectory: " & objUser.HomeDirectory
objUser.ChangePassword "", "" 'If Password is Blank, set it to blank
objUser.SetInfo
If err.number = 0 Then
WScript.Echo "Password is Blank"
End if
WScript.Echo ""
Next
End Sub

On Error Resume Next
Dim strDomain

ListUsers( strDomain )


Code adapted from a MS sample Script....

Ryan Hanisco
 
Back
Top