[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[网络工具] 批处理实现停用、启用本地连接

【方案一】netsh命令
适用于Win2003,把Win2003的ifmon.dll拷贝到WinXP以后WinXP也可以用。
批处理自动获取本地连接的名称:http://bbs.bathome.net/thread-1689-1-1.html
  1. @echo off
  2. set /p NetConf=请输入你选择的操作(禁用网卡为N,启用为Y):
  3. if /i "%NetConf%" equ "Y" (
  4.   netsh interface set interface name="本地连接" admin=ENABLED
  5. )else if /i "%NetConf%" equ "N" (
  6.   netsh interface set interface name="本地连接" admin=DISABLED
  7. ) else (
  8.   goto :eof
  9. )
复制代码
【方案二】第三方命令行工具devcon.exe
devcon.exe下载地址:http://bbs.bathome.net/thread-1731-1-1.html
  1. @echo off
  2. set /p NetConf=请输入你选择的操作(禁用网卡为N,启用为Y):
  3. if /i "%NetConf%" equ "Y" (
  4.   set NetConf=ENABLE
  5. )else if /i "%NetConf%" equ "N" (
  6.   set NetConf=DISABLE
  7. ) else (
  8.   goto :eof
  9. )
  10. for /f "tokens=2 delims=&" %%a in ('devcon find pci\*^|findstr /c:"Fast Ethernet"') do (
  11.   devcon %NetConf% *%%a*>NUL
  12. )
复制代码
【方案三】VBS
XP下可以用VBS来实现停用、启用本地连接
  1. Const ssfCONTROLS = 3
  2. sConnectionName = "本地连接"  '可改成需要控制的连接名称,如"无线网络连接"等
  3. sEnableVerb = "启用(&A)"
  4. sDisableVerb = "停用(&B)"    非xp 系统可能 是禁用
  5. set shellApp = createobject("shell.application")
  6. set oControlPanel = shellApp.Namespace(ssfCONTROLS)
  7. set oNetConnections = nothing
  8. for each folderitem in oControlPanel.items
  9. if folderitem.name  = "网络连接" then
  10.    set oNetConnections = folderitem.getfolder: exit for
  11. end if
  12. next
  13. if oNetConnections is nothing then
  14. msgbox "未找到网络连接文件夹"
  15. wscript.quit
  16. end if
  17. set oLanConnection = nothing
  18. for each folderitem in oNetConnections.items
  19. if lcase(folderitem.name)  = lcase(sConnectionName) then
  20.    set oLanConnection = folderitem: exit for
  21. end if
  22. next
  23. if oLanConnection is nothing then
  24. msgbox "未找到 '" & sConnectionName & "' item"
  25. wscript.quit
  26. end if
  27. bEnabled = true
  28. set oEnableVerb = nothing
  29. set oDisableVerb = nothing
  30. s = "Verbs: " & vbcrlf
  31. for each verb in oLanConnection.verbs
  32. s = s & vbcrlf & verb.name
  33. if verb.name = sEnableVerb then
  34.    set oEnableVerb = verb
  35.    bEnabled = false
  36. end if
  37. if verb.name = sDisableVerb then
  38.    set oDisableVerb = verb
  39. end if
  40. next
  41. 'debugging displays left just in case...
  42. '
  43. 'msgbox s ': wscript.quit
  44. 'msgbox "Enabled: " & bEnabled ': wscript.quit
  45. 'not sure why, but invokeverb always seemed to work
  46. 'for enable but not disable.
  47. '
  48. 'saving a reference to the appropriate verb object
  49. 'and calling the DoIt method always seems to work.
  50. '
  51. if bEnabled then
  52. '  oLanConnection.invokeverb sDisableVerb
  53. oDisableVerb.DoIt
  54. else
  55. '  oLanConnection.invokeverb sEnableVerb
  56. oEnableVerb.DoIt
  57. end if
  58. 'adjust the sleep duration below as needed...
  59. '
  60. 'if you let the oLanConnection go out of scope
  61. 'and be destroyed too soon, the action of the verb
  62. 'may not take...
  63. '
  64. wscript.sleep 400
复制代码
1

评分人数

我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

回复 1# Batcher


    方案三启用行的,但无法停用,是什么原因???

TOP

本地被占用 无法停用 怎么处理

TOP

回复 11楼 的帖子

用devcon.exe吧
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

学习了,,顶下。。。

TOP

这个学习了的啦,感谢并支持!

TOP

原帖由 Batcher 于 2009-3-24 20:01 发表
【方案二】
for /f "tokens=2 delims=&" %%a in ('devcon find pci\*^|findstr /c:"Fast Ethernet"') do (
  devcon %NetConf% *%%a*>NUL



  老兄,  你丢了   find /i  参数了,                  


   我试了下,    要    devcon  find /i  pci\*^|findstr /c:"Fast Ethernet"     才有效

[ 本帖最后由 x9tiancmd 于 2010-4-12 19:51 编辑 ]
    ╭╩═╮
╭╯G O ╠ 雁过留声
╰⊙═⊙╯

TOP

原帖由 wps999 于 2010-4-12 17:48 发表
我的是XP系统,试过三种方案,都无效。



  你XP  是最高管理权限  运行的 批处理不?
    ╭╩═╮
╭╯G O ╠ 雁过留声
╰⊙═⊙╯

TOP

回复 5楼 的帖子

说明你试的方法不对。

TOP

我的是XP系统,试过三种方案,都无效。

TOP

太棒了,方案二也很好用

当初我用
netsh interface set interface name="本地连接" admin=ENABLED 后不知是什么原因,弄的"本地连接"无法启用或禁用,只能从设备管理器中操作或用devcon disable *DEV_3065*

[ 本帖最后由 temp 于 2009-12-15 21:17 编辑 ]

TOP

谢谢!非常好用
难怪我测试方案一很久都没成功,原来是因为在XP环境下测试的,缺少ifmon.dll

TOP

先顶上去,下班后好找

曾测试过方案一类似的方法,好像无效

我自制了类似方案二的批,效果不错,但不如楼主的通用(俺是手工找出来的,在别的电脑中不能用)

TOP

返回列表