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

[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

[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 тоже не видит. Приложения офиса работают стабильно. Будьте внимательны при использовании.

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

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