'dislan.vbs
'usage: cscript /nologo dislan.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
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 bEnabled then
oDisableVerb.DoIt
else
oEnableVerb.DoIt
end if

wscript.sleep 1000

用vbs写的短小精悍的字典生成器
使用方法'use:cscriptthis.vbsdic.txt把下面的代码保存为this.vbsa=Array(1,2,3,4,"a")Functionjs1(n)fori=1tonf=f&"f"&i&"&"s=s&"ForEachf"&i&"Ina:wscript.echo"&fs=Mid(S,1,Len(S)-1)&":"Nextjs1=sE

把任意文件转成vbs文件的file2vbs的vbs代码
Tr4c3:为了方便在dos下使用，我把inputbox改成了args。'ProgramByxiaolu'name:file2vbs.vbsOnerrorresumenextSetArgs=Wscript.ArgumentsIfArgs.length2ThenWscript.Echo"Usage:"&Wscript.ScriptName&

用vbs实现获取电脑硬件信息的脚本_最新版第1/4页
'*******************************************************************************************'Version:3.1'调整错误处理方法，错误信息输出到LogFile文件，可以查看扫描失败原因'