« 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


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

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