vb@rchiv · Tipps & Tricks · Netzwerk-Freigabe zurücknehmen

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.027
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