'this.vbs---disable/enable network interface card
'usage: cscript /nologo this.vbs
sC          '"本地连接"
sEnableVerb = "启用(&A)"   '"启用(&A)"
sDisableVerb = "禁用(&B)"  '"禁用(&B)"
sFolderName = "网络连接" '有的地方是"网络和拨号连接" ,不同机器可能不一样.
Const ssfCONTROLS = 3
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
set oNetConnections = nothing
'open oControlPanel
for each folderitem in oControlPanel.items
    if folderitem.name  = sFolderName then
        set oNetConnections = folderitem.getfolder: exit for
    end if
next
if oNetConnections is nothing then
   'msgbox("sdf")
    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
    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
if oDisableVerb is nothing and oEnableVerb is nothing then
    wscript.quit
end if
if bEnabled then
    oDisableVerb.DoIt
else
    oEnableVerb.DoIt
end if
wscript.sleep 1000

复制后有干扰的乱码.....