Option Explicit Const OldName = "usertest1" Const NewName = "usertest001" Dim baseDN, objRootDSE Dim objConnection, objCommand, strCommandText Dim objRecordSet, strUserDN Dim objUser, objPOU, strPOUName baseDN = "" ' ベースDNの取得 On Error Resume Next Set objRootDSE = GetObject("LDAP://rootDSE") If Err.Number <> 0 Then WScript.Echo "ドメイン接続に失敗しました。終了します。" WScript.Quit Else baseDN = objRootDSE.Get("defau