个人中心
gpt4 book ai didi

用vbs实现本地连接禁用/启用脚本代码

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章用vbs实现本地连接禁用/启用脚本代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

转载至 http://community.csdn.net/Expert/topic/4881/4881882.xml 。

复制代码 代码如下

Const ssfCONTROLS = 3  sConnectionName = "本地连接"  '可改成需要控制的连接名称，如"无线网络连接"等  sEnableVerb = "启用(&A)"  sDisableVerb = "禁用(&B)"   'XP系统中应为 "停用(&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  。

最后此篇关于用vbs实现本地连接禁用/启用脚本代码的文章就讲到这里了,如果你想了解更多关于用vbs实现本地连接禁用/启用脚本代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

24 4 0
文章推荐： Swift中非可选的可选值类型处理方法详解
文章推荐： 右键发送(sendto)，创建快捷方式到自定义的位置
文章推荐： windows关于设置脚本的一些基本方法原则
文章推荐： swift版webview加载网页进度条效果
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com