中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 在请教：如何用命令启用／关闭本地网络连接？

RocheChild
初级用户

积分 110
发帖 44
注册 2007-11-1
状态离线

『楼主』: 在请教：如何用命令启用／关闭本地网络连接？

rt 3x...

2007-11-4 22:19

RocheChild
初级用户

积分 110
发帖 44
注册 2007-11-1
状态离线

『第 2 楼』:

嘿嘿找到了　还是在netsh里面
我找了半天都没找到．．．

2007-11-4 22:50

hack123456
新手上路

积分 10
发帖 5
注册 2007-9-9
状态离线

『第 3 楼』: 保存为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."

2007-11-4 22:52

RocheChild
初级用户

积分 110
发帖 44
注册 2007-11-1
状态离线

『第 4 楼』:

不会vbs...更喜欢perl batch这样的脚本 -,-b

还是谢谢：）

2007-11-4 23:07

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: