dim Z(10),i 
for i=0 to 10 
Z(I)=GetRnd(i-1) 
WScript.Echo (Z(i)) 
NEXT 

Function GetRnd(n) 
Dim i,X 
Randomize 
X=CInt(10*Rnd() ) 
For i=0 To n 
If X=Z(i) Then 
X=GetRnd(n) 
Exit For 
End If 
Next 
GetRnd=X 
End Function 

vbs 百度小助手
运行它直接选择：1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索;然后输入需要搜索的内容即可

字符ANSI代码查询工具vbs版
x=InputBox("请输入字符","提示","Test")IfLen(x)0thenFori=1ToLen(x)WScript.echo"字符["&Mid(x,i,1)&"]ANSI代码为:"&Asc(Mid(x,i,1))NextElseMsgBox"请输入英文字符",64,"提示"Endif

VBS MD5加密算法代码
PrivateConstBITS_TO_A_BYTE=8PrivateConstBYTES_TO_A_WORD=4PrivateConstBITS_TO_A_WORD=32Privatem_lOnBits(30)Privatem_l2Power(30)m_lOnBits(0)=CLng(1)m_lOnBits(1)=CLng(3)m_lOnBits(2)=CLng(7)m_lOnBits(3)=C