ドメイン情報を取得するには？ (ID:122210)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以前のカキコミしていたものですが・・・ For each U in User If U.Class = "User" Then Set objUserName = GetObject("WinNT://ドメイン名" & U.Name) objExcel.Cells(i,1).Value = objUserName.name objExcel.Cells(i,2).Value = objUserName.FullName objExcel.Cells(i,3).Value = objUserName.Description objExcel.Cells(i,4).Value = objUserName.AccountDisabled objExcel.Cells(i,5).Value = objUserName.IsAccountLocked objExcel.Cells(i,6).Value = objUserName.PasswordExpired objExcel.Cells(i,7).Value = objUserName.PasswordExpiranationDate End If i = i + 1 Next この部分で、If U.Class = "User" Then としているのに、再度、 Set objUserName = GetObject("WinNT://ドメイン名" & U.Name) これを実行して、Userクラス情報でフィルターした内容が失われている のが原因と思います。 今、確認する環境が無いのですが、 Set objUserName = GetObject("WinNT://ドメイン名" & "/" & U.Name & ",User") として、実行してみて下さい。 それでもエラーするようでしたら、さて何でしょうかネ・・・ 以上。