用vbs实现本地连接禁用/启用脚本代码

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