用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

(0)

相关推荐

  • 使用VBS禁用、启动USB存储设备

    USB存储设备控制 By Yu2n XP系统测试通过,需要管理员权限. 在下次插拔设备时生效,无须重启. 'USB_Stock_Block.vbs '=========================================================================================== CheckOS ' 检查操作系统版本 CheckMeState ' 检查程序运行状态 main ' 执行主程序 '==========================

  • 用vbs实现禁用服务

    问: 您好,脚本专家!如何禁用服务? -- DS 答: 您好,DS.您知道吗,脚本专家似乎无意中发现了一个好主意.在上期专栏中,我们向大家介绍了如何禁用 LMHosts 文件.今天,我们将向大家介绍如何禁用服务.如果我们这样继续下去的话,不久,我们便可将如何禁用计算机上的一切介绍给大家.请想象一下:不再有网络问题,不再有客户服务中心呼叫,不再有用户覆盖了不应覆盖的文件.我们所要做的就是禁用一切,从而所有这些问题都将消失!这可以是我们通往幸福时光的入场券. 不可否认,禁用计算机上的一切可能导致贵组

  • vbscript禁用 启用fso的方法

    scrrun.dll scrrun - scrrun.dll - DLL文件信息 DLL 文件: scrrun 或者 scrrun.dll DLL 名称: Microsoft Script Runtime 描述:  scrrun.dll用于阅读和编写脚本和文本文件. 属于: Microsoft Script Runtime  系统 DLL文件: 是 常见错误: File Not Found, Missing File, Exception Errors PS:个人觉得站长看这个很好,禁用你的FS

  • 使用 iisext.vbs 禁用 Web 服务扩展的方法

    应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 可以使用命令行脚本 iisext.vbs(存储于 systemroot\system32 中),通过禁用所有具有特定 Web 服务扩展 ID 的文件来禁用 Web 服务扩展.该命令可在运行带有 IIS 6.0 的 Windows Server 2003 家族的成员的本地或远程计算机上执行. Iisext.vbs 执行可用于 IIS 管理器的

  • VB实现禁用任务管理器的方法

    在Windows XP下禁用Ctrl-Alt-Delete的方法比较简单,因为Ctrl-Alt-Delete组合键的功能就是调用任务管理器,直接把任务管理器给禁用了,Ctrl-Alt-Delete的功能也就没有了,相当于也给禁用了.这个方法的简单的实现是用二进制 stream 形式先打开 C:\windows\system32\taskmgr.exe任务管理器程序,使后续无法手工正常打开任务管理器.代码如下: 复制代码 代码如下: Open "C:\WINDOWS\system32\taskmg

  • bat生成vbs通过注册表禁用或启用USB端口的代码

    当然,你也可以完全使用BAT操作注册表来完成修改注册表的键值的目的,具体方式留以后完善,如果你有好的想法,记得告诉我哦! USB_Disable.bat文件代码: 复制代码 代码如下: @echo off echo On Error Resume next>USB_Disable.vbs echo Dim WshShell>>USB_Disable.vbs echo Set WshShell = WScript.CreateObject("WScript.Shell"

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

    转载至 http://community.csdn.net/Expert/topic/4881/4881882.xml 复制代码 代码如下: Const ssfCONTROLS = 3 sConnectionName = "本地连接"  '可改成需要控制的连接名称,如"无线网络连接"等 sEnableVerb = "启用(&A)"  sDisableVerb = "禁用(&B)"   'XP系统中应为 &quo

  • 本地连接禁用/启用批处理脚本

    复制代码 代码如下: Const ssfCONTROLS = 3 sConnectionName = "本地连接"  '可改成需要控制的连接名称,如"无线网络连接"等 sEnableVerb = "启用(&A)"  sDisableVerb = "禁用(&B)"   'XP系统中应为 "停用(&B)" set shellApp = createobject("shell.a

  • 用vbs实现本地添加用户的脚本

    Dim WshShell set WshShell = CreateObject("wscript.Shell") WshShell.Run "cmd /k" for i = 1 to 3 WScript.Sleep 500 WshShell.SendKeys "net user admin" & i & " abcd@123 /add" WshShell.SendKeys "{ENTER}"

  • Vbs COM之打开/保存文件脚本代码

    您先把如下的代码复制,然后保存为FileSave.vbs,双击打开,您看到了什么呢? 复制代码 代码如下: Set objDialog = CreateObject("SAFRCFileDlg.FileSave") Set fso = CreateObject("Scripting.FileSystemObject") objDialog.FileName = "test" objDialog.FileType = ".txt"

  • VBS监视网络连接与断开的代码

    监视网络连接: 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")Set colMonitoredEvents = objWMIService.ExecNotificationQuery _    ("Select * from MSNdis_StatusMediaCon

  • 开机自动启用本地连接,用cmd禁用启用本地连接

    开机自动启用本地连接,用cmd禁用启用本地连接,任务计划程序服务没有运行 一次在服务器上操作时不小心按了本地连接属性里的禁用按钮,刚好碰到周末机房不上班不能及时维护,服务器上一百多个网站两天打不开.服务器上有管理软件需要经常添加ip地址后注册,经常用到本地连接属性很容易按错按钮.如果能重启系统自动启用网络链接就好了. 实现方法 1.新建文档 netsh interface set interface name="本地连接" admin=ENABLED 保存成net.bat 2.开始-&

  • win2003 防止网卡本地连接被禁用的设置方法

    开始运行gpedit.msc , 本地计算机策略.用户配置.管理模板.网络.网络连接: 复制代码 代码如下: 启用为管理员启用windows2000网络连接设置, 禁用启用/禁用LAN连接的能力. 让网卡禁用按钮变灰.reg 复制代码 代码如下: Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\GPExtensions\{35

  • 远程或本地获取系统信息的脚本RGIS.vbs

    ******************************************************************************* RGIS v1.03 Remote Get Infomation Script, by zzzEVAzzz Welcome to visite www.isgrey.com & www.h4h4.com Usage: cscript rgis.vbs [/r targetIP username password] [/o filename

  • 各有各招,让“本地连接”恢复正常状态

    无论是上Internet还是联局域网,我们都需要从"本地连接"下手,对网络参数进行合适的配置.不过在实际上网过程中,我们有时会发现"本地连接"可能发生各种莫名其妙的故障,这些故障往往导致我们无法对网络参数进行有针对性地设置,从而影响我们的上网效率.为了有效提高上网效率,我们必须掌握一些与"本地连接"相关故障的排除方法;这不,本文下面就列出了"本地连接"比较容易发生的几则故障现象,并对每一故障现象提出了不同的应对办法,相信能给大

  • 找回消失的本地连接的图文步骤

    本地连接丢失的解决方法 每次需要修改服务器或工作站的上网参数时,都先要打开网络和拨号连接窗口,再打开本地连接的属性设置窗口:如果有朝一日,你无法找到本地连接图标的话,那么你就无法进入网络参数设置窗口,这样的话你就无法对服务器或工作站的上网参数进行随心所欲地修改.那么一旦你遇到本地连接图标无法找到的现象时,你该如何快速地来应对呢?相信本文下面的招法,可以帮助你快速找回消失的本地连接图标! 检查网卡状态好坏 如果网卡工作状态不正常或者发生了损坏,那么你打开网络和拨号连接窗口时,你可能就会看不到"本地

随机推荐