下面的代码可以关闭所有打开的DAOworkspace，并释放所占的内存测试环境：Windows2000Server(装有IIS服务) 所需文件:： 1.cscript.exe 2.adsutil.vbs(该文件在C:\Inetpub\AdminScripts下) 已经在目标目录下创建了一个IIS的子目录 在InstallShield中的应用： ######### LaunchAppAndWait(SUPPORTDIR^"vdir.bat",szVdir+"""+szTarget+"""); ######### #szVdir是虚拟目录名 #szTarget是目录文件夹名C:\inetpub\wwwroot\iis 我们通过一个bat来实现这些功能. vdir.bat的详细内容: ###BEGIN### echooff setvdir=%1 setvpath=%2 chdir%vpath%\iis remcdInetpub\Adminscripts cscriptadsutil.vbsdeletew3svc/1/root/%vdir%#删除已经存在的虚拟目录 cscriptadsutil.vbscreate_vdirw3svc/1/root/%vdir%#创建虚拟目录 cscriptadsutil.vbssetw3svc/1/root/%vdir%/path%vpath%#主目录路径 cscriptadsutil.vbssetw3svc/1/root/%vdir%/DefaultDoc"login.asp"#默认文档 ###END### adsutil.vbs还可以实现很多功能，大家自已去探索吧，以下是关于adsutil.vbs的帮助(英文) ================================================================================Usage: ADSUTIL.VBSCMD[paramparam] Note:ADSUTILonlysupportsthe"noswitch"optionofMDUTIL Description: IISK2administrationutilitythatenablesthemanipulationwithADSIparameters StandardMDUTILCommands: adsutil.vbsGETpath-displaychosenparameter adsutil.vbsSETpathvalue...-assignthenewvalue adsutil.vbsENUMpath["/P"|"/A"]-enumerateallparametersforgivenpath adsutil.vbsDELETEpath-deletegivenpathorparameter adsutil.vbsCREATEpath[KeyType]-creategivenpathandassignsitthegivenKeyType adsutil.vbsAPPCREATEINPROCw3svc/1/root-Createanin-procapplication adsutil.vbsAPPCREATEOUTPROCw3svc/1/root-Createanout-procapplication adsutil.vbsAPPCREATEPOOLPROCw3svc/1/root-Createapooled-procapplication adsutil.vbsAPPDELETEw3svc/1/root-Deletetheapplicationifthereisone adsutil.vbsAPPUNLOADw3svc/1/root-Unloadanapplicationfromw3svcruntimelookuptable. adsutil.vbsAPPDISABLEw3svc/1/root-Disableanapplication-appropriateforportingtoanothermachine. adsutil.vbsAPPENABLEw3svc/1/root-Enableanapplication-appropriateforimportingfromanothermachine. adsutil.vbsAPPGETSTATUSw3svc/1/root-Getstatusoftheapplication NewADSIOptions: /P-ValidforENUMonly.Enumeratesthepathsonly(nodata) /A-ValidforENUMonly.EnumeratesalldatathatCANbesetonthenode KeyType-ValideforCREATEonly.AssignsthevalidKeyTypetothepath ExtendedADSUTILCommands: adsutil.vbsFINDpath-findthepathswhereagivenparameterisset adsutil.vbsCREATE_VDIRpath-creategivenpathasaVirtualDirectory adsutil.vbsCREATE_VSERVpath-creategivenpathasaVirtualServer adsutil.vbsSTART_SERVERpath-startsthegivenwebsite adsutil.vbsSTOP_SERVERpath-stopsthegivenwebsite adsutil.vbsPAUSE_SERVERpath-pausesthegivenwebsite adsutil.vbsCONTINUE_SERVERpath-continuesthegivenwebsite Samples: adsutil.vbsGETW3SVC/1/ServerBindings adsutil.vbsSETW3SVC/1/ServerBindings":81:" adsutil.vbsCREATEW3SVC/1/Root/MyVdir"IIsWebVirtualDir" adsutil.vbsSTART_SERVERW3SVC/1 adsutil.vbsENUM/PW3SVC ExtendedADSUTILCommands: adsutil.vbsFINDpath-findthepathswhereagivenparameterisset adsutil.vbsCREATE_VDIRpath-creategivenpathasaVirtualDirectory adsutil.vbsCREATE_VSERVpath-creategivenpathasaVirtualServer adsutil.vbsSTART_SERVERpath-startsthegivenwebsite adsutil.vbsSTOP_SERVERpath-stopsthegivenwebsite adsutil.vbsPAUSE_SERVERpath-pausesthegivenwebsite adsutil.vbsCONTINUE_SERVERpath-continuesthegivenwebsite Samples: adsutil.vbsGETW3SVC/1/ServerBindings adsutil.vbsSETW3SVC/1/ServerBindings":81:" adsutil.vbsCREATEW3SVC/1/Root/MyVdir"IIsWebVirtualDir" adsutil.vbsSTART_SERVERW3SVC/1 adsutil.vbsENUM/PW3SVC

VBS调用WMI秒杀IE把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可， Setwmi=GetObject("winmgmts:\\.") Setpro_s=wmi.instancesof("win32_process") ForEachpInpro_s ifp.name="iexplore.exe"thenp.terminate() Next 这所以要提取是因为：本人一般打开的网页都很多，关也要关半天，有了这个实在是太好了一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ―ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓＬｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓＬｏｎｇ）ＡｓＬｏｎｇ＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇＤｉｍｃａｐｌｅｎＡｓＬｏｎｇｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）ｃａｐｌｅｎ＝９９ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅＰｒｉｎｔｃａｐｔｅｘｔＰｒｉｎｔｃａｐｌｅｎＥｎｄＳｕｂ二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩＸＡｓＬｏｎｇＹＡｓＬｏｎｇＥｎｄＴｙｐｅＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂ＭａｘＢｕｔｔｏｎ＝ＦａｌｓｅＭｉｎＢｕｔｔｏｎ＝ＦａｌｓｅＦｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）＇注意ｐｔ结构是按引用传递的ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．ＸＴｅｘｔ２．Ｔｅｘｔ＝ｐｔ．ＹＥｎｄＳｕｂ三、记录Ｗｉｎｄｏｗｓ使用时间建立新项目窗口ｆｏｒｍ１，输入代码：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅＯｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＥｎｄＳｕｂ最后将此程序加入启动组即可

弹出YESorNO的对话框，不同的选择执行不同的代码 intAnswer=Msgbox("Doyouwanttodeletethesefiles?",vbYesNo,"DeleteFiles") IfintAnswer=vbYesThen Msgbox"Youansweredyes." ElseMsgbox"Youansweredno." EndIf PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLongPublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLongPublicDeclareFunctionBitBltLib"gdi32"_(ByValhDestDCAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhSrcDCAsLong,_ByValxSrcAsLong,_ByValySrcAsLong,_ByValdwRopAsLong)AsLongPrivateSubForm_Load()DimlDesktopAsLongDimlDCAsLongForm1.AutoRedraw=TrueForm1.ScaleMode=1lDesktop=GetDesktopWindow()'取得桌面窗口lDC=GetDC(lDesktop)'取得桌面窗口的设备场景BitBltMe.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体EndSub->

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 'codebylcx修改网上原有的一个小程序，不知作者，那个程序没有对目录实现递归查找 '将本程序放在你要查找的目录下，或把查找的目录拖到此脚本上，估计还有bug '=======================================================================================OnErrorResumenext DoUntilFalse Findstr=InputBox("请输入你要查找的字符(串):","请输入") IfFindstr<>""Then Exitdo EndIf Loop repwith=InputBox("请输入你要替换的字符(串):，如果留空则只为查找","请输入") IfWscript.Arguments.Count<>0Then Fori=0ToWScript.Arguments.Count-1 folderpath=WScript.Arguments(i) find(folderpath) Next Else '处理当前目录 SetobjShell=CreateObject("WScript.Shell") folderpath=objShell.CurrentDirectory find(folderpath) EndIf '替换主程序 Subfind(path) setfso=CreateObject("Scripting.FileSystemObject") setcurrent=fso.GetFolder(path) ForEachfileIncurrent.Files setfsofile=fso.OpenTextFile(file,1,true) OnErrorResumenext tempstr=fsofile.Readall IfInstrRev(tempstr,Findstr,-1,0)<>0Andrepwith=""Then withFso.opentextfile(left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))&"\re.txt",8,true) .writelinefile .close endwith EndIf Ifrepwith<>""Then tempstr=replace(tempstr,Findstr,repwith) setfsofile1=fso.OpenTextFile(file,2,true) fsofile1.WriteLinetempstr fsofile.close Endif Next foreachfolderincurrent.subfolders Callfind(folder.path) next setfso=nothing EndSub msgbox"OK,查找的文件名保存在re.txt" 动画的制作是利用image控件来实现的

源：ADOX.Catalog

加载失败如何解决　　通过使用方法Bind，则可将该Winsock控制捆绑到一个本地端口，以便该Winsock控制使用该端口来进行类似TCP的“监听”功能，并防止其它应用使用该端口若要按每10行一批的规律显示数据，我们必须要做的所有事情就是将rtp属性的值设置为10： objOutputFormat.rtp=10 接下来配置SQL查询以检索文件信息。