标题: 在请教：如何用命令启用／关闭本地网络连接？ [打印本页]

---

作者: RocheChild     时间: 2007-11-4 22:19    标题: 在请教：如何用命令启用／关闭本地网络连接？

rt 3x...

---

作者: RocheChild     时间: 2007-11-4 22:50
嘿嘿找到了　还是在netsh里面
我找了半天都没找到．．．

---

作者: hack123456     时间: 2007-11-4 22:52    标题: 保存为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   
    msgbox   "未找到网络和拨号连接文件夹"   
    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   
    msgbox   "未找到   '"   &   sConnectionName   &   "'   item"   
    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   
   
  'debugging   displays   left   just   in   case...   
  '   
  'msgbox   s   ':   wscript.quit   
  'msgbox   "Enabled:   "   &   bEnabled   ':   wscript.quit   
   
  'not   sure   why,   but   invokeverb   always   seemed   to   work     
  'for   enable   but   not   disable.      
  '   
  'saving   a   reference   to   the   appropriate   verb   object     
  'and   calling   the   DoIt   method   always   seems   to   work.   
  '   
  if   bEnabled   then   
  '     oLanConnection.invokeverb   sDisableVerb   
    oDisableVerb.DoIt   
  else   
  '     oLanConnection.invokeverb   sEnableVerb   
    oEnableVerb.DoIt   
  end   if   
   
  'adjust   the   sleep   duration   below   as   needed...   
  '   
  'if   you   let   the   oLanConnection   go   out   of   scope   
  'and   be   destroyed   too   soon,   the   action   of   the   verb   
  'may   not   take...   
  '   
'  wscript.sleep   400   
wscript.sleep   1000
wscript.echo"done."

---

作者: RocheChild     时间: 2007-11-4 23:07
不会vbs...更喜欢perl batch这样的脚本 -,-b

还是谢谢：）