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

[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

[Kainix]

Цитата:

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

.NET CLR Interop Overview

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

[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?

[gl00mie]

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

[Kainix]

Цитата:

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

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

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