->strA=StrConv(Buffer,vbUnicode)-> 　　这行代码把Byte数组的二进制数据转换成一个合法的VisualBasic字符串找到对象后，WMI CIM Studio能列出其属性和方法，然后到MSDN里找具体的帮助 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% Windows98系统的许多软件中都包含一个windows风格的about窗口，它向用户反映了当前系统的一些基本信息，其中显示有关windows及其应用软件的版本、版权和系统的工作状态等信息

'==========================================================================' ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1 ' ' NAME: add2run03.vbs ' ' AUTHOR: shile ' DATE : 2008-12-13 ' ' COMMENT: vbs实现添加程序到自启动项 ' '==========================================================================On Error Resume Next '出错继续执行下个命令 dim ws Set ws=CreateObject("Wscript.Shell") Dim runKey,runPath runKey=InputBox("输入自启动项键值名称","请输入") runPath=InputBox("输入相应的程序路径","请输入") Dim temp,ret temp=ws.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey) 'MsgBox temp If temp <> Empty Then ret=MsgBox( "键值"&runKey"已经存在,其值为"&temp",是否替换为新的值"&runPath, vbOKCancel, "提示!") If ret=vbOK Then ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath MsgBox "修改"&runKey"值为"&runPath"成功",vbYes,"恭喜!" End If Else ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"&runKey,runPath MsgBox "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!" End If 声明：DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong使用：NewName="HelloWorld"SetComputerNameNewName->

i=0set wshshell=createobject("wscript.shell")Set objWord=CreateObject("Word.Application") Set colTasks=objWord.Tasks do while i<30For Each objTask in colTasks if left(objTask.Name,1)="与" thenwshshell.appactivate objTask.NameWshShell.SendKeys "{enter}"wshshell.sendkeys "^v"WshShell.SendKeys iwscript.sleep 600WshShell.SendKeys "%s"i=i+1end if nextloop 下面是一个典型的例子，检测字符串中是否包含一个元音字母：1、普通的方法：IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then'itisavowelEndIf2、更加简练的方法：IfInStr("AaEeIiOoUu",char)Then'itisavowelEndIf同样，通过单词中没有的字符作为分界符，使用InStr来检查变量的内容

Option Explicit '这个脚本只用来分割文本文件，脚本需要3个参数 '参数列表 '文件名 参数1 参数2 '梦想工作室 '示例 参数1 参数2 参数意义 ' S 5 等分为5个文件 ' E 1024 按照1024的大小分割文件 ' F 1024 取最前面的1024字节存为一个文件 ' L 1024 取最后面的1024字节存为一个文件 Dim tf,sf,fname,souFile,desFolder ,sOption , sNum , FSO , fs, sfs If WScript.Arguments.Count < 3 Then WScript.Echo "参数有误!" WScript.Quit Else souFile=WScript.Arguments(0) sOption=WScript.Arguments(1) sNum=WScript.Arguments(2) End If Set FSO=CreateObject("Scripting.FileSystemObject") Set tf=FSO.GetFile(souFile) fs=tf.Size Set tf=fso.OpenTextFile(souFile, 1) Dim x Select Case sOption Case "S" sfs=Int ( fs / sNum ) for x=1 to sNum-1 SaveSubFile "file_" & x &".txt", 0 ,sfs Next SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1) Case "E" sfs=sNum sNum=Int ( fs / sfs) + 1 for x=1 to sNum-1 SaveSubFile "file_" & x &".txt", 0 ,sfs Next SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1) Case "F" SaveSubFile "file_" & 0 &".txt", 0 , sNum Case "L" SaveSubFile "file_" & 0 &".txt", fs - sNum , sNum End Select tf.Close Sub SaveSubFile(s,b,l) Dim sfile,content WScript.Echo s & ":" & b &":" & l Set sfile=fso.CreateTextFile(s, TRUE) If b>0 Then tf.Skip(b) End If content=tf.Read(l) sfile.Write(content) sfile.Close End Sub lua编译器共有二种方法方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2方法2:VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->

strComputer="." Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" _ & strComputer & "\root\cimv2") Set colFiles=objWMIService. _ ExecQuery("Select * from CIM_DataFile where Extension='mp3'") For Each objFile in colFiles Wscript.Echo objFile.Name Next 。