Set objDict=CreateObject("Scripting.Dictionary")
Set objDomain=GetObject("WinNT://MyDomain")
objDomain.Filter=Array("user")

For Each user In obDomain
   objDict.Add user.name,Int(user.PasswordAge/86400)
Next

Call GetAge()
WScript.quit


Function GetAge()
strUser=InputBox("Enter a user name:","Check Password Age","jhicks")
If strUser="" Then WScript.quit

If objDict.Exists(strUser) Then
  rc=MsgBox("Password last changed " & objDict.Item(strUser) &_
  " days ago." & VbCrLf & "Do you want to check another user?", _
  vbYesNo+vbInformation,UCase(strUser) & " - PWD Age")
  If rc=vbYes Then GetAge()
Else
  rc=MsgBox("Failed to find " & strUser & ". Do you want to check " &_
  "another user?",vbYesNo+vbExclamation,"PWD Age")
  If rc=vbYes Then GetAge()
End If

End Function