不是说了嘛 不要挂断 挂断 只能用于 拨号连接的 我要的效果是防火墙的那种效果作者: 程序开发推广 时间: 2010-4-10 08:40
提示: 作者被禁止或删除 内容自动屏蔽 作者: 老发 时间: 2010-4-10 10:13
Const ssfCONTROLS = 3
'网络适配器的名字，默认应该叫本地连接
sConnectionName = "本地连接"
'下面两行都要根据实际情况，看一下图形界面下的是停用还是禁用，不同的系统不太一样
'&后面加的是对应动作的代表字母
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 "Couldn't find 'Network Connections' folder"
wscript.quit
end if
set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next
if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if
bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
s = "Verbs: " & vbcrlf
for each verb in oLanConnection.verbs
s = s & vbcrlf & verb.name
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
if bEnabled then
oDisableVerb.DoIt
end if
wscript.sleep 5000
bEnabled = true
for each verb in oLanConnection.verbs
s = s & vbcrlf & verb.name
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next
oEnableVerb.DoIt