编程控制网卡启用停用vbs版

'编程控制网卡启用停用vbs版

'作者Attilax 艾龙， EMAIL:1466519819@qq.com
来源：attilax的专栏

地址：http://blog.csdn.net/attilax

'vbs code:
Const ssfCONTROLS = 3
sConnectionName = "mecr" '可改成需要控制的连接名称，如"无线网络连接"等
sEnableVerb = "启用(&A)"
sDisableVerb = "停用(&B)" '非xp 系统可能是禁用
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
wscript.echo("c300")
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next

''show lan conn
wscript.echo(oLanConnection)

if oLanConnection is nothing then
msgbox "未找到 '" & sConnectionName & "' item"
wscript.quit
end if

bEnabled = true 'true=-1 false=0 ati ..meatn curstat
set oEnableVerb = nothing
set oDisableVerb = nothing
s = "Verbs: " & vbcrlf
' ati curstat is enable..
'---停用(&B)---查看可用的无线连接(&V)---状态(&U)---修复(&P)
'---桥接(&G)---创建快捷方式(&S)---删除(&D)---重命名(&M)---属性(&R)
for each verb in oLanConnection.verbs
s = s & vbcrlf & verb.name ' ati if cur is enabnle then disable..else enable..
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false 'ati get cur stat is disable..
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
wscript.echo("---"&verb.name)
next

wscript.echo("crustat bEnabled is::: ")
wscript.echo(bEnabled) ''
'wscript.quit ()

'debugging displays left just in case...
'
'msgbox s ': wscript.quit
'msgbox "Enabled: " & bEnabled ': wscript.quit
'not sure why, but invokeverb always seemed to work
'for enable but not disable.
'
'saving a reference to the appropriate verb object
'and calling the DoIt method always seems to work.
'
if bEnabled then 'ati if cur is enbale.. then dis
' oLanConnection.invokeverb sDisableVerb
oDisableVerb.DoIt
else
' oLanConnection.invokeverb sEnableVerb
oEnableVerb.DoIt
end if
'adjust the sleep duration below as needed...
'
'if you let the oLanConnection go out of scope
'and be destroyed too soon, the action of the verb
'may not take...
'
wscript.sleep 400

编程控制网卡启用停用vbs版相关推荐

distiller的另一个实例正忙于启动_PLC编程实例丨一步一步教你设计PLC控制电机转停反控制系统~...
根据下图的三相交流电动机正反转控制的主电路,设计一个PLC控制电机正停反的控制系统.控制要求如下: (1)正常情况下,按启动按钮SB1,电机正转,按下反转启动按钮SB2,电机反转. (2)电机启动后, ...
OpenGL深入探索——《OpenGL编程指南（原书第8版）》——计算着色器
转载自 <OpenGL编程指南(原书第8版)>--计算着色器概述由于图形处理器每秒能够进行数以亿计次的计算,它已成为一种性能十分惊人的器件.过去,这种处理器主要被设计用于承担实时图形渲 ...
用四位led数码管作显示器的篮球比赛24秒计时器求c语言代码,单片机编程控制LED七段数码管作显示的篮球赛计时计分系统...
本次设计用由AT89C51编程控制LED七段数码管作显示的球赛计时计分系统.系统应具有赛程定时设置,赛程时间暂停,及时刷新甲.乙双方的成绩以及赛后成绩暂存等功能. 内容包括:显示.键盘.时钟等内容设计 ...
《OpenGL编程指南（原书第8版）》——计算着色器
原文 http://www.csdn.net/article/2014-11-21/2822754 主题 OpenGL 数学概述由于图形处理器每秒能够进行数以亿计次的计算,它已成为一种性能十分惊 ...
使用 Python 和可视化编程控制树莓派机械臂myCobot
myCobot 280 Pi 是一款 6 自由度多功能桌面机械臂.它由大象机器人研发,使用 Raspberry Pi 作为主控制器.该机器人结构紧凑,运行稳定,非常适合新手入门.它还可以使用多种语言进 ...
windows下编程控制摄像头的详细介绍
这段时间闲来无事,看了看MSDN的文档,自己翻译了一下.一是为了学习,二是对空闲时间的打发.所以也希望大家在拍砖的同时,尊重我的劳动,如要转贴请注明转至blog.csdn.net/suntaoznz. ...
Cg教程_可编程实时图形权威指南(扫描清晰版)+部分unity shader 知识
Cg教程_可编程实时图形权威指南(扫描清晰版) .pdf (34.5 MB, 下载次数: 239) Shader Model(在 3D 图形领域常被简称SM)就是"优化渲染引擎模式&qu ...
SwiftUI UISearchbar 如何编程控制cancle显示
实战需求 SwiftUI UISearchbar 如何编程控制cancle显示实战代码 searchController.isActive = false 推荐基础文章推荐 <SwiftUI ...
IIS日志清理CMD版,VBS版,JS版,WSH版
'IIS日志清理之IIS日志生成系统(CreateIISLog.vbs) '创建文件夹 Function CreateFolder(Folder) On Error Resume Next ...
《C#多线程编程实战（原书第2版）》——第3章使用线程池 3.1 简介
本节书摘来自华章出版社<C#多线程编程实战(原书第2版)>一书中的第3章,第3.1节,作者(美)易格恩·阿格佛温(Eugene Agafonov),黄博文黄辉兰译,更多章节内容可以访问 ...

编程控制网卡启用停用vbs版

编程控制网卡启用停用vbs版相关推荐

最新文章

热门文章