ActiveDirectoryアカウントロック解除スクリプト。

' ActiveDirectoryドメイン名
Const DOMAIN_NAME = "example.com"


' ロックアウト解除メイン
Function unlock_account(strAccount)
	Dim tmpRet
	
	Dim objUser
	Dim strDomain
	
	On Error Resume Next
		Set objUser = GetObject("WinNT://" & DOMAIN_NAME & "/" & strAccount & ",user")
		objUser.IsAccountLocked = False
		objUser.SetInfo 
		
		If Len(Err.Description) > 0 Then
			tmpRet = "Error:" & Err.Description
		Else
			tmpRet = "完了"
		End If
		Set objUser = Nothing
	On Error Goto 0

	unlock_account = tmpRet
End Function


' ユーザ入力画面表示
Sub Main()
	Dim strUser
	strUser = inputbox("ロック解除するユーザ名（例：sampleuser）")
	
	If strUser = "" Then
		msgbox "処理を中止しました。"
	Else
		msgbox unlock_account(strUser)
	End If
End Sub


Main