vbs如何實現管理網卡腳本

這篇文章將為大家詳細講解有關vbs如何實現管理網卡腳本，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

'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

關于“vbs如何實現管理網卡腳本”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。