Какие файлы открыты по сети

[Kainix]

Всем привет.

Проблема следующего характера, при открытии прикрепленного файла через акс одновременно 2мя пользователями один может редактировать а второй нет. Хотелось бы чтобы второй увидел какой пользователь держит файл, в сообщении выдать имя пользователя. Вот.

Значит задача решена в VS следующим кодом

sing System;
using System.DirectoryServices;
using ActiveDs;
 
namespace NetShare
{
    class Program
    {
        static void Main(string[] args)
        {
            using (DirectoryEntry container = new DirectoryEntry("WinNT://<mashine name>/LanmanServer"))
            {
               IADsFileServiceOperations fso = container.NativeObject as IADsFileServiceOperations;
               if (fso != null)
               {
                   //foreach(IADsSession sess in fso.Sessions())
                   //{
                   //  Console.WriteLine("Name : {0} \tUser: {1} \tComputer : {2}",sess.Name, sess.User, sess.Computer);
                   //}
 
                   IADsCollection resources = fso.Resources() as IADsCollection;
                   Console.WriteLine("----- Resource info -------");
                   foreach(IADsResource resource in resources)
                   {
                       Console.WriteLine("\tPath: {0}\tUser: {1}\tLockCount: {2}\tName:{3}", resource.Path, resource.User, resource.LockCount, resource.Name);
                   }
               }
            }
            Console.Read();
        }
    }
}

Пытаюсь проделать тоже самое в аксе

static void Job117(Args _args)
{
    Com             objConnection = Com::getObjectEx("WinNT://<mashine name>/LanmanServer");
    Com             colResources;
    AnyType         any;
    ;
    
    //any =
    colResources = objConnection.Resources();
    any = colResources.get__NewEnum();
    

    info("");
}

на строке any = colResources.get__NewEnum(); сыпется и говорит что нет метода
ссылка на mdsn
http://msdn.microsoft.com/ru-ru/libr...(v=vs.85).aspx
Остальные методу приведенные в по ссылке работают. Я их вызываю с пустыми аргументами, система пишет, что метод вызван с недопустимыми параметрами

Есть у кого нить идей, почему нет метода?
Версия аксы 2009 Ru6

[someOne]

Нет, так, конечно, не правильно.

У вас получается все в кучу - com, Net...

Ваш исходный пример в чистом виде в аксапту перенести, наверное, невозможно из за разнородности используемых технологий в нем.


Для начала я бы на вашем месте написал в VS пример рабочего кода с использованием "чистого" NET, без всяких там IADsFileServiceOperations, NativeObject и так далее.

После этого переложить код на язык Аксапты - дело техники.

Ну и просто для справки:
Этот фрагмент из вашего примера

DirectoryEntry container = new DirectoryEntry("WinNT://<mashine name>/LanmanServer")

в Аксапте будет не так

   Com             objConnection = Com::getObjectEx("WinNT://<mashine name>/LanmanServer");

а как то так

    System.DirectoryServices.DirectoryEntry de;
    ;
    de = new System.DirectoryServices.DirectoryEntry("WinNT://<mashine name>/LanmanServer");

так как в вашем примере из VS DirectoryEntry это объект NET а не COM

[Kainix]

Спасибо someOne за ответ.

Вот еще вариант на VS (рабочий)

using System;
using System.Runtime.InteropServices;

namespace NetShare
{
    class Program
    {
        [DllImport("Netapi32.dll", SetLastError = true)]
        static extern int NetApiBufferFree(IntPtr Buffer);

        [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto, Pack = 4)]
        struct FILE_INFO_3
        {
            public int fi3_id;
            public int fi3_permission;
            public int fi3_num_locks;
            public string fi3_pathname;
            public string fi3_username;
        }

        [DllImport("netapi32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
        static extern int NetFileEnum(
             string servername,
             string basepath,
             string username,
             int    level,
             ref IntPtr bufptr,
             int prefmaxlen,
             out int entriesread,
             out int totalentries,
             IntPtr resume_handle
        );

        [DllImport("netapi32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
        static extern int NetFileGetInfo(
          string servername,
          int fileid,
          int level,
          ref IntPtr bufptr
        );

        static void Main(string[] args)
        {
            const int MAX_PREFERRED_LENGTH = -1;

            int dwReadEntries;
            int dwTotalEntries;
            IntPtr pBuffer = System.IntPtr.Zero;
            FILE_INFO_3 pCurrent = new FILE_INFO_3();
          
            int dwStatus = NetFileEnum("<mashineName>", "<fileName>", null, 3, ref pBuffer, MAX_PREFERRED_LENGTH, out dwReadEntries, out dwTotalEntries, IntPtr.Zero);

            if (dwStatus == 0)
            {
                for (int dwIndex = 0; dwIndex < dwReadEntries; dwIndex++)
                {
                    IntPtr iPtr = new IntPtr(pBuffer.ToInt32() + (dwIndex * Marshal.SizeOf(pCurrent)));
                    pCurrent = (FILE_INFO_3)Marshal.PtrToStructure(iPtr, typeof(FILE_INFO_3));

                    Console.WriteLine("dwIndex={0}", dwIndex);
                    Console.WriteLine(" id={0}", pCurrent.fi3_id);
                    Console.WriteLine(" num_locks={0}", pCurrent.fi3_num_locks);
                    Console.WriteLine(" pathname={0}", pCurrent.fi3_pathname);
                    Console.WriteLine(" permission={0}", pCurrent.fi3_permission);
                    Console.WriteLine(" username={0}", pCurrent.fi3_username);
                }
                NetApiBufferFree(pBuffer);
            }
            Console.Read();
        }
    }
}

Пытаюсь перенести на аксу

static void Job117(Args _args)
{
    DLL                     netApi32 = New Dll("netapi32.dll");
    DLLFunction             NetFileEnum = new DllFunction(netApi32, "NetFileEnum");
    int                     dwStatus, dwReadEntries, dwTotalEntries, res ;
    Binary                  struct;
    int                     MAX_PREFERRED_LENGTH = -1;
    System.IntPtr           pBuffer = new System.IntPtr(0);
    ;

     NetFileEnum.arg(ExtTypes::String,
                    ExtTypes::String,
                    ExtTypes::String,
                    ExtTypes::DWord,
                    ExtTypes::void,
                    ExtTypes::DWord,
                    ExtTypes::DWord,
                    ExtTypes::DWord,
                    ExtTypes::Pointer);

    dwStatus = NetFileEnum.call("<mashineName>",
                                "",
                                "",
                                3,
                                pBuffer,
                                MAX_PREFERRED_LENGTH,
                                dwReadEntries,
                                dwTotalEntries,
                                pBuffer);

    if(dwStatus == 0)
    {
        info("");
    }
}

Не проходит пишет ошибку
Значение регистра ESP не было сохранено при вызове функции "NetFileEnum" в библиотеке DLL "netapi32.dll". Причиной может являться вызов функции DLL, которая объявлена с неверным числом аргументов.
Что я делаю не так?

[Kainix]

В аксе используется только Com технология, никакого Net там нет, в VS, использую специальную обертку кома. Просто при вызове функции get__NewEnum() Com объекта пишет что нет таковой. Если бы мне все вернуло не было бы проблем.
objConnection = Com::getObjectEx("WinNT://<mashine name>/LanmanServer"); возвращает нам ком объект ActiveDs, и я начинаю с ним работать, в VS есть for each, а в аксе такого нет, место этого я пишу colResources.get__NewEnum(), и тут получаю, что нет такого метода у ком объекта, хотя остальные методы такие как Add(), GetObject(), Remove() есть. А нужного метода нет. Печаль.

PS. Примеры из VisualStudio работоспособные. Просто не хочется создавать сборки, а потом их прикреплять , и закидывать на клиенты.

[belugin]

Цитата:

Сообщение от Kainix

В аксе используется только Com технология, никакого Net там нет,.

.NET CLR Interop Overview

[michel1971]

Цитата:

Сообщение от Kainix

objConnection = Com::getObjectEx("WinNT://<mashine name>/LanmanServer"); возвращает нам ком объект ActiveDs, и я начинаю с ним работать, в VS есть for each, а в аксе такого нет

поробуйте вот так

    comEnum = new COMEnum2Object(objConnection);
    obj = comEnum.getFirst();

    while (obj)
    {
        .......
        obj= comEnum.getNext();
    }

[Kainix]

Спасибо michel1971, за дельный совет. Написал

static void Job1171(Args _args)
{
    Com             IADsFileServiceOperations = Com::getObjectEx("WinNT://adm-hp22/LanmanServer");
    Com             IADsCollection;
    Com             IADsResource;
    COMEnum2Object  IADsEnumerator;
    Int             counter;
    ;

    IADsCollection = IADsFileServiceOperations.Resources();
    IADsEnumerator = new COMEnum2Object(IADsCollection);
    counter = IADsEnumerator.usageCount();
    info(strfmt("%1", counter));
    IADsResource = IADsEnumerator.getFirst();
    while(IADsResource)
    {
        info(IADsResource.User() + ";" + IADsResource.Path());
        IADsResource = IADsEnumerator.getNext();
    }
}

Что то перебирается но результат не стабилен, вылетают ошибки. Думаю эти ошибки в самом IADsFileServiceOperations, так как енумеротор не понятно что возвращает.
Прихожу к выводу что буду писать DLL через NetFileEnum доставать только нужный файл, и работать только с ним.

И еще вопрос, что лучше писать Com объект или DLL?

[Kainix]

Цитата:

Сообщение от belugin

.NET CLR Interop Overview

Я говорю про данную задачу. В аксе конечно же есть .Net

[Kainix]

Вот родил библиотеку для просмотра кто какие файлы использует по сети.
ClassLibrary4.rar
DLL находится в папке ClassLibrary4\ClassLibrary4\bin\Debug

пример использования

static void Job1171(Args _args)
{
    FileInfo3.GetFilesInfo       FileInfo3 = new FileInfo3.GetFilesInfo();
    ;

    FileInfo3.getFilesInfo("MashineName");
    FileInfo3.firstElement();
    while(FileInfo3.moveNext())
    {
        FileInfo3.currentElement();
        info(FileInfo3.getPathName());
        info(FileInfo3.getUserName());
    }
    
    FileInfo3.getFileInfo("MashineName", "FullFileName");
    FileInfo3.currentElement();
    info(FileInfo3.getPathName());
    info(FileInfo3.getUserName());
}

FullFileName - это полный путь к файлу например C:\1.docx

Еще замечание, что в ходе тестирования было выяснено что не все программы оставляют след что ими открыт файл, т.е. если открыть txt блокнотом, то через несколько секунд он исчезает из списка открытых файлов, openiles тоже не видит. Приложения офиса работают стабильно. Будьте внимательны при использовании.

Всем спасибо за советы

[gl00mie]

Для доступа к списку открытых по сети файлов на той или иной машине нужны права доступа "выше среднего", и простому пользователю, у которого на клиенте отрабатывает функционал документооборота и открывает файл, хранящийся в сетевой шаре (еще одно из допущений в этой теме), не удастся вот так с наскоку подключиться к файл-серверу и посмотреть, кто и какие файлы по сети с него открыл. Т.е. чтобы это работало в реальных условиях, соотв. "инспекция" должна выполняться с AOS'а, а тот должен быть запущен под учетной записью, у которой права "выше среднего" на соотв. файл-сервере, в то время как для штатной работы документооборота такие права совершенно не нужны.

[Kainix]

Цитата:

Сообщение от gl00mie

Для доступа к списку открытых по сети файлов на той или иной машине нужны права доступа "выше среднего", и простому пользователю, у которого на клиенте отрабатывает функционал документооборота и открывает файл, хранящийся в сетевой шаре (еще одно из допущений в этой теме), не удастся вот так с наскоку подключиться к файл-серверу и посмотреть, кто и какие файлы по сети с него открыл. Т.е. чтобы это работало в реальных условиях, соотв. "инспекция" должна выполняться с AOS'а, а тот должен быть запущен под учетной записью, у которой права "выше среднего" на соотв. файл-сервере, в то время как для штатной работы документооборота такие права совершенно не нужны.

Само сабой разумеющееся, это видно из описания функции NetFileEnum. Спасибо за поправку, а то забыл написать.