请问可以用批处理禁用和启用网络连接吗?
5个回答
2013-09-25
展开全部
netsh interface set interface 本地连接(你的本地连接的名称)disable ----------禁用本地连接netsh interface set interface 本地连接(你的本地连接的名称)enable -----------启用本地连接 另存为bat或cmd文件就可以了
上海国想
2024-12-02 广告
2024-12-02 广告
上海国想科技发展有限公司是一家专注于勒索病毒数据修复的科技企业。我们的工程师一直从事勒索病毒数据解密、数据修复和信息安全防御等工作;秉承着产品即服务的理念,专注在企业数据安全,勒索病毒紧急救援,数据库修复等领域深耕。网络及数据安全知识分享频...
点击进入详情页
本回答由上海国想提供
2013-09-25
展开全部
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 "未找到网络和拨号连接文件夹"
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 "未找到 '" & 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
'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
' 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
wscript.sleep 1000
wscript.echo"done."
格式保存为.vbs
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 "未找到网络和拨号连接文件夹"
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 "未找到 '" & 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
'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
' 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
wscript.sleep 1000
wscript.echo"done."
格式保存为.vbs
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-25
展开全部
操所步骤:
我的电脑右键-管理-设备管理器-网络适配器-找到你的网卡双击-有个电源管理你把对号去掉应该就可以了
我的电脑右键-管理-设备管理器-网络适配器-找到你的网卡双击-有个电源管理你把对号去掉应该就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-25
展开全部
ipconfig /all断开所有网络连接 ipconfig /new寻找网络并连接网络
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-25
展开全部
直接在BIOS里面设置禁用就行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询