Const ssfCONTROLS = 3
 
Function DisableConnection(sConnectionName)
 
sVerb = "Disa&ble"
 
Set shellApp = CreateObject("shell.application")
Set oControlPanel = shellApp.Namespace(ssfCONTROLS)
Set oDisableVerb = Nothing
Set oNetConnections = Nothing
Set oLanConnection = Nothing
 
 
For Each folderitem In oControlPanel.items
      If folderitem.Name = "Network and Dial-up Connections" Or "Network" & _
        "Connections" Then
          Set oNetConnections = folderitem.GetFolder: Exit For
      End If
Next
 
If oNetConnections Is Nothing Then
MsgBox "Couldn't find 'Network and Dial-up Connections' folder"
Exit Function
End If
 
For Each folderitem In oNetConnections.items
  If LCase(folderitem.Name) = LCase(sConnectionName) Then
      Set oLanConnection = folderitem: Exit For
  End If
Next
 
If oLanConnection Is Nothing Then
  MsgBox "Couldn't find '" & sConnectionName & "' item"
  Exit Function
End If
 
 
For Each Verb In oLanConnection.verbs
  If Verb.Name = sVerb Then
      Verb.DoIt
  End If
Next
End Function
 
 
 
Function EnableConnection(sConnectionName)
 
sVerb = "En&able"
 
Set shellApp = CreateObject("shell.application")
Set oControlPanel = shellApp.Namespace(ssfCONTROLS)
Set oDisableVerb = Nothing
Set oNetConnections = Nothing
Set oLanConnection = Nothing
 
 
For Each folderitem In oControlPanel.items
      If folderitem.Name = "Network and Dial-up Connections" Or "Network" & _
        "Connections" Then
          Set oNetConnections = folderitem.GetFolder: Exit For
      End If
Next
 
If oNetConnections Is Nothing Then
MsgBox "Couldn't find 'Network and Dial-up Connections' folder"
Exit Function
End If
 
For Each folderitem In oNetConnections.items
  If LCase(folderitem.Name) = LCase(sConnectionName) Then
      Set oLanConnection = folderitem: Exit For
  End If
Next
 
If oLanConnection Is Nothing Then
  MsgBox "Couldn't find '" & sConnectionName
  Exit Function
End If
 
 
For Each Verb In oLanConnection.verbs
  If Verb.Name = sVerb Then
      Verb.DoIt
  End If
Next
End Function

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell