vbsでアカウントパスワードリセット（変更）

vbsパスワードリセット（変更）

Option Explicit

dim ldap
ldap = "LDAP://CN=aaaa,OU=Users,DC=mydomain,DC=local"

dim objUser
set objUser = GetObject(ldap)

dim last
last = objUser.PasswordLastChanged

objUser.SetPassword "aaaaaaaa"
objUser.SetInfo

set objUser = GetObject(ldap)
Msgbox last & vbcrlf & objUser.PasswordLastChanged

更新したあとユーザーを再び取得しないとパスワード最終更新日は変わらないっぽい。