ADSI GetObjectでHRESULT 80072030を解決するには？ (ID:70277)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

一部転記ミスがありましたので再度アップ。

Option Explicit
Const CstrDomain = "test.com"
Const CstrOUDN = "DC=test,DC=com"
Const CstrUserName = "testuser22"
Const CstrPassword = "P@ssw0rd"

Const UF_SCRIPT = &H1
Const UF_ACCOUNT_DISABLE = &H2
Const UF_HOMEDIR_REQUIRED = &H8
Const UF_ACCOUNT_LOCKOUT = &H10
Const UF_PASSWORD_NOT_REQD = &H20
Const UF_PASSWORD_CANT_CHANGE = &H40
Const UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = &H80
Const UF_DONT_EXPIRE_PASSWORD = &H10000

fUserAdd CstrDomain, CstrOUDN, CstrUserName, CstrPassword
WScript.Echo "end"

Function fUserAdd( strDomain, strOUDN, strUserName, strPassword )
  Dim adsOU
  Dim adsUser
  Dim userFrags
  Set adsOU = GetObject( "LDAP://" & strOUDN )
  Set adsUser = adsOU.Create( "user", "cn=" & strUserName )
  adsUser.Put "sAMAccountName", strUserName
  adsUser.Put "userPrincipalName", strUserName & "@" & strDomain
  adsUser.SetInfo
  adsUser.GetInfo
  adsUser.SetPassword strPassword
  adsUser.IsAccountLocked = False
  adsUser.AccountDisabled = False
  adsUser.SetInfo
  ' パスワードを無期限、パスワード変更不可
  userFrags = adsUser.Get("userAccountControl")
  userFrags = userFrags Or UF_DONT_EXPIRE_PASSWORD
  userFrags = userFrags Or UF_PASSWORD_CANT_CHANGE
  adsUser.Put "userAccountControl", userFrags
  adsUser.SetInfo
  fUserAdd = True
End Function

←解決時は質問者本人がここをチェックしてください。

戻る