トップ回答者
アクティブディレクトリからの情報の取得方法について

質問
-
アクティブディレクトリの情報の取得方法について分からないことがあり質問したりと思います。
具体的には、下記のソースで
result.GetDirectoryEntry().Properties("sAMAccountName").Value.ToString()
のところでnullによるエラーが発生します。
現象としては、検索は出来ているのですが、sAMAccountNameのプロパティがないようです。
教えてもらえますでしょうか。
Using entry = New DirectoryEntry(_path, _DomainName & "\" & _UserID, _Password)Dim obj As Object = entry.NativeObject
_FindDataSet = NothingUsing search As DirectorySearcher = New DirectorySearcher(entry)
'search.Filter = "(SAMAccountName=" + _UserID + ")"
search.PropertiesToLoad.Add("sAMAccountName")
search.PropertiesToLoad.Add("company")Dim results As SearchResultCollection = search.FindAll()
If results Is Nothing Then
Else
For Each result As SearchResult In results
If _FindDataSet Is Nothing Then
_FindDataSet = New DataTable
_FindDataSet.Columns.Add("userid", System.Type.GetType("System.String"), "")
_FindDataSet.Columns.Add("company", System.Type.GetType("System.String"), "")
End IfDim row As DataRow = _FindDataSet.NewRow()
Dim strBuf As String = result.GetDirectoryEntry().Properties("sAMAccountName").Value.ToString()
row.Item(0) = result.GetDirectoryEntry().Properties("sAMAccountName").Value.ToString()
row.Item(1) = result.GetDirectoryEntry().Properties("company").Value.ToString()
_FindDataSet.Rows.Add(row)
Next
End If
End Usingobj = Nothing
End Using