VBS调用WMI秒杀IE
把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可，

Set wmi=GetObject("winmgmts:\.")
Set pro_s=wmi.instancesof("win32_process")

For Each p In pro_s
if p.name="iexplore.exe" then p.terminate()
Next
这所以要提取是因为：本人一般打开的网页都很多，关也要关半天，有了这个实在是太好了。

查看或修改Windows系列系统的序列号的vbs
'/*========================================================================='*Intro查看或修改Windows系列系统的序列号（包括：2000,xp,2003），支持命令行GetChangeWindowsSN.vbsWind

vbs adox提取数据库表名和列名的类
!--#includevirtual="/include/conn.inc"--%'*********************************'*classname:ADOXDBOPR'*制作人:刘晓逸'*作用:用adox进行数据库的操作'*版本:1.0'*www.gimoo.net积木网'******

vbs实现的eMule电驴自动关机脚本代码
Setfso=CreateObject("Scripting.FileSystemObject")Setws=WScript.CreateObject("WScript.Shell")Count=0DoUntilCount-1chksize=fso.GetFolder("C:ProgramFileseMuleTemp").SizeIfchksize=0ThenWScript.Sleep120