python禁用本地网卡_无线网络连接与本地连接的网卡禁用启用切换 能不能让无线网卡自动连接信号源呀？...

********以下是"Run-WirelessConnection.vbs"的代码(我只是分割线 不包括我)********

sEnableConnectionName = "无线网络连接"

sDisableConnectionName = "本地连接"

Const ssfCONTROLS = 3

sEnableVerb = "启用(&A)"

sDisableVerb = "停用(&B)"

set shellApp = createobject("shell.application")

set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing

for each folderitem in oControlPanel.items

If folderitem.name   = "网络连接" Then

Set oNetConnections = folderitem.getfolder: exit for

end if

next

if oNetConnections is nothing then

msgbox "未找到网络和拨号连接文件夹"

wscript.quit

end if

'-----------------停用连接--------------------------

set oLanConnection = nothing

for each folderitem in oNetConnections.items

if lcase(folderitem.name)   = lcase(sDisableConnectionName) then

set oLanConnection = folderitem: exit for

end if

next

if oLanConnection is nothing then

msgbox "未找到 '" & sDisableConnectionName & "' item"

Else

Set oEnableVerb = nothing

set oDisableVerb = nothing

For each verb in oLanConnection.verbs

if verb.name = sDisableVerb then

set oDisableVerb = verb

Exit For

end if

next

If not (oDisableVerb is nothing) then

oDisableVerb.DoIt

end if

end If

'---------------------------启用连接---------------------------------

set oLanConnection = nothing

for each folderitem in oNetConnections.items

if lcase(folderitem.name)   = lcase(sEnableConnectionName) then

set oLanConnection = folderitem: exit for

end if

next

if oLanConnection is nothing then

msgbox "未找到 '" & sEnableConnectionName & "' item"

Else

Set oEnableVerb = nothing

set oDisableVerb = nothing

For each verb in oLanConnection.verbs

If verb.name = sEnableVerb then

set oEnableVerb = verb

Exit For

End if

next

If not (oEnableVerb is nothing) then

oEnableVerb.DoIt

end if

end If

wscript.sleep 800

********以下是"Run-LocalConnection.vbs"的代码(我只是分割线 不包括我)********

sEnableConnectionName = "本地连接"

sDisableConnectionName = "无线网络连接"

Const ssfCONTROLS = 3

sEnableVerb = "启用(&A)"

sDisableVerb = "停用(&B)"

set shellApp = createobject("shell.application")

set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing

for each folderitem in oControlPanel.items

If folderitem.name   = "网络连接" Then

Set oNetConnections = folderitem.getfolder: exit for

end if

next

if oNetConnections is nothing then

msgbox "未找到网络和拨号连接文件夹"

wscript.quit

end if

'-----------------停用连接--------------------------

set oLanConnection = nothing

for each folderitem in oNetConnections.items

if lcase(folderitem.name)   = lcase(sDisableConnectionName) then

set oLanConnection = folderitem: exit for

end if

next

if oLanConnection is nothing then

msgbox "未找到 '" & sDisableConnectionName & "' item"

Else

Set oEnableVerb = nothing

set oDisableVerb = nothing

For each verb in oLanConnection.verbs

if verb.name = sDisableVerb then

set oDisableVerb = verb

Exit For

end if

next

If not (oDisableVerb is nothing) then

oDisableVerb.DoIt

end if

end If

'---------------------------启用连接---------------------------------

set oLanConnection = nothing

for each folderitem in oNetConnections.items

if lcase(folderitem.name)   = lcase(sEnableConnectionName) then

set oLanConnection = folderitem: exit for

end if

next

if oLanConnection is nothing then

msgbox "未找到 '" & sEnableConnectionName & "' item"

Else

Set oEnableVerb = nothing

set oDisableVerb = nothing

For each verb in oLanConnection.verbs

If verb.name = sEnableVerb then

set oEnableVerb = verb

Exit For

End if

next

If not (oEnableVerb is nothing) then

oEnableVerb.DoIt

end if

end If

wscript.sleep 800

********以下是"启用 Wireless.bat"的代码(我只是分割线 不包括我)********

@echo off

rem ***************Wireless Zero Configuration

@echo.

sc config WZCSVC start= demand

@echo.

sc start "WZCSVC"

rem ***************Atheros 配置服务

@echo.

sc config ACS start= demand

@echo.

sc start "ACS"

start Run-WirelessConnection.vbs

********以下是"启用 本地连接.bat"的代码(我只是分割线 不包括我)********

@echo off

start Run-LocalConnection.vbs

rem ***************Wireless Zero Configuration

@echo.

sc config WZCSVC start= disabled

@echo.

sc stop "WZCSVC"

rem ***************Atheros 配置服务

@echo.

sc config ACS start= disabled

@echo.

sc stop "ACS"