zoukankan      html  css  js  c++  java
  • 编程控制网卡启用停用vbs版

    '编程控制网卡启用停用vbs版


    '作者Attilax 艾龙,  EMAIL:1466519819@qq.com 
    来源:attilax的专栏

    地址:http://blog.csdn.net/attilax


    'vbs code:
    Const ssfCONTROLS = 3 
    sConnectionName = "mecr" '可改成需要控制的连接名称,如"无线网络连接"等 
    sEnableVerb = "启用(&A)" 
    sDisableVerb = "停用(&B)" '非xp 系统可能 是禁用
    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 
    wscript.echo("c300")
    set oLanConnection = nothing 
    for each folderitem in oNetConnections.items 
    if lcase(folderitem.name) = lcase(sConnectionName) then 
    set oLanConnection = folderitem: exit for 
    end if 
    next 


    ''show lan conn 
    wscript.echo(oLanConnection)


    if oLanConnection is nothing then 
    msgbox "未找到 '" & sConnectionName & "' item" 
    wscript.quit 
    end if 




    bEnabled = true     'true=-1   false=0   ati ..meatn  curstat
    set oEnableVerb = nothing 
    set oDisableVerb = nothing 
    s = "Verbs: " & vbcrlf
    ' ati curstat is enable.. 
    '---停用(&B)---查看可用的无线连接(&V)---状态(&U)---修复(&P)
    '---桥接(&G)---创建快捷方式(&S)---删除(&D)---重命名(&M)---属性(&R)
    for each verb in oLanConnection.verbs 
    s = s & vbcrlf & verb.name   ' ati if cur is enabnle then disable..else enable..
    if verb.name = sEnableVerb then 
    set oEnableVerb = verb 
    bEnabled = false    'ati get cur stat is disable..
    end if 
    if verb.name = sDisableVerb then 
    set oDisableVerb = verb 
    end if 
    wscript.echo("---"&verb.name)
    next 
     
    wscript.echo("crustat bEnabled is::: ")
    wscript.echo(bEnabled) '' 
    'wscript.quit ()
     


    '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 'ati if cur is enbale.. then dis
    ' 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
  • 相关阅读:
    基于风险集成 Risk-Based
    基于消息(事件)集成 Message-Based/Event-Based
    如何保证系统测试的完备性?
    1.1 功能测试(功能)
    问:给你一个网站,你如何测试?
    问:你在测试中发现了一个bug,但是开发经理认为这不是一个bug,你应该怎样解决?
    4.如何重新加载 Spring Boot 上的更改,而无需重新启动服务器?
    什么是 JavaConfig?
    Spring Boot 有哪些优点?
    .Redis中的常用命令哪些?
  • 原文地址:https://www.cnblogs.com/attilax/p/15199459.html
Copyright © 2011-2022 走看看