Получение названия отдела из Active Directory

var filePath = Path.Combine(Environment.SystemDirectory, "Notepad.exe");
var directory = Path.GetDirectoryName(filePath);
var fileName = Path.GetFileName(filePath);
 
var shellApp = Type.GetTypeFromProgID("Shell.Application");
dynamic shell = Activator.CreateInstance(shellApp);
var folder = shell.NameSpace(directory);
var folderItem = folder.ParseName(fileName);
 
var names = (from idx in Enumerable.Range(0, short.MaxValue)
             let key = (string)folder.GetDetailsOf(null, idx)
             where !string.IsNullOrEmpty(key)
             select (idx, key)).ToDictionary(p => p.idx, p => p.key);
 
var properties = (from idx in names.Keys
                  orderby idx
                  let value = (string)folder.GetDetailsOf(folderItem, idx)
                  where !string.IsNullOrEmpty(value)
                  select (name: names[idx], value)).ToList();