« Windows 管理ソフト | Main | Windows ドメインのアカウントのロック解除 (2) »

Aug 07, 2006

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

Windows2000にて、ドメインのアカウントのロックを解除するスクリプトです。

Unlock_ADUser.vbs
----
Dim UserName, DomainName, Title

Title = "Unlock_ADUser"
UserName = InputBox("Enter the user's login name that you want to unlock:", Title, "")
DomainName = InputBox("Enter the domain name in which the user account exists:", Title, "")

Set UserObj = GetObject("WinNT://"& DomainName &"/"& UserName &"")
If UserObj.IsAccountLocked = -1 then UserObj.IsAccountLocked = 0
UserObj.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
----


--参考図書
WINDOWSサーバー HACKS


←クリック一票

|

« Windows 管理ソフト | Main | Windows ドメインのアカウントのロック解除 (2) »

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/11326602

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

« Windows 管理ソフト | Main | Windows ドメインのアカウントのロック解除 (2) »