Function Verzeichnis_Einbinden(Dateipfad As String, EinbindenAls As String, _
      ClientLW As String, Bezeichnung As String) As Boolean
        Dim objLocator As SWbemLocator
        Dim objServices As SWbemServices
        Dim objShare As SWbemObject
        Dim lRet As Long
 
        objLocator = New WbemScripting.SWbemLocator
        objServices = objLocator.ConnectServer(UCase(txtPCName.Text)) ', 
        ' "root", "Administrator", "Volkerbu12")
 
        objShare = objServices.Get("Win32_Share")
 
        ' Parameter der Create-Methode wie im WMI SDK beschrieben:
        ' 1. lokaler Pfad des freizugebenden Ordners
        ' 2. Freigabename
        ' 3. Art der Freigabe (0 = Disk)
        ' 4. Anzahl max. gleichzeitig verbundener Benutzer
        ' 5. Beschreibung des Shares
 
        lRet = objShare.Create(Dateipfad, EinbindenAls, 0, 5, Bezeichnung)
        If lRet = 0 Then
            Verzeichnis_Einbinden = True
        Else
            Verzeichnis_Einbinden = False
        End If
 
        objShare = Nothing
        objServices = Nothing
        objLocator = Nothing
 
        ' Das Einbinden festhalten
        'If InStr(UCase(EinbindenAls), "TT") = 0 Then
        '    VorhandeneVerknüpfungen.Items.Add(Mid(Dateipfad, 1, 3) & " " & 
        ' EinbindenAls & " als Laufwerk " & ClientLW)
        '    '  Threading.Thread.Currentthread.Sleep(2000)
        'End If
    End Function