用vbs实现本地连接禁用/启用脚本代码
用vbs实现本地连接禁用/启用脚本代码
发布时间:2016-12-28 来源:查字典编辑
摘要:转载至http://community.csdn.net/Expert/topic/4881/4881882.xml复制代码代码如下:Con...

转载至http://community.csdn.net/Expert/topic/4881/4881882.xml

复制代码 代码如下:

ConstssfCONTROLS=3

sConnectionName="本地连接"'可改成需要控制的连接名称,如"无线网络连接"等

sEnableVerb="启用(&A)"

sDisableVerb="禁用(&B)"'XP系统中应为"停用(&B)"

setshellApp=createobject("shell.application")

setoControlPanel=shellApp.Namespace(ssfCONTROLS)

setoNetConnections=nothing

foreachfolderiteminoControlPanel.items

iffolderitem.name="网络连接"then

setoNetConnections=folderitem.getfolder:exitfor

endif

next

ifoNetConnectionsisnothingthen

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

wscript.quit

endif

setoLanConnection=nothing

foreachfolderiteminoNetConnections.items

iflcase(folderitem.name)=lcase(sConnectionName)then

setoLanConnection=folderitem:exitfor

endif

next

ifoLanConnectionisnothingthen

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

wscript.quit

endif

bEnabled=true

setoEnableVerb=nothing

setoDisableVerb=nothing

s="Verbs:"&vbcrlf

foreachverbinoLanConnection.verbs

s=s&vbcrlf&verb.name

ifverb.name=sEnableVerbthen

setoEnableVerb=verb

bEnabled=false

endif

ifverb.name=sDisableVerbthen

setoDisableVerb=verb

endif

next

'debuggingdisplaysleftjustincase...

'

'msgboxs':wscript.quit

'msgbox"Enabled:"&bEnabled':wscript.quit

'notsurewhy,butinvokeverbalwaysseemedtowork

'forenablebutnotdisable.

'

'savingareferencetotheappropriateverbobject

'andcallingtheDoItmethodalwaysseemstowork.

'

ifbEnabledthen

'oLanConnection.invokeverbsDisableVerb

oDisableVerb.DoIt

else

'oLanConnection.invokeverbsEnableVerb

oEnableVerb.DoIt

endif

'adjustthesleepdurationbelowasneeded...

'

'ifyoulettheoLanConnectiongooutofscope

'andbedestroyedtoosoon,theactionoftheverb

'maynottake...

'

wscript.sleep400

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新vbs学习
热门vbs学习
脚本专栏子分类