« Windows ドメインのアカウントのロック解除 | Main | システム構成ユーティリティ »

Aug 08, 2006

Windows ドメインのアカウントのロック解除 (2)

Windows2003 Activedirectory 環境において、ドメインユーザーのアカウントロックを
解除するスクリプトです。
しかし、勉強中のためou及びdcの指定の仕方がいまいち分かりません、、、

Unlock_ADUser2003.vbs
----
Dim UserName, Title

Title = "Unlock_ADUser2003"
UserName = InputBox("Enter the user's login name that you want to unlock:", Title, "")


Set objUser = GetObject _
("LDAP://cn="& UserName &",ou=manager,dc=hogehoge,dc=com")
objUser.IsAccountLocked = False
objUser.SetInfo


If err.number = 0 Then
Wscript.Echo "The Account Unlock Failed. Check that the account is, in fact, locked-out."
Else
Wscript.Echo "The Account Unlock was Successful"
End if
----


--参考ページ
http://www.microsoft.com/japan/technet/scriptcenter/scripts/ad/users/status/usstvb07.mspx


←クリック一票

|

« Windows ドメインのアカウントのロック解除 | Main | システム構成ユーティリティ »

Script」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack


Listed below are links to weblogs that reference Windows ドメインのアカウントのロック解除 (2):

« Windows ドメインのアカウントのロック解除 | Main | システム構成ユーティリティ »