网卡vbs 管理网卡vbs脚本

时间:2021-03-17 人气:2

想了解管理网卡vbs脚本的相关内容吗，在本文为您仔细讲解网卡vbs的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：管理网卡,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

加载全部内容