Listing 3: PwdLastSet.vbs

Dim UserDN, ADsUser, LastSet
UserDN = "CN=Joseph Bogus,OU=Sales,DC=wascorp,DC=net"
Set ADsUser = GetObject("LDAP://" & UserDN)
On Error Resume Next
LastSet = ADsUser.PasswordLastChanged
If Err.Number = 0 Then
  WScript.Echo "Password was last set on " & CStr(LastSet)
Else
  WScript.Echo "The password has never been set"
End If