VBS脚本 实现无线网络连接与本地连接的网卡禁用启用完美切换(优化版).docVIP

VBS脚本 实现无线网络连接与本地连接的网卡禁用启用完美切换(优化版) 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 = 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 e