用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页的所有评论
