Question Get a list of open shared file

[Zexor]

In Computer Management, if i click Shared Folders, Open Files, it list all the share file that is opened. How do i get that list into vb?

 

[JohnH]

See here using DirectoryServices: retreving data from computer management -> system tools -> Shared folders -> data

 

[Zexor]

That doesn't seem to work, is it different in windows 10? Since that is from 2009

 

[JohnH]

I don't get any errors in Win10, but I also can't test for results since I don't have any shares in use.

 

[Zexor]

yes there is no error, but it doesn't show the share i have in use

 

[Zexor]

When i run it, it found no Sessions or Resources

 

[JohnH]

There aren't any in Computer Management on my machine, so for me that is not a negative result, but I wouldn't know how to test otherwise either with only one machine in network.

 

[JohnH]

Other options is to open Process for 'net file', redirecting standard output and parsing the text.
Other similar command line tools: openfiles.exe (truncates outputs) or PsFile - Windows Sysinternals | Microsoft Docs (extra download and install)

If you like API declarations try NetFileEnum function (Windows), some C# code here that should translate: C# How to find connections to resources in a windows share and drop them » Joonas Kirsebom

 

[Zexor]

open Process as in this?
Dim Processes As Process() = Process.GetProcesses()

Can you get the result of the openfiles.exe or the PsFile into vb values?

 

[JohnH]

ProcessStartInfo.RedirectStandardOutput Property (System.Diagnostics)

 

[Zexor]

how do you only get 'net file'?

 

[JohnH]

Don't understand. Set 'net' as Filename, 'use' as Arguments you mean?

 

[Zexor]

you set Other options is to open Process for 'net file', redirecting standard output and parsing the text.
how do i get the net files?

 

[JohnH]

Did you see the code example in documentation page (post10) ?

 

[Zexor]

you mean the

Dim compiler As New Process()
compiler.StartInfo.FileName = "vbc.exe"
compiler.StartInfo.Arguments = "/reference:Microsoft.VisualBasic.dll /out:sample.exe stdstr.vb"
compiler.StartInfo.UseShellExecute = False
compiler.StartInfo.RedirectStandardOutput = True
compiler.Start()

Console.WriteLine(compiler.StandardOutput.ReadToEnd())

compiler.WaitForExit()