编程控制网卡启用停用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