AndrFТочнее так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Option Explicit
Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Sub Main()
Dim ws As New IWshRuntimeLibrary.WshShell, s As String, ss As String
Dim f As New Scripting.FileSystemObject
s = ws.Exec(f.GetSpecialFolder(SystemFolder) & "\net.exe view").StdOut.ReadAll
ss = s
OemToChar ss, s
Debug.Print s
End Sub
Но так мелькает окошко консоли - чтобы оно не мелькало нужно вызывать net view используя CreateProcess, скрывая консоль и перехватывая тот же StdOut...
Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long -> бУдет выдаваться ошибка "Константы, ряды устанавливаемой длины, масивы, определяемые пользователем типы и инструкции Declare, не позволенны как общие участники объектных модулей"
