Netzwerk Laufwerk auslesen

GOKTerek · 21. September 2022, 09:00

Hallo,

aktuell versuche ich, die Ordner eines Netzwerklaufwerks auszulesen. Hierfür habe ich, jedoch nur den Server aus der SQL-Datenbank auslesen können.

jetzt muss ich jedoch herausfinden, wo die gesuchten Dateien liegen. Natürlich weiß ich jetzt wie der ordner heißt, jedoch kann sich das zukünftig auch ändern, deshalb wollte ich gerne die Ordner auslesen.

in dem fall habe ich die Alias Adresse "\\SWArchiv.***.***.**", das drive ist nicht gemappt und soll auch nicht gemappt werden!!! siehe Bild im Anhang.

io.directoryinfo geht nicht

.

INOPIAE · 21. September 2022, 09:14

Hi,

die Basis findest Du hier: https://www.codeproject.com/Questions/572248/GetplusFilesplusFromplusUNCplusPath

Dann musst Du nur noch eine rekursive Funktionalität drum herum bauen.

GOKTerek · 21. September 2022, 09:26

Das hatte ich ja getestet, jedoch wie ich schon sagte, ich muss mir die Ordner anzeigen lassen von "\\swarchiv.***.***.**".
Ich kann mit mit den Io.****** befehlen nur mit angabe eines ordners auslesen.

System.ArgumentException: "Der UNC-Pfad muss folgendes Format haben: \\server\share."

d.h ich muss angeben "\\swarchiv.***.***.**\PDMArchiv\" um die dateien anzuzeigen. Jeodoch kann sich "PDMArchiv" ändern in" CADArchiv" als bsp.!
Ich habe nur den Server

!

HenryV · 21. September 2022, 10:38

Um die Freigaben eines Server einzulesen benötigst du die netshareenum (netapi32)

GOKTerek · 21. September 2022, 11:38

@HenryV, danke ist ein versuch wert. Ich teste das mal :-).

GOKTerek · 21. September 2022, 13:06

@HenryV, Perfekt das war es wonach ich gesucht habe, hat auf anhieb funktioniert. Zwar bekomme ich die Info, das der "Acces Denied" ist auf die Ordner(was mich wunderd da ich definitiv darauf zugreifen kann! Falls hierfür eine Erklärung da ist, würde ich die gerne hören ansonsten auch ok). Dennoch konnte ich die auslesen.

RodFromGermany · 21. September 2022, 16:23

GOKTerek schrieb:

Zwar bekomme ich die Info, das der "Acces Denied" ist

Bei welcher Abfrage?

GOKTerek · 22. September 2022, 07:10

Bei der Function GetSharedFromHost. Hier bekommst du ein Sharecollection list object zurück, da steht der Pfad etc. drinn.
Es wird alles abgerufen, jedoch steht überall in der Info Path 'Acces Denied'. Ich kann mir das nur so vorstellen, das er als User den Application Namen zur abfrage angibt, bin mir aber nicht sicher.
Das Finally musste ich erstmal auskommentieren, da es da immer zum Fehler gekommen ist.

VB.NET-Quellcode

Option Strict On
Imports System
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Folder_Functions_Network
Public ServerShareCollection As ShareCollection
Public Structure ShareType
Dim Name As String
Dim Path As String
Dim Type As Integer
Dim Remark As String
End Structure
Public Structure ShareCollection
Dim Shares() As ShareType
Dim ShareCount As Integer
Sub Clear()
Shares = Nothing
End Sub
Sub Add(ByVal Name As String, ByVal Path As String, ByVal Type As Integer, ByVal Remark As String)
If Shares Is Nothing Then
ReDim Shares(0)
Shares(0).Name = Name
Shares(0).Path = Path
Shares(0).Type = Type
Shares(0).Remark = Remark
Else
ReDim Preserve Shares(Shares.Length)
Shares(Shares.Length - 1).Name = Name
Shares(Shares.Length - 1).Path = Path
Shares(Shares.Length - 1).Type = Type
Shares(Shares.Length - 1).Remark = Remark
End If
If Type = 0 Then ShareCount = ShareCount + 1
End Sub
End Structure
Declare Unicode Function NetShareEnum Lib "netapi32.dll" (ByVal ServerName As StringBuilder, ByVal level As Integer,
ByRef BufPtr As IntPtr,
ByVal prefmaxbufferlen As Integer,
ByRef entriesread As Integer,
ByRef totalentries As Integer,
ByRef resume_handle As Integer) As Integer
Declare Unicode Function NetShareGetInfo Lib "netapi32.dll" (ByVal ServerName As String,
ByVal ShareName As String,
ByVal Level As Integer,
ByRef BufPtr As IntPtr) As Integer
'Declare Unicode Function NetApiBufferFree Lib "netapi32.dll" (ByRef buffer As IntPtr) As Long
#Region "Constants"
Const MAX_PREFERRED_LENGTH As Integer = -1 ' originally 0
Const ERROR_SUCCESS As Long = 0& ' No errors encountered.
Const NERR_Success As Long = 0&
Const ERROR_ACCESS_DENIED As Long = 5& ' The user has insufficient privilege for this operation.
Const ERROR_NOT_ENOUGH_MEMORY As Long = 8& ' Not enough memory
Const ERROR_NETWORK_ACCESS_DENIED As Long = 65& ' Network access is denied.
Const ERROR_INVALID_PARAMETER As Long = 87& ' Invalid parameter specified.
Const ERROR_BAD_NETPATH As Long = 53& ' The network path was not found.
Const ERROR_INVALID_NAME As Long = 123& ' Invalid name
Const ERROR_INVALID_LEVEL As Long = 124& ' Invalid level parameter.
Const ERROR_MORE_DATA As Long = 234& ' More data available, buffer too small.
Const NERR_BASE As Long = 2100&
Const NERR_NetNotStarted As Long = 2102& ' Device driver not installed.
Const NERR_RemoteOnly As Long = 2106& ' This operation can be performed only on a server.
Const NERR_ServerNotStarted As Long = 2114& ' Server service not installed.
Const NERR_BufTooSmall As Long = 2123& ' Buffer too small for fixed-length data.
Const NERR_RemoteErr As Long = 2127& ' Error encountered while remotely. executing function
Const NERR_WkstaNotStarted As Long = 2138& ' The Workstation service is not started.
Const NERR_BadTransactConfig As Long = 2141& ' The server is not configured for this transaction; IPC$ is not shared.
Const NERR_NetNameNotFound As Long = (NERR_BASE + 210) ' Sharename not found.
Const NERR_InvalidComputer As Long = 2351& ' Invalid computername specified.
#End Region ' "Constants"
#Region "API Calls With Structures"
<StructLayout(LayoutKind.Sequential)>
Structure SHARE_INFO_1
<MarshalAs(UnmanagedType.LPWStr)> Dim netname As String
Public ShareType As Integer
<MarshalAs(UnmanagedType.LPWStr)> Dim Remark As String
End Structure
<StructLayout(LayoutKind.Sequential)>
Structure SHARE_INFO_2
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_netname As String
Dim shi2_type As Integer
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_remark As String
Dim shi2_permissions As Integer
Dim shi2_max_uses As Integer
Dim shi2_current_uses As Integer
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_path As String
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_passwd As String
End Structure
#End Region ' "API Calls With Structures"
Public Function GetSharesFromHost(ByVal server As String) As ShareCollection
Dim Shares As New ShareCollection
Shares.Clear()
Dim level As Integer = 2
Dim svr As New StringBuilder(server)
Dim entriesRead As Integer, totalEntries As Integer, nRet As Integer, hResume As Integer = 0
Dim pBuffer As IntPtr = IntPtr.Zero
Try
nRet = NetShareEnum(svr, level, pBuffer, -1, entriesRead, totalEntries, hResume)
If ERROR_ACCESS_DENIED = nRet Then
'Need admin for level 2, drop to level 1
level = 1
nRet = NetShareEnum(svr, level, pBuffer, -1, entriesRead, totalEntries, hResume)
End If
If 0 = nRet AndAlso entriesRead > 0 Then
Dim t As Type = CType(IIf((2 = level), GetType(SHARE_INFO_2), GetType(SHARE_INFO_1)), Type)
Dim offset As Integer = Marshal.SizeOf(t)
Dim i As Integer = 0, lpItem As Integer = pBuffer.ToInt32()
While i < entriesRead
Dim pItem As New IntPtr(lpItem)
If 1 = level Then
Dim si As SHARE_INFO_1 = DirectCast(Marshal.PtrToStructure(pItem, t), SHARE_INFO_1)
Shares.Add(si.netname, "Access Denied", si.ShareType, si.Remark)
Else
Dim si As SHARE_INFO_2 = DirectCast(Marshal.PtrToStructure(pItem, t), SHARE_INFO_2)
Shares.Add(si.shi2_netname, si.shi2_path, si.shi2_type, si.shi2_remark)
End If
i += 1
lpItem += offset
End While
End If
Return Shares
'Finally
' Clean up buffer allocated by system
'If IntPtr.Zero <> pBuffer Then
' NetApiBufferFree(pBuffer)
'End If
'End Try
Catch ex As Exception
Return Shares
End Try
End Function
End Class

RodFromGermany · 22. September 2022, 13:41

GOKTerek schrieb:

Bei der Function GetSharedFromHost.

Wo finde ich die? Wo wird die aufgerufen?
====
Was muss ich tun, um den Effekt zu reproduzieren?
Und:
Statt

VB.NET-Quellcode

Dim Shares() As ShareType

machst Du

VB.NET-Quellcode

Dim Shares As New List(Of ShareType)

HenryV · 22. September 2022, 15:37

Das "Access Denied" ist nur ein Text. Siehe Zeile 142 in deinem Code. Die wird ausgeführt, wenn du nicht genügend Rechte hast eine Level 2 Abfrage zu machen. (Zeile 119 - 126)

GOKTerek · 23. September 2022, 08:54

@RodFromGermany,

ich habe ein Klasse aus dem Code erstellt, da.h du kannst den Code als Klasse in einem neuen WPF oder Form Projekt hinzufügen.
In die Form/WPF legts du einen Button. In dem Button.Click befehl rufst du die Klasse mit GetsharesFromHost auf.

Bei mir sieht das etwas anders aus da ich vorher noch SQL Daten Auslese.

Achtung Code ist noch fehlerhaft, da bin ich gerade dabei, das zu lösen!!!

VB.NET-Quellcode

Private Sub StartCopyProcess(ByVal Source_PDM_System As String, ByVal Destination_PDM_System As String) Handles GOK_Copy_PDM_System.StartCopyProcess
PDMSystem_Information = New DataTable
AddColumnsPDMSystem_Information()
AddNeedInformations(Source_PDM_System, Destination_PDM_System)
GOK_Copy_PDM_System.AddDatatable(PDMSystem_Information)
SQLFunctions.GetInformations(PDMSystem_Information)
For Each SelectedRow As DataRow In PDMSystem_Information.Rows
If CStr(SelectedRow("Table_CLM")) = "NetworkFileReader" Then
Dim FoundRow() As DataRow = PDMSystem_Information.Select("PDM_Type = '" & CStr(SelectedRow("PDM_System")) & "'") 'Hier ist der Fehler
For Each Second_SelectedRow As DataRow In FoundRow
If CStr(Second_SelectedRow("Table_Name")) = "SystemInfo" Then
SelectedRow("Desc_Value") = GetPDM_ArchiveLocation(CStr(SelectedRow("PDM_System")), "\\" & CStr(Second_SelectedRow("Desc_Value")))
End If
Next
End If
Next
NewWindow.UpdateLayout()
End Sub
Private Function GetPDM_ArchiveLocation(ByVal PDM_System As String, ByVal ServerAdress As String) As String
GOK_FolderFunctions_Network = New GOK_Main_Functions.GOK_Folder_Functions_Network
Dim SharedFolderResult As GOK_Main_Functions.GOK_Folder_Functions_Network.ShareCollection = GOK_FolderFunctions_Network.GetSharesFromHost(ServerAdress)
Dim Returning_PDM_ArchivLocation As String = ""
If Not IsDBNull(SharedFolderResult) Then
For Each SharedFolder As ShareType In SharedFolderResult.Shares
If SharedFolder.Name <> "" Then
If SharedFolder.Name = PDM_System Then
Returning_PDM_ArchivLocation = ServerAdress & "\" & SharedFolder.Name
Else
Dim SharedDirectoryInfo As New IO.DirectoryInfo(ServerAdress & "\" & SharedFolder.Name)
Try
' Hier währe die Acces geschichte Interessant gewesen, jedoch habe ich ja überall 'Acces Denied' gehabt, obwohl ich zugriffsrechte habe
For Each Subfolder As IO.DirectoryInfo In SharedDirectoryInfo.GetDirectories(PDM_System, IO.SearchOption.AllDirectories)
Dim SWFiles As IO.FileInfo() = Subfolder.GetFiles("*.sld*", IO.SearchOption.AllDirectories)
If SWFiles.Length >= 500 Then
Returning_PDM_ArchivLocation = Subfolder.FullName.Replace(PDM_System, "")
End If
Next
Catch ex As Exception
End Try
End If
End If
Next
End If
Return Returning_PDM_ArchivLocation
End Function

RodFromGermany · 23. September 2022, 10:35

@GOKTerek Dein Code oben funktioniert bestens.
Ich hab ihn mal leicht aufgeräumt, die Klasse umbenannt, aus der Struct eine Klasse gemacht und deren Instanzen in eine List(Of T) gepackt. Die Information "Access Denied" steckt nun m Member .Valid.
Interessant ist die überladene Funktion ToString(), da kannst Du im Debug per Mouseklick die Namen aller gefundenen Laufwerke ansehen.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Imports System.Text
Public Class NetworkFolderFunctions
'Public ServerShareCollection As ShareCollection
Public Structure ShareType
Dim Name As String
Dim Path As String
Dim Type As Integer
Dim Remark As String
Dim Valid As Boolean
Public Overrides Function ToString() As String
Return $"{Name} => {Path} ({If(Valid, "valid", "invalid")})"
End Function
End Structure
Public Class ShareCollection
ReadOnly Shares As New List(Of ShareType)
'Dim ShareCount As Integer
Sub Clear()
Shares.Clear()
End Sub
Sub Add(Name As String, Path As String, Type As Integer, Remark As String)
Dim st As ShareType
st.Name = Name
st.Path = Path
st.Type = Type
st.Remark = Remark
st.Valid = Type = 0
Shares.Add(st)
End Sub
End Class
Declare Unicode Function NetShareEnum Lib "netapi32.dll" (ServerName As StringBuilder, level As Integer,
ByRef BufPtr As IntPtr,
prefmaxbufferlen As Integer,
ByRef entriesread As Integer,
ByRef totalentries As Integer,
ByRef resume_handle As Integer) As Integer
Declare Unicode Function NetShareGetInfo Lib "netapi32.dll" (ServerName As String, ShareName As String, Level As Integer, ByRef BufPtr As IntPtr) As Integer
'Declare Unicode Function NetApiBufferFree Lib "netapi32.dll" (ByRef buffer As IntPtr) As Long
#Region "Constants"
Const MAX_PREFERRED_LENGTH As Integer = -1 ' originally 0
Const ERROR_SUCCESS As Long = 0& ' No errors encountered.
Const NERR_Success As Long = 0&
Const ERROR_ACCESS_DENIED As Long = 5& ' The user has insufficient privilege for this operation.
Const ERROR_NOT_ENOUGH_MEMORY As Long = 8& ' Not enough memory
Const ERROR_NETWORK_ACCESS_DENIED As Long = 65& ' Network access is denied.
Const ERROR_INVALID_PARAMETER As Long = 87& ' Invalid parameter specified.
Const ERROR_BAD_NETPATH As Long = 53& ' The network path was not found.
Const ERROR_INVALID_NAME As Long = 123& ' Invalid name
Const ERROR_INVALID_LEVEL As Long = 124& ' Invalid level parameter.
Const ERROR_MORE_DATA As Long = 234& ' More data available, buffer too small.
Const NERR_BASE As Long = 2100&
Const NERR_NetNotStarted As Long = 2102& ' Device driver not installed.
Const NERR_RemoteOnly As Long = 2106& ' This operation can be performed only on a server.
Const NERR_ServerNotStarted As Long = 2114& ' Server service not installed.
Const NERR_BufTooSmall As Long = 2123& ' Buffer too small for fixed-length data.
Const NERR_RemoteErr As Long = 2127& ' Error encountered while remotely. executing function
Const NERR_WkstaNotStarted As Long = 2138& ' The Workstation service is not started.
Const NERR_BadTransactConfig As Long = 2141& ' The server is not configured for this transaction; IPC$ is not shared.
Const NERR_NetNameNotFound As Long = (NERR_BASE + 210) ' Sharename not found.
Const NERR_InvalidComputer As Long = 2351& ' Invalid computername specified.
#End Region ' "Constants"
#Region "API Calls With Structures"
<StructLayout(LayoutKind.Sequential)>
Structure ShareInfo1
<MarshalAs(UnmanagedType.LPWStr)> Dim netname As String
Public ShareType As Integer
<MarshalAs(UnmanagedType.LPWStr)> Dim Remark As String
End Structure
<StructLayout(LayoutKind.Sequential)>
Structure ShareInfo2
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_netname As String
Dim shi2_type As Integer
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_remark As String
Dim shi2_permissions As Integer
Dim shi2_max_uses As Integer
Dim shi2_current_uses As Integer
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_path As String
<MarshalAs(UnmanagedType.LPWStr)> Dim shi2_passwd As String
End Structure
#End Region ' "API Calls With Structures"
Public Function GetSharesFromHost(server As String) As ShareCollection
Dim Shares As New ShareCollection
Shares.Clear()
Dim level As Integer = 2
Dim svr As New StringBuilder(server)
Dim entriesRead As Integer, totalEntries As Integer, nRet As Integer, hResume As Integer = 0
Dim pBuffer As IntPtr = IntPtr.Zero
Try
nRet = NetShareEnum(svr, level, pBuffer, -1, entriesRead, totalEntries, hResume)
If ERROR_ACCESS_DENIED = nRet Then
'Need admin for level 2, drop to level 1
level = 1
nRet = NetShareEnum(svr, level, pBuffer, -1, entriesRead, totalEntries, hResume)
End If
If 0 = nRet AndAlso entriesRead > 0 Then
Dim t As Type = CType(IIf((2 = level), GetType(ShareInfo2), GetType(ShareInfo1)), Type)
Dim offset As Integer = Marshal.SizeOf(t)
Dim i As Integer = 0, lpItem As Integer = pBuffer.ToInt32()
While i < entriesRead
Dim pItem As New IntPtr(lpItem)
If 1 = level Then
Dim si As ShareInfo1 = DirectCast(Marshal.PtrToStructure(pItem, t), ShareInfo1)
Shares.Add(si.netname, "Access Denied", si.ShareType, si.Remark)
Else
Dim si As ShareInfo2 = DirectCast(Marshal.PtrToStructure(pItem, t), ShareInfo2)
Shares.Add(si.shi2_netname, si.shi2_path, si.shi2_type, si.shi2_remark)
End If
i += 1
lpItem += offset
End While
End If
Return Shares
'Finally
' Clean up buffer allocated by system
'If IntPtr.Zero <> pBuffer Then
' NetApiBufferFree(pBuffer)
'End If
'End Try
Catch ex As Exception
Return Shares
End Try
End Function
End Class

GOKTerek · 23. September 2022, 11:09

Hallo @RodFromGermany, danke für die Blumen(wenn ich eins kann dann Copy and paste) aber das ist nicht mein code , der ist von dem Link den @HenryV gepostet hat.
Danke, für die Änderungen ich schau mir das gleich mal an :-)!

GOKTerek · 26. September 2022, 06:36

Guten Morgen @RodFromGermany,

funktioniert. Musste nur Zeile 21 ändern. Hier konnte ich nicht auf die Liste zugreifen, da nicht Public.

VB.NET-Quellcode

Public ReadOnly Shares As New List(Of ShareType)

zumindest habe ich evtl. eine Lösung zu meinem Try Catch gepfusche, beim auslesen der Shared Folder gefunden.

Bei der Abfrage, bekomme ich ja ST.Name, ST.Path , ST-Valid zurück. Hier könnte ich ST.Valid abfragen und spare mir das Try Catch. Ich lasse das Try Catch dennoch erstmal drin um unbekannte Fehler zu finden.

Danke an @HenryV(was ist eingentlich mit den anderen 4 Henry'S passiert) und @RodFromGermany.

Netzwerk Laufwerk auslesen

Netzwerk Laufwerk auslesen

GOKTerek schrieb:

VB.NET-Quellcode

GOKTerek schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben