[решено] команды отключить/включить сетевую карту?

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

команды отключить/включить сетевую карту?

нужны две команды: отключение и включение сетевой карты (если невозможно в cmd, то хотя бы в vbs)

super_bitard, в этой теме пример.

сорри, но devcon и другие сторонние утилиты - это не true

netsh interface set interface ?

Цитата:

Цитата super_bitard

хотя бы в vbs »

Код:

' 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

    WScript.Echo "Network folder not found"

    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

    WScript.Echo "Network Connection not found"

    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

      WScript.Sleep 1000

      SetConnState=vbTrue

    End If

  Next

End Function

vbs-скрипт не работает

super_bitard, работает. Каков язык Вашей ОС? В точности ли Вы указываете при вызове функции из Вашего скрипта имя соединения?

Код:

SetConnState "Подключение по локальной сети", True

SetConnState "Подключение по локальной сети", False

проверял на лиц. xp: английской и русской версиях, к сожалению что-то в скрипте не срабатывает, хотя скрипт старательный.

имя подключения: local area connection

подставлял, где ' strConn : имя сетевого подключения" - безрезультатно

если что, вот скрин сетевых подключений

super_bitard, подобных скриптов в гугле немеренно, для англ. XP нужно заменить переменные:

Код:

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

  strNetConn = "Network Connections"



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

  strEnable = "En&able"



' strDisable = "&Отключить"

  strDisable = "Disa&ble"

' -----------------------------