txtDisplay.Font.Bold=False　　　　　　　EndIf　　　　EndSub　　　　PrivateSubchkItalic_Click()　　　　　　　IfChkItalic.Value=vbCheckedThen　　　　　'如果选定

Set fso=Wscript.CreateObject("Scripting.FileSystemObject") flrName="D:\Workspace\src" 'dir that you need deal with count=0 'get the count of modified files function Traversal(dir) set flr=fso.getfolder(dir) set fs=flr.files findstr1="[assembly: SecurityTransparent]" 'find string that need to be replaced findstr2=replace(findstr1," ","") 'becasuse there is space char in findstr,so add this findstr2 replaceStr="[assembly: AllowPartiallyTrustedCallers()]" 'destination string in replace for each f in fs if lcase(f.name)="assemblyinfo.cs" then set findf=fso.opentextfile(f) do while findf.atendofstream=false d=f.datelastmodified 'get modified datetime of current file alltext=findf.readall if(InStr(alltext,findstr1) > 0 ) then s=replace(alltext,findstr1, replaceStr) count=count+1 findf.close() 'If no findstr2, delete the following elseif block elseif(InStr(alltext,findstr2) > 0) then s=replace(alltext,findstr2, replaceStr) count=count+1 findf.close() else findf.close() exit do end if set r=fso.opentextfile(f, 2, true) r.write s d2=f.datelastmodified if d2>=d then exit do loop end if next set fs=flr.subfolders for each f in fs Traversal(f.path) next end function Traversal(flrName) 'msgbox ("Done! "& count & " files were modified successfully.") wscript.echo "Done! "& count & " files were modified successfully." 'value popup by "wscript.echo" can be received by .bat easily Wscript.quit count 'this variable "count" in order to get a return value by %ErrorLevel% '调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction'调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction->

获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本 getSQLinfo.vbs 'scripttogetSQLDATA/LOGSpaceUsed,Spaceunused, andSpaceFree 'Author:FelipeFerreira,DanielMagrini 'Date:05/07/07 'Version2,0 '@@TOCHANGE:::SERVERNAME\Instance,domain?passwordANDDATABSE! '____________________________________________________________________________ ConstForReading=1,ForWriting=2,ForAppending=8 SetoFSO=CreateObject("Scripting.FilesyStemObject") outputfile="CheckSqlDB_Size.txt" Setofile=oFso.OpenTextFile(outputfile,8,True) oFile.Writeline"######################################################" oFile.Writeline"Thiscommandexecutedin"&Date&"at"&Time&VbCrLf '____________________________________________________________________________ CheckSQLData CheckSQLLOG '##############GETSQLDATASPACEUSED,SPACETOTAL,SPACEFREE 'FunctioncheckSQL(strServer,strDB)inthefuturemakeitafunction.... SubCheckSQLDATA ConstadOpenDynamic=1,adLockOptimistic=3 DimstrQuery DimobjConnection,objRecordSet DimstrQueryResult,strQueryResult2 DimUsedDataSpace,TotalDataSpace,FreeDataSpace SetobjConnection=CreateObject("ADODB.Connection") SetobjRecordSet=CreateObject("ADODB.Recordset") objConnection.Open_ "Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;" strQuery="DBCCshowfilestats" objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic ifobjRecordSet.eofThen 'nothingreturned wscript.echo"ERROR!!!" Else 'NOTE:TogetthevalueinMB64/1024=0.0625 DoUntilobjRecordSet.eof strQueryResult=objRecordSet.Fields("UsedExtents") UsedDataSpace=strQueryResult*0.0625 strQueryResult2=objRecordSet.Fields("TotalExtents") TotalDataSpace=strQueryResult2*0.0625 FreeDataSpace=TotalDataSpace-UsedDataSpace 'CleanData UsedDataSpace=Left(UsedDataSpace,4) FreeDataSpace=Left(FreeDataSpace,4) TotalDataSpace=Left(TotalDataSpace,4) 'PrintResultonScreen Wscript.echo"UsedSpace(MB)="&UsedDataSpace Wscript.Echo"FreeSpace(MB)="&FreeDataSpace Wscript.Echo"TotalSpace(MB)="&TotalDataSpace 'WriteonFile ofile.WriteLine"UsedDATASpace(MB)="&UsedDataSpace ofile.WriteLine"FreeDATASpace(MB)="&FreeDataSpace ofile.WriteLine"TotalDATASpace(MB)="&TotalDataSpace objRecordSet.MoveNext loop endif objRecordSet.Close objConnection.Close setobjConnection=nothing setobjRecordSet=nothing endsub SubCheckSQLLOG ConstadOpenDynamic=1,adLockOptimistic=3 DimstrQuery DimobjConnection,objRecordSet DimstrQueryResult,strQueryResult2 DimUsedLogSpace,TotalLogSpace,FreeLogSpace SetobjConnection=CreateObject("ADODB.Connection") SetobjRecordSet=CreateObject("ADODB.Recordset") objConnection.Open_ "Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;" strQuery="DBCCSQLPERF(LOGSPACE)" objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic ifobjRecordSet.eofThen 'nothingreturned wscript.echo"ERROR!!!" Else DoUntilobjRecordSet.eof IfobjRecordSet.Fields("DatabaseName")="master"Then strQueryResult=objRecordSet.Fields("LogSize(MB)") strQueryResult2=objRecordSet.Fields("LogSpaceUSed(%)") UsedLogSpace=(strQueryResult*strQueryResult2)/100 TotalLogSpace=strQueryResult FreeLogSpace=TotalLogSpace-UsedLogSpace 'CleanData UsedLogSpace=Left(UsedLogSpace,4) FreeLogSpace=Left(FreeLogSpace,4) TotalLogSpace=Left(TotalLogSpace,4) 'PrintResultonScreen Wscript.echo"UsedSpace(MB)="&UsedLogSpace Wscript.Echo"FreeSpace(MB)="&FreeLogSpace Wscript.Echo"TotalSpace(MB)="&TotalLogSpace 'WriteonFile oFile.WriteLine"UsedLOGSpace(MB)="&UsedLogSpace oFile.WriteLine"FreeLOGSpace(MB)="&FreeLogSpace oFile.WriteLine"TotalLOGSpace(MB)="&TotalLogSpace oFile.close ExitDo EndIf objRecordSet.MoveNext loop endif objRecordSet.Close objConnection.Close setobjConnection=nothing setobjRecordSet=nothing endsub WSCript.Quit

->PublicSubFillList(ListControlAsListBox,ParamArrayItems())DimiAsVariantWithListControl.ClearForEachiInItems.AddItemiNextEndWithEndSubPrivateSubCommand1_Click()FillListList1,"TiffanyT","MikeS","RochesterNY"EndSub->->

i.terminate()若驱动器中无CD盘则所有按钮都处于无效状态

wscript.exe把这句识别成：调用一个叫start的函数，函数参数是wscript这个变量，然后用这个函数的结果来减去ewm->

OptionExplicit dimServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnum=0 donum=0 totalsize=0 WorkPath="F:\|D:\|C:\Download"'这里设置需要扫描的路径(绝对路径),使用“|”来分隔多个路径 serverpath="\\server\log$"'在这里设置服务器上的共享文件夹(可写共享),用来存放删除日志 onlyone="是"'设置是否只扫描一次，如果想每次运行都扫描，请改为“否”。