VBS脚本禁用、启用本地连接/指定网卡

youxi01

1. 
   
2. Const ssfCONTROLS = 3
   
3. 
   
4. sConnectionName = "本地连接"  '可改成需要控制的连接名称，如"无线网络连接"等
   
5. 
   
6. sEnableVerb = "启用(&A)"
   
7. sDisableVerb = "禁用(&B)"   'XP系统中应为 "停用(&B)"
   
8. 
   
9. set shellApp = createobject("shell.application")
   
10. set oControlPanel = shellApp.Namespace(ssfCONTROLS)
    
11. 
    
12. set oNetConnections = nothing
    
13. for each folderitem in oControlPanel.items
    
14. if folderitem.name  = "网络连接" then
    
15.    set oNetConnections = folderitem.getfolder: exit for
    
16. end if
    
17. next
    
18. 
    
19. if oNetConnections is nothing then
    
20. msgbox "未找到网络连接文件夹"
    
21. wscript.quit
    
22. end if
    
23. 
    
24. set oLanConnection = nothing
    
25. for each folderitem in oNetConnections.items
    
26. if lcase(folderitem.name)  = lcase(sConnectionName) then
    
27.    set oLanConnection = folderitem: exit for
    
28. end if
    
29. next
    
30. 
    
31. if oLanConnection is nothing then
    
32. msgbox "未找到 '" & sConnectionName & "' item"
    
33. wscript.quit
    
34. end if
    
35. 
    
36. bEnabled = true
    
37. set oEnableVerb = nothing
    
38. set oDisableVerb = nothing
    
39. s = "Verbs: " & vbcrlf
    
40. for each verb in oLanConnection.verbs
    
41. s = s & vbcrlf & verb.name
    
42. if verb.name = sEnableVerb then
    
43.    set oEnableVerb = verb  
    
44.    bEnabled = false
    
45. end if
    
46. if verb.name = sDisableVerb then
    
47.    set oDisableVerb = verb  
    
48. end if
    
49. next
    
50. 
    
51. 'debugging displays left just in case...
    
52. '
    
53. 'msgbox s ': wscript.quit
    
54. 'msgbox "Enabled: " & bEnabled ': wscript.quit
    
55. 
    
56. 'not sure why, but invokeverb always seemed to work
    
57. 'for enable but not disable.  
    
58. '
    
59. 'saving a reference to the appropriate verb object
    
60. 'and calling the DoIt method always seems to work.
    
61. '
    
62. if bEnabled then
    
63. '  oLanConnection.invokeverb sDisableVerb
    
64. oDisableVerb.DoIt
    
65. else
    
66. '  oLanConnection.invokeverb sEnableVerb
    
67. oEnableVerb.DoIt
    
68. end if
    
69. 
    
70. 'adjust the sleep duration below as needed...
    
71. '
    
72. 'if you let the oLanConnection go out of scope
    
73. 'and be destroyed too soon, the action of the verb
    
74. 'may not take...
    
75. '
    
76. wscript.sleep 400
    

复制代码