将下面的代码直接保存为gimoo.vbs运行即可。

Function LastOne(Str,splitStr) 
'输入字符和分隔符，得到最后一部分 
LastOne = right(Str,len(Str)-InStrRev(Str,splitStr)) 
End Function 
msgbox LastOne("1,2,3", ",") 

其实在实际应用中多用 数组实现，这样的效率对于大量的字符串来说，效率有点低了。

'msgbox InStrRev("1,2,3", ",")=4
InStrRev 返回某字符串在另一个字符串中最后出现的位置。
用数组的实现方法如下：

Function gimoo(Str,splitStr) 
'输入字符和分隔符，得到最后一部分 
strarr=split(Str,splitStr) 
lens=ubound(strarr) 
'获取数组的长度 
gimoo = strarr(lens) 
End Function 
msgbox gimoo("1,2,3", ",")

枚举域内计算机个数vbscript脚本（没环境，没测试）
原来是微软专家的代码在这：http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx我改成了全自动式的，不需要手要修改域的adsi连接字符

VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件
昨天下载并且安装了UpdaterApplicationBlock后，需要执行一个Deploy.vbs的文件，鄙人才疏学浅，这个小问题竟然也花费了我不少心机。现在把结论共享一下。

vbs 搜索代理地址实现代码[小偷程序]
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码functiongetHTTPPage(url)dimHttpsetHttp=CreateObject("MSXML2.XMLHTTP")Http.open"GET",url,falseHttp.send()ifHttp.readys