网卡管理...vb脚本

'dislan.vbs  
  'usage:   cscript   /nologo   dislan.vbs  
   
  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  
  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  
  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  
  else  
  oEnableVerb.DoIt  
  end   if  
   
  wscript.sleep   1000