作成 2010.01.08
更新 2010.01.08
更新 2010.01.08
VBScript で Active Directory ユーザーアカウントの有効期限の操作
このサンプルでは ADSI を使用してユーザーの有効期限を操作します。
Option Explicit
Dim adsUser, exDate
Set adsUser = GetObject("LDAP://CN=user1,OU=People,DC=example,DC=lan")
' アカウントの有効期限を取得する
exDate = adsUser.AccountExpirationDate
WScript.Echo exDate
' アカウントを無期限にする
adsUser.AccountExpirationDate = #01/01/1970#
adsUser.SetInfo
' アカウントの有効期限を 2010年5月15日に設定する（GMTなので1日多くする）
' Windows Server 2003 R2 SP2 の Active Directory ユーザーとコンピュータと1日表示がずれる (確認日:2009-03-27)
adsUser.AccountExpirationDate = #05/16/2010#
adsUser.AccountExpirationDate = "2010/05/16"
adsUser.SetInfo
参考