' strConn : имя сетевого подключения
' bState  : vbTrue - включить, vbFalse - отключить

Function SetConnState (strConn, bState)
  Dim objShell,objCP
  Dim colNetwork,clsConn,clsLANConn,clsVerb
  Dim strNetConn,strEnable,strDisable
  SetConnState=vbFalse

  strNetConn = "Сетевые подключения"
' strNetConn = "Network Connections"

  strEnable = "&Включить"
' strEnable = "En&able"

  strDisable = "&Отключить"
' strDisable = "Disa&ble"
' -----------------------------
  Set objShell = CreateObject("Shell.Application")
  Set objCP = objShell.Namespace(3)

  Set colNetwork = Nothing
  For Each clsConn in objCP.Items
    If clsConn.Name = strNetConn Then
      Set colNetwork = clsConn.getfolder
      Exit For
    End If
  Next

  If colNetwork Is Nothing Then
    Exit Function
  End If

  Set clsLANConn = Nothing
  For Each clsConn in colNetwork.Items
    If LCase(clsConn.name) = LCase(strConn) Then
      Set clsLANConn = clsConn
      Exit For
    End If
  Next

  If clsLANConn is Nothing Then
    Exit Function
  End If

  For Each clsVerb in clsLANConn.verbs
    If (bState=vbFalse AND clsVerb.name=strDisable) OR (bState=vbTrue AND clsVerb.name=strEnable) Then 
      clsVerb.DoIt
      Sleep 1000
      SetConnState=vbTrue
    End If
  Next
End Function

Public Const LOCALE_USER_DEFAULT = &H400
Public Const LOCALE_SENGCOUNTRY = &H1002
Public Const LOCALE_SENGLANGUAGE = &H1001
Public Const LOCALE_SNATIVELANGNAME = &H4
Public Const LOCALE_SNATIVECTRYNAME = &H8
Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Public Function GetInfo(ByVal lInfo As Long) As String 'инфа про язык системы
    Dim Buffer As String, Ret As String
    Buffer = String(256, 0)
    Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
    If Ret > 0 Then
        GetInfo = Left$(Buffer, Ret - 1)
    Else
        GetInfo = vbNullString
    End If
End Function
Public Sub LocalNet(bState)
Dim objShell, objCP
Dim colNetwork, clsConn, clsLANConn, clsVerb
Dim strNetConn, strEnable, strDisable

Set objWMIService = GetObject("Winmgmts:\\.\root\microsoft\homenet")
Set colitems = objWMIService.ExecQuery("Select * from HNet_Connection")
Set objShell = CreateObject("Shell.Application")
Set objCP = objShell.Namespace(3)
Set colNetwork = Nothing
Set clsLANConn = Nothing

SetConnState = vbFalse

For Each objitem In colitems
    If (objitem.IsLANConnection) Then
        If objitem.Name <> "PdaNet Broadband Connection" Then
            strConn = objitem.Name
            Exit For
        End If
    End If
Next

If GetInfo(LOCALE_SNATIVELANGNAME) = "русский" Then
    strNetConn = "Сетевые подключения"
Else
    strNetConn = "Network Connections"
End If

If GetInfo(LOCALE_SNATIVELANGNAME) = "русский" Then
    strEnable = "&Включить"
Else
    strEnable = "En&able"
End If
If GetInfo(LOCALE_SNATIVELANGNAME) = "русский" Then
    strDisable = "&Отключить"
Else
    strDisable = "Disa&ble"
End If

  For Each clsConn In objCP.Items
    If clsConn.Name = strNetConn Then
      Set colNetwork = clsConn.getfolder
      Exit For
    End If
  Next

  If colNetwork Is Nothing Then
    Exit Sub
  End If

  
  For Each clsConn In colNetwork.Items
    If LCase(clsConn.Name) = LCase(strConn) Then
      Set clsLANConn = clsConn
      Exit For
    End If
  Next

  If clsLANConn Is Nothing Then
    Exit Sub
  End If

  For Each clsVerb In clsLANConn.verbs
    If (bState = vbFalse And clsVerb.Name = strDisable) Or (bState = vbTrue And clsVerb.Name = strEnable) Then
      clsVerb.DoIt
      SetConnState = vbTrue
    End If
  Next
End Sub