Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB4, VB5, VB6 | 26.05.04 |
Netzwerk-Freigabe zurücknehmen Wie man eine bestehende Netzwerk-Freigabe wieder zurücknimmt, das erfahren Sie in diesem Tipp. | ||
Autor: Helmut Suhren | Bewertung: | Views: 14.047 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Wie man ein Laufwerk oder Ordner im Netzwerk freigeben kann, haben wir Ihnen bereits gezeigt:
Laufwerk/Ordner im Netzwerk freigeben
Heute zeigen wir Ihnen das Gegenstück dazu, mit dem sich eine Freigabe wieder zurücknehmen lässt.
Fügen Sie nachfolgenden Code in ein Modul ein.
Option Explicit ' zunächst die benötigten API-Deklarationen Public Const NERR_SUCCESS As Long = 0& Private Declare Function NetShareDel Lib "netapi32.dll" ( _ ByVal ServerName As Any, _ ByVal netname As String, _ ByVal reserved As Long) As Long
' Hinweis:: Um die Funktion nutzen zu können ' benötigen Sie die entsprechenden Systemrechte! Public Function ShareDel(ServerName As String, _ ShareName As String) As Long Dim dwServerName As Long Dim nShareName As String dwServerName = StrPtr(ServerName) nShareName = StrConv(ShareName, vbUnicode) ShareDel = NetShareDel(dwServerName, nShareName, 0&) End Function
Hinweis: Um die Funktion nutzen zu können benötigen Sie die entsprechenden Systemrechte!
Der Aufruf der Funktion erfolgt dann so:
' Servername (Rechnername) Dim sServer As String sServer = "\\SERVER" ' Freigabe-Name Dim sName As String sName = "SHARE" ' Freigabe zurücknehmen Dim nResult As Long nResult = ShareDel(sServer, sName) If nResult <> NERR_SUCCESS Then MsgBox "Fehler bei der Zurücknahme der Netzwerk-Freigabe !" End If