Kesha Williams, certified professional and software developer, explores the imbalance of diversity in the world of technology -- especially when it comes to hiring women. She showcases ways she's making a difference through the Colors of STEM program.
Check login credentials for a computer user
I would like to check the login credentials for any user, to see if it's still the same password or if it has changed,.
A script would be beneficial or a program.
A script would be beneficial or a program.
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
This tells you when a password was last set for a given user:
$date = [DateTime]( get-aduser michael.smith -prop pwdLastSet ).pwdLastSet
$date = $date.AddYears( 1600 ).ToLocalTime()
$date
Use DSInternals to pull the user hash and compare it against the previously found hash. pwdLastSet will not be accurate if someone bypasses security and use the same password
https://www.experts-exchange.com/articles/32998/Two-way-Password-Synchronization-from-one-Active-Directory-Domain-to-another-using-DSInternals.html
https://www.experts-exchange.com/articles/32998/Two-way-Password-Synchronization-from-one-Active-Directory-Domain-to-another-using-DSInternals.html
@Echo Off
set INPUT1=
set INPUT2=
set INPUT3=
set /P INPUT1=Domain: %=%
set /P INPUT2=Username: %=%
C:\Windows\System32\runas.
The above script works and if successful will open notepad
set INPUT1=
set INPUT2=
set INPUT3=
set /P INPUT1=Domain: %=%
set /P INPUT2=Username: %=%
C:\Windows\System32\runas.
The above script works and if successful will open notepad
Ah, now I get what you want. Save this as CheckCredentials.vbs
The run this
You can build a list in Excel where usernames are in A1 and then this in B1
Then copy all B column values and run
Option Explicit
Const ADS_SECURE_AUTHENTICATION = 1
On Error Resume Next
Dim strDomain
Dim strUserName
Dim strPassword
Dim objIADS
strDomain = Wscript.Arguments.Named("Domain")
strUserName = Wscript.Arguments.Named("UserName")
strPassword = Wscript.Arguments.Named("Password")
Set objIADS = GetObject("WinNT:").OpenDSObject("WinNT://" & strDomain, strUsername, strPassword, ADS_SECURE_AUTHENTICATION)
If Err.Number = 0 Then
WScript.Echo strUserName & vbTab & "Good password"
Else
'Bad password
End If
The run this
CheckCredentials.vbs /Domain:YourDomain /UserName:JSmith /Password:Password1
You can build a list in Excel where usernames are in A1 and then this in B1
="CheckCredentials.vbs /Domain:YourDomain /UserName:" & A1 & " /Password:Password1"
Then copy all B column values and run
Premium Content
You need an Expert Office subscription to comment.Start Free Trial