Management network card vbs script


  ‘usage:   cscript   /nologo   dislan.vbs         
  Const   ssfCONTROLS   =   3         
Sconnectionname = local connection
Senableverb = & enable
Sdisableverb = & disable

  set   shellApp   =   createobject(“shell.application”)   
  set   oControlPanel   =   shellApp.Namespace(ssfCONTROLS)   

  set   oNetConnections   =   nothing   
  for   each   folderitem   in   oControlPanel.items   
 if “Network and dial up connection” then
  set   oNetConnections   =   folderitem.getfolder:   exit   for   
  end   if   

  if   oNetConnections   is   nothing   then   
  end   if   

  set   oLanConnection   =   nothing   
  for   each   folderitem   in   oNetConnections.items   
  if   lcase(     =   lcase(sConnectionName)   then   
  set   oLanConnection   =   folderitem:   exit   for   
  end   if   

  if   oLanConnection   is   nothing   then   
  end   if   

  bEnabled   =   true   
  set   oEnableVerb   =   nothing   
  set   oDisableVerb   =   nothing   
  s   =   “Verbs:   ”   &   vbcrlf   
  for   each   verb   in   oLanConnection.verbs   
  s   =   s   &   vbcrlf   &   
  if   =   sEnableVerb   then     
  set   oEnableVerb   =   verb       
  bEnabled   =   false   
  end   if   
  if   =   sDisableVerb   then     
  set   oDisableVerb   =   verb       
  end   if   

  if   bEnabled   then   
  end   if   

  wscript.sleep   1000   

Recommended Today

Layui event monitoring (forms and data tables)

1、 Event monitoring of forms Let’s first introduce the usage of several attributes 1. Lay filter event filter Equivalent to selector, layui’s exclusive selector 2. Lay verify properties The attribute values can be: required, required, phone number, email address, URL, number, date, identity, ID card. This is equivalent to regular judgment. Of course, you can […]