« 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

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/11342670

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

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