[Iska]

How To Find Password Last Changed Date Using ADSI:

The Active Directory Service Interfaces (ADSI) Windows NT provider does not support the PasswordLastChanged Property of an IADsUser object. You can computer this date by subtracting the password expiration period from the password expiration date to get the last change date. Note that for users whose passwords never expire, the PasswordExpirationDate will be in the past and the computation still works correctly.

Скрытый текст

Код:

Option Explicit

Dim strUser


strUser = "UserName"

With GetObject("WinNT://./" & strUser & ",user")
	WScript.Echo "Password Last Changed on : " & FormatDateTime(DateAdd("s", -.Get("MaxPasswordAge"), .PasswordExpirationDate))
End With

WScript.Quit 0

[dahiko]

Скрипт работает. Добавил еще ИМЯ пользователя в сообщение.

WScript.Echo "Password Last Changed on user "& strUser &": " & FormatDateTime(DateAdd("s", -.Get("MaxPasswordAge"), .PasswordExpirationDate))

Спасибо! Вопрос решен.