'执行方法：直接双击vbs文件 或者 通过cmd.exe 下 cscript.exe "指定脚本的路径" 
'利用Vbs脚本实现 显示系统服务里表 

'Creator ： Eric1991 Date: 2013-11-1 0:25 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "\" & strComputer & "rootcimv2") 
Set colServices = objWMIService.ExecQuery("Select * from Win32_Service") 

For Each objService in colServices 
Wscript.Echo objService.DisplayName & "|" & objService.State 
Next 

VBS获取文件MD5值（无组件）
下面这个代码不需要组件一样可以获取MD5值。OptionExplicitDimwiDimfileDimfile_sizeDimfile_attributesDimfile_versionDimfile_hashSetwi=CreateObject("WindowsInstaller.Installer")file="111

VBS调用Photoshop批量生成缩略图的代码
模仿腾讯新闻页，给KingCms添加了新闻页图片点播的代码，代码要求的图片点播格式如下：0###http://www.website.org/UploadFile/123.jpg@@@/small/123.gif@@@8标题一***http

使用vbs获得外网ip并发送到邮箱里
获得本地外网地址并发送到指定邮箱，还可以参考这个文章http://www.gimoo.net/article/40064.htm'******************************************'*程序名称：GetIP.vbs'*程序说明