VPF::Не могу заставить работать один VBScript

SLeN

Дата 16.3.2007, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 137
Регистрация: 8.12.2006
Где: SPB

Репутация: нет
Всего: 4

Собственно сам скрипт лежит тут

Сам я не пишу на VBS да и VB тоже, и не в силах заставить его коректно работать по русским винь ХР. =(
А в скрипте этом очень нуждаюсь.

--------------------

Православные не проходите мимо! Люди нуждаются в вас

bom

Дата 16.3.2007, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6

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

Код


'LAN Connection manager.vbs
'--------------------------
Dim objCP, objEnable, objDisable, colNetwork
Dim clsConn, clsLANConn, clsVerb
Dim strNetConn, strConn, strEnable, strDisable
Dim bEnabled, bDisabled
Set objShell = CreateObject("Shell.Application")

strNetConn = "Сетевые подключения"
strConn = "Подключение по локальной сети"

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

Set objCP = objShell.Namespace(3) 'Control Panel

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
MsgBox "Network folder not found"
WScript.Quit
End If

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

If clsLANConn Is Nothing Then
MsgBox "Network Connection not found"
WScript.Quit
End If

bEnabled = True
Set objEnable = Nothing
Set objDisable = Nothing
For Each clsVerb In clsLANConn.verbs
If clsVerb.Name = strEnable Then
'MsgBox "OK"
Set objEnable = clsVerb
bEnabled = False
End If
If clsVerb.Name = strDisable Then
Set objDisable = clsVerb
End If
Next

If bEnabled Then
objDisable.DoIt
msgbox "Отключение..."
Else
objEnable.DoIt
msgbox "Подключение..."
End If
WScript.Sleep 1000

SLeN

Дата 17.3.2007, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 137
Регистрация: 8.12.2006
Где: SPB

Репутация: нет
Всего: 4

bom, Спасибо

--------------------

Православные не проходите мимо! Люди нуждаются в вас

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »