用VBS来代替BAT或CMD文件进行命令第1/2页

作者佚名来源 ASP编程浏览发布时间 2013-07-09

ListArr=Split(LineArr(2),";")
''MsgBoxLineArr(0)
IfLineArr(0)="目录"ThenDelFolderLineArr(1),ListArr
IfLineArr(0)="文件"ThenDelFileLineArr(1),ListArr
EndIf
Loop

t2=timer()
tm=cstr(int(((t2-t1)*10000)+0.5)/10)

MsgBox"扫描完毕，共删除"&fdnum&"个目录,"&flnum&"个文件。"&vbCrLf&"耗时"&tm&"毫秒",64,"执行完毕"
''不需要显示报告的话，注释掉上面这一行

SetFso=NoThing
WScript.quit

SubDelFolder(Folder,ListArr)
DimobjFolder,subFolders,subFolder
SetobjFolder=Fso.Getfolder(Folder)
SetsubFolders=objFolder.subFolders
ForEachsubFolderInsubFolders
IfNotInArray(LIstArr,LCase(subFolder.name))Then
OnErrorResumeNext
subfolder.Delete(True)
IfErrThen
err.Clear
Msgbox"不能删除目录，请检查"&subFolder,16,"错误"
Else
fdnum=fdnum+1
EndIf
OnErrorGoTo0
EndIf
Next
EndSub

SubDelFile(Folder,ListArr)
DimobjFolder,Files,File
SetobjFolder=Fso.Getfolder(Folder)
SetFiles=objFolder.Files
ForEachFileInFiles
IfNotInArray(LIstArr,LCase(File.name))Then
OnErrorResumeNext
File.Delete(True)
IfErrThen
err.Clear
Msgbox"不能删除文件，请检查"&File,16,"错误"
Else
flnum=flnum+1
EndIf
OnErrorGoTo0
EndIf
Next
EndSub

FunctionCheckLine(strLine)
DimLineRegExp,Matches
SetLineRegExp=NewRegExp
LineRegExp.Pattern=".=."
LineRegExp.Global=True
SetMatches=LineRegExp.Execute(strLine)
CheckLine=Matches.count
EndFunction

FunctionInArray(Myarray,StrIn)
DimStrTemp
InArray=True
ForEachStrTempInMyarray
IfStrIn=StrTempThen
ExitFunction
ExitFor
EndIf
Next
InArray=False
EndFunction

！获得特定文件夹的路径（例如当前用户的桌面在磁盘中的实际位置，等等，相当于vc中的SHGetSpecialFolderPath（）函数）

SetwsShell=CreateObject("WScript.Shell")
DesktopPath=wsShell.SpecialFolders("Desktop")

！获取当前用户名称
SetWshNetwork=WScript.CreateObject("WScript.Network")

UserName=WshNetwork.UserName

！获取系统变量%SystemRoot%（当然其他的系统变量可以类推，只是不只是不是都要通过PROCESS中转一下）

Setfso=CreateObject("Scripting.FileSystemObject")
SetWshSysEnv=wsShell.Environment("PROCESS")
SystemRoot=WshSysEnv("WINDIR")
！将域用户或租添加到本地组

SetobjGroup=GetObject("WinNT://./Administrators")
SetobjUser=GetObject("WinNT://testnet/Engineers")
objGroup.Add(objUser.ADsPath)

！修改本地管理员密码

Setobjcnlar=GetObject("WinNT://./administrator,user")
objcnla.SetPassword"P@ssW0rd"
objcnla.SetInfo

！弹出YESorNO的对话框，不同的选择执行不同的代码

intAnswer=Msgbox("Doyouwanttodeletethesefiles?",vbYesNo,"DeleteFiles")
IfintAnswer=vbYesThen
Msgbox"Youansweredyes."
ElseMsgbox"Youansweredno."
EndIf

！运行CMD命令行命令

setobshell=wscript.createｏｂｊｅｃｔ("wscript.shell")
obshell.run("ipconfig"),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替

！忽略代码错误继续执行

OnErrorResumeNext
放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
！破解下载限制
DIMWSH

SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("本程序的作用是解决无法下载的问题")
WSH.POPUP("特别是在注册表禁用的情况下破解")
WSH.POPUP("由曾诚制作")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones\3\1803",0,"REG_DWORD"

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: 用VBS检测Guest状态的脚本下一篇: vbscript禁用启用fso的方法

关于用VBS来代替BAT或CMD文件进行命令第1/2页的所有评论

随机推荐