[HaBo]

Public Sub DeactivateLAN(Optional ConName As String = "LAN-Verbindung")

  Const HKEY_LOCAL_MACHINE = &H80000002
  
  
  Dim shellApp As Variant
  Dim oControlPanel As Variant
  Dim oNetConnections As Variant
  Dim oLanConnection As Variant
  Dim folderitem As Variant
  Dim oDisableVerb As Variant
  Dim Verb As Variant
  Dim sConnectionName As String
  Dim bEnabled As Boolean
  Const sDisableVerb As String = "&Deaktivieren"


      
     sConnectionName = ConName

    
      Set shellApp = CreateObject("shell.application")
      Set oControlPanel = shellApp.Namespace(3)
      Set oNetConnections = Nothing
      Set oLanConnection = Nothing


      For Each folderitem In oControlPanel.items
        If folderitem.Name = "Netzwerkverbindungen" Then
          Set oNetConnections = folderitem.getfolder: Exit For
        End If
      Next

    
      If oNetConnections Is Nothing Then
        MsgBox "ERROR", vbCritical
        Exit Sub
      End If

      For Each folderitem In oNetConnections.items
        If LCase(folderitem.Name) = LCase(sConnectionName) Then
          Set oLanConnection = folderitem: Exit For
        End If
      Next


     
      bEnabled = True
      Set oDisableVerb = Nothing
    
      
      For Each Verb In oLanConnection.verbs
        If Verb.Name = sDisableVerb Then
          Set oDisableVerb = Verb
        End If
      Next
On Error GoTo NotConnected:
     oDisableVerb.DoIt
    
   Exit Sub
NotConnected:
   MsgBox "Lan-Verbindung bereits getrennt"
End Sub