管理网卡vbs脚本

1. 'dislan.vbs     
2.   'usage:   cscript   /nologo   dislan.vbs          
3.   Const   ssfCONTROLS   =   3          
4.   sConnectionName   =   "本地连接"     
5.   sEnableVerb   =   "启用(&A)"     
6.   sDisableVerb   =   "禁用(&B)"     
7.  
8.   set   shellApp   =   createobject("shell.application")     
9.   set   oControlPanel   =   shellApp.Namespace(ssfCONTROLS)     
10.  
11.   set   oNetConnections   =   nothing     
12.   for   each   folderitem   in   oControlPanel.items     
13.  if   folderitem.name     =   "网络和拨号连接"   then     
14.   set   oNetConnections   =   folderitem.getfolder:   exit   for     
15.   end   if     
16.   next     
17.  
18.   if   oNetConnections   is   nothing   then     
19.   wscript.quit     
20.   end   if     
21.  
22.   set   oLanConnection   =   nothing     
23.   for   each   folderitem   in   oNetConnections.items     
24.   if   lcase(folderitem.name)     =   lcase(sConnectionName)   then     
25.   set   oLanConnection   =   folderitem:   exit   for     
26.   end   if     
27.   next     
28.  
29.   if   oLanConnection   is   nothing   then     
30.   wscript.quit     
31.   end   if     
32.  
33.   bEnabled   =   true     
34.   set   oEnableVerb   =   nothing     
35.   set   oDisableVerb   =   nothing     
36.   s   =   "Verbs:   "   &   vbcrlf     
37.   for   each   verb   in   oLanConnection.verbs     
38.   s   =   s   &   vbcrlf   &   verb.name     
39.   if   verb.name   =   sEnableVerb   then       
40.   set   oEnableVerb   =   verb         
41.   bEnabled   =   false     
42.   end   if     
43.   if   verb.name   =   sDisableVerb   then       
44.   set   oDisableVerb   =   verb         
45.   end   if     
46.   next     
47.  
48.       
49.   if   bEnabled   then     
50.   oDisableVerb.DoIt     
51.   else     
52.   oEnableVerb.DoIt     
53.   end   if     
54.  
55.   wscript.sleep   1000