Форум программистов, компьютерный форум, киберфорум
Наши страницы
Batch (CMD/BAT)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
3AETC
0 / 0 / 0
Регистрация: 25.01.2016
Сообщений: 3
1

Разрешить/запретить другим пользователям сети использовать подключение к Интернету данного компьютера

25.01.2016, 11:55. Просмотров 2610. Ответов 4
Метки нет (Все метки)

Здравствуйте, помоги написать байтник, который будет перезапускать раздачу интернет подключения МТС, т.е снимать и ставить галочку "Разрешить другим пользователям сети использовать подключение к Интернету данного компьютера".

Так как автоматом присваиваться 192.168.137.1.
эту проблему я решил так:
Windows Batch file
1
netsh interface ip set address name=Lan static 192.168.1.21 255.255.255.0
А вот с перезапуском самого расшаривания я ничего найти не смог.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2016, 11:55
Ответы с готовыми решениями:

Запретить смену фонового изображения на рабочем столе другим пользователям
как администратору в win xp запретить смену фонового изображения на рабочем столе другим...

Подключение сетевого принтера удаленным пользователям в доменной сети
Здаравствуйте. Скажите пож-ста можно ли подключение сетевой принтер удаленным пользователям в...

Нужна программа, которая будет отсылать текстовые сообщения другим пользователям в сети
Мне нужна программа которая будет отсылать текстовые сообщения другим пользователям в сети....

Как через командную строку открыть пользователям сети доступ к подключению к Интернету?
Доброе время суток! Такой вопрос: как в XP через командную строку открыть пользователям сети доступ...

Запрет на подключение к сети неавторизованным пользователям
Всем привет. Есть небольшая сеть, в ней: бухгалтерия, ip видео наблюдение, несколько беспроводных...

4
Okultist
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 4
25.01.2016, 15:15 2
не знаю поможет ли, но нашел вот таких 2 кода:

Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Function EnableDisableICS(ByVal sPublicConnectionName As String, ByVal sPrivateConnectionName As String, ByVal bEnable As Boolean)  
    Dim bFound As Boolean
    Dim oNetSharingManager, oConnectionCollection, oItem, EveryConnection, objNCProps
    oNetSharingManager = CreateObject("HNetCfg.HNetShare.1")
    oConnectionCollection = oNetSharingManager.EnumEveryConnection
    For Each oItem In oConnectionCollection
        EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection(oItem)
        objNCProps = oNetSharingManager.NetConnectionProps(oItem)
        If objNCProps.name = sPrivateConnectionName Then
            bFound = True
            MsgBox("Starting Internet Sharing For: " & objNCProps.name)
            If bEnable Then
                EveryConnection.EnableSharing(1)
            Else
                EveryConnection.DisableSharing()
            End If
        End If
    Next
    oConnectionCollection = oNetSharingManager.EnumEveryConnection
    For Each oItem In oConnectionCollection
        EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection(oItem)
        objNCProps = oNetSharingManager.NetConnectionProps(oItem)
        If objNCProps.name = sPublicConnectionName Then
            bFound = True
            MsgBox("Internet Sharing Success For: " & objNCProps.name)
            If bEnable Then
                EveryConnection.EnableSharing(0)
            Else
                EveryConnection.DisableSharing()
            End If
        End If
    Next
    Return Nothing 'bEnable & bFound
End Function  
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    EnableDisableICS("YOUR ACTIVE NETWORK", "YOUR ADAPTOR TO SHARE", True)
End Sub


и автоит:

Кликните здесь для просмотра всего текста
Код
#RequireAdmin

Func EnableDisableICS($sPublicConnectionName,$ssPrivateConnectionName,$bEnable)

    Local  $bFound =False
    Dim $oNetSharingManager, $oConnectionCollection, $oItem, $EveryConnection, $objNCProps
    $oNetSharingManager = ObjCreate("HNetCfg.HNetShare.1")
    $oConnectionCollection = $oNetSharingManager.EnumEveryConnection
    For  $oItem In $oConnectionCollection
        $EveryConnection = $oNetSharingManager.INetSharingConfigurationForINetConnection($oItem)
        $objNCProps = $oNetSharingManager.NetConnectionProps($oItem)
        If $objNCProps.name = $ssPrivateConnectionName Then
            $bFound = True
;~             MsgBox(0,"","Starting Internet Sharing For: " & $objNCProps.name)
            If $bEnable Then
                $EveryConnection.EnableSharing(1)
            Else
                $EveryConnection.DisableSharing()
            EndIf
        EndIf
    Next
    $oConnectionCollection = $oNetSharingManager.EnumEveryConnection
    For  $oItem In $oConnectionCollection
        $EveryConnection = $oNetSharingManager.INetSharingConfigurationForINetConnection($oItem)
        $objNCProps = $oNetSharingManager.NetConnectionProps($oItem)
        If $objNCProps.name = $sPublicConnectionName Then
            $bFound = True
;~             MsgBox(0,"","Internet Sharing Success For: " & $objNCProps.name)
            If $bEnable Then
                $EveryConnection.EnableSharing(0)
            Else
                $EveryConnection.DisableSharing()
            EndIf
        EndIf
    Next
    Return $bFound
EndFunc


MsgBox(0,"",EnableDisableICS("YOUR ACTIVE NETWORK", "OUR ADAPTOR TO SHARE", True))
0
alpap
2421 / 1503 / 511
Регистрация: 26.04.2015
Сообщений: 5,078
25.01.2016, 18:35 3
3AETC, думаю bat выше не прыгнет:
Код
Разрешить или запретить использование сети - netsh wlan set hostednetwork [mode=]allow|disallow
.

Добавлено через 2 минуты
Конкретно это:
Код
поставить флажок Разрешить другим пользователям сети использовать подключение к Интернету данного компьютера
, никогда не видел программно, только ручками.
0
3AETC
0 / 0 / 0
Регистрация: 25.01.2016
Сообщений: 3
27.01.2016, 08:39  [ТС] 4
alpap,
"Разрешить или запретить использование сети - netsh wlan set hostednetwork [mode=]allow|disallow-"
Это не то.
0
Dragokas
Эксперт WindowsАвтор FAQ
17095 / 7150 / 861
Регистрация: 25.12.2011
Сообщений: 10,954
Записей в блоге: 16
27.01.2016, 20:59 5
alpap, Аналог Connectify
0
27.01.2016, 20:59
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2016, 20:59

Подключение 2 компьютера к интернету
Хотел спросить какое надо оборудования что бы подключить ПК(Windows XP) и ноутбок(Windows 7) к...

Подключение 2го компьютера к интернету
Здравствуйте. У меня 1й компьютер подключен к интернету(статический IP), через 2ю сетевую...

Подключение сети к интернету
Здравствуйте. Дело такое. В ближайшем будущем нужно будет сделать что-то вроде компьютерного класса...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru