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 æ´æ°ãããã¨ã¦ã¼ã¶ã¼ãåã³åå¾ããªãã¨ãã¹ã¯ã¼ãæçµæ´æ°æ¥ã¯å¤ãããªãã£ã½ãã
{{#tags}}- {{label}}
{{/tags}}