ActiveDirectory のユーザロックアウト解除スクリプト（VBS）

ActiveDirectory のユーザロックアウト解除スクリプト（VBS）

ActiveDirectoryでアカウントロックがかかったユーザのロック解除をするスクリプトです。 ドメインの管...概要を表示 ActiveDirectoryでアカウントロックがかかったユーザのロック解除をするスクリプトです。 ドメインの管理者権限がないと動かないかもしれません。 ' ActiveDirectoryドメイン名 Const DOMAIN_NAME = "ADのドメイン名" ' ロックアウト解除メイン Function unlock_account(strAccount) Dim tmpRet Dim objUser Dim strDomain On Error Resume Next Set objUser = GetObject("WinNT://" & DOMAIN_NAME & "/" & strAccount & ",user") If Len(Err.Description) > 0 Then tmpRet = "Error:1:" & Err.Description Else If obj