VBS脚本 实现"无线网络连接"与"本地连接"的网卡禁用启用完美切换（优化版）
本来是可以只用一个vbs的，但是只用一个vbs的话，每次都要用户选择是启用本地连接还是无线连接，感觉有点麻烦。
故将启用本地连接和启用无线连接分别放在不同vbs脚本中，用时根据需要运行其中一个脚本即可。
******** 以下是"启用 Wireless.vbs"的代码 ********
'-----------------启动无线网络相关服务-----------------
Set vbs=CreateObject("Wscript.Shell")
'***************Wireless Zero Configuration
vbs.Run "sc config WZCSVC start= demand"
vbs.Run "sc start WZCSVC"
'***************Atheros 配置服务
vbs.Run "sc config ACS start= demand"
vbs.Run "sc start ACS"
wscript.sleep 1000
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 = folder: 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
vbs脚本怎么停止
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 1000
******** 以下是"启用 本地连接.vbs"的代码 ********
sEnableConnectionName = "本地连接"
sDisableConnectionName = "无线网络连接"
Const ssfCONTROLS = 3
sEnableVerb = "启用(&A)"
sDisableVerb = "停用(&B)"
set shellApp = createobje
ct("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
for each folderitem in oControlPanel.items
If folderitem.name  = "网络连接" Then
Set oNetConnections = folder: 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
'-----------------停止无线网络相关服务-----------------
Set vbs=CreateObject("Wscript.Shell")
'***************Wireless Zero Configuration
vbs.Run "sc stop WZCSVC"
vbs.Run "sc config WZCSVC start= disabled"
'***************Atheros 配置服务
vbs.Run "sc stop ACS"
vbs.Run "sc config ACS start= disabled"

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。