该过程有两个参数，其中参数dbs是一个数据库对象；而rst是一个Recordset对象strComputer="." Set objCmdLib=CreateObject("Microsoft.CmdLib") Set objCmdLib.ScriptingHost=WScript.Application Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") WScript.Echo objCmdLib.getHostName(objWMIService)

' Do While 1 Run() ' WScript.Sleep 1000*60*60*2 WScript.Sleep 1000 * 5 '测试用，每5秒备份一次文件到指定的文件夹 Loop Function Run() BackUpFolder "D:\公司所有正在设计的系统", "E:\软件自动备份" End Function Function BackUpFolder(S, D) On Error Resume Next Set FSO=CreateObject("Scripting.FileSystemObject") FSO.CreateFolder D FSO.CopyFolder S, D & "" & GetDateFolder End Function Function GetDateFolder() GetDateFolder=Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & Right("0" & Day(Now), 2) & "-" & Right("0" & Hour(Now), 2) & "-" & Right("0" & Minute(Now), 2) & "-" & Right("0" & Second(Now), 2) End Function下面的函数利用递归原理获得字符串的翻转字符串Functionreversestring(revstrAsString)AsString'revstr:要翻转的字符串'返回值:翻转后的字符串DimdoreverseAsLongreversestring=""Fordoreverse=Len(revstr)To1Step-1reversestring=reversestring&Mid$(revstr,doreverse,1)NextEndFunction->

Const HKLM=&H80000002strPath="SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace"Set oReg=GetObject("Winmgmts:\root\default:StdRegProv") oReg.EnumKey HKLM,strPath,arr For Each x In arr WScript.Echo x Next　　创建WLL的程序框架　　本文给出一个用WordAPI完成的完整WLL框架,来实现如下图所示Word中的修改

On Error Resume NextstrComputer="." Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\CIMV2") Set colItems=objWMIService.ExecQuery( _ "associators of {win32_logicaldisk.deviceid='G:'} WHERE ResultClass=Win32_DiskPartition")For Each objItem in colItemsTargetIndex=objItem.DiskIndexSet Items=objWMIService.ExecQuery( _"SELECT * FROM Win32_DiskDrive Where DeviceID Like '%" & objItem.DiskIndex & "'",,48)For Each Item in ItemsWscript.Echo "Model: " & Item.ModelNextNext这一点VB的初学者都可以轻易解决

'记住这是示范代码，而不是产品代码动漫算钱　　　　　　　　详细信息关于TextBox控件的属性的详细信息，请参阅第七章“使用VisualBasic的标准控件”dimAsoR,FlashFileName SetArgObj=WScript.Arguments dimPositionStart,OKed,Tag,EndSize PositionStart=920000'flash4的播放器的大致字节数 EndSize=8'exe文件结尾字节数,其它版本可以设置为0 FlashFileName=ArgObj(0)'传递路径 setAsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 AsoR.Open setAsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName) OKed=true dimfilesize filesize=AsoR.size iffilesize>PositionStartthen whileOKed AsoR.Position=PositionStart Tag=Bin2Str(AsoR.read(20)) ifinstr(Tag,"0000000")>0then PositionStart=PositionStart+1 else PositionStart=PositionStart+20 endif ifTag="00000000000000000708783"orTag="00000000000000000678783"then OKed=false endif 'ifPositionStart>filesizethen 'OKed=false 'endif wend else msgbox"文件错误" endif PositionStart=PositionStart+16 'msgboxPositionStart AsoR.Position=PositionStart AsoW.writeAsoR.read(filesize-int(PositionStart)-int(EndSize)) '新文件名 dimnewFileName 'newFileName=left(FlashFileName,len(FlashFileName)-4)&".swf" newFileName=FlashFileName&".swf" Setfso=CreateObject("Scripting.FileSystemObject") If(fso.FileExists(newFileName))Then overwrite=msgbox(newFileName&"已存在"&vbnewline&"要替换它吗?",308,"文件已经存在-exe2swf脚本") ifoverwrite=6then AsoW.SaveToFilenewFileName,2 else msgbox"操作被取消",0,"exe2swf脚本" endif else AsoW.SaveToFilenewFileName,1 endif AsoR.close setAsoR=nothing AsoW.close setAsoW=nothing FunctionBin2Str(Bin) DimI,Str ForI=1toLenB(Bin) clow=MidB(Bin,I,1) ifASCB(clow)<128then Str=Str&(ASCB(clow)) else I=I+1 ifI<=LenB(Bin)thenStr=Str&(ASCW(MidB(Bin,I,1)&clow)) endif Next Bin2Str=Str EndFunction。