Как узнать, кто по сети открыл файл

[dima_home]

Не могу найти пример или ориентир на то, как в VB.NET получить список пользователей, которые в данный момант получили доступ по сети (открыли на чтение) файл.
Ну или хотябы с какой машины в сети файл открыт.
Помогите плиз,... "пните" в нужную сторону...

Для примера: типо командной строки "net file ..."

[Sebas]

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

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection")
For Each objItem in colItems
    Wscript.Echo "Access Mask: " & objItem.AccessMask
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Connection State: " & objItem.ConnectionState
    Wscript.Echo "Connection Type: " & objItem.ConnectionType
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Display Type: " & objItem.DisplayType
    Wscript.Echo "Local Name: " & objItem.LocalName
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Persistent: " & objItem.Persistent
    Wscript.Echo "Provider Name: " & objItem.ProviderName
    Wscript.Echo "Remote Name: " & objItem.RemoteName
    Wscript.Echo "Remote Path: " & objItem.RemotePath
    Wscript.Echo "Resource Type: " & objItem.ResourceType
    Wscript.Echo "User Name: " & objItem.UserName
    Wscript.Echo
Next


[dima_home]

спасибо...

[dima_home]

Для VB.NET это выглядит так:

Dim strComputer As String = "COMP"
Dim objWMIService As Object = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Dim colItems As Object = objWMIService.ExecQuery("Select * from Win32_NetworkConnection")
Dim objItem As Object
For Each objItem In colItems
ListBox1.Items.Add("Access Mask: " & objItem.AccessMask)
ListBox1.Items.Add("Caption: " & objItem.Caption)
ListBox1.Items.Add("Connection State: " & objItem.ConnectionState)
ListBox1.Items.Add("Connection Type: " & objItem.ConnectionType)
ListBox1.Items.Add("Description: " & objItem.Description)
ListBox1.Items.Add("Display Type: " & objItem.DisplayType)
ListBox1.Items.Add("Local Name: " & objItem.LocalName)
ListBox1.Items.Add("Name: " & objItem.Name)
ListBox1.Items.Add("Persistent: " & objItem.Persistent)
ListBox1.Items.Add("Provider Name: " & objItem.ProviderName)
ListBox1.Items.Add("Remote Name: " & objItem.RemoteName)
ListBox1.Items.Add("Remote Path: " & objItem.RemotePath)
ListBox1.Items.Add("Resource Type: " & objItem.ResourceType)
ListBox1.Items.Add("User Name: " & objItem.UserName)
Next

[Sebas]

НУ уж нет!

Если в НЕТ, то извольте заюзать System.Management неймспейс.

[dima_home]

"System.Management" Это я уже потом нашел... но принцип тотже..

Но блин не как не могу найти "как заполучить список активных машин в доменной сети" - что ли нужно узать "IP route table" или есть более простой способ. Вдруг в НЕТ есть более удобный способ получить список имен машин в сети домена.... Помогите плиз....