Const Max_Connections As Integer = 10
        Const IsFileShare As Integer = 0
        Dim Share_Info As String() = {"C:\Freigabe", "Freigabe", IsFileShare, _
          Max_Connections, "Mein Freigabekommentar"}
        Dim Win_Shares As ManagementClass = New ManagementClass("Win32_Share")
        Try
            '//Win_Shares.InvokeMethod("Create", Share_Info)
            Win_Shares.Delete()
        Catch ex As System.Management.ManagementException
            MessageBox.Show(ex.ToString)
            Return
        Finally
            Win_Shares.Dispose()
        End Try
        MessageBox.Show(Share_Info(0) + " erfolgreich erstellt!")