用vbs写的短小精悍的字典生成器

使用方法'use:cscript this.vbs > dic.txt　
把下面的代码保存为this.vbs

a=Array(1,2,3,4,"a")  
Function js1(n)  
for i=1 to n  
f=f&"f"&i&"&"  
s=s&"For Each f"&i &" In a :wscript.echo "& f  
s=Mid(S,1,Len(S)-1)&":"  
Next  
js1=s  
End Function  

Function js2(n)  
for i=1 to n  
m=m & "Next" & ":"  
Next  
js2=m  
End Function  

lcx= js1(UBound(a)+1)&js2(UBound(a)+1)  
lcx=Mid(lcx,1,Len(lcx)-1)  
b="a=Array(1,2,3,4,""a""):"&lcx  

Execute b 

把任意文件转成vbs文件的file2vbs的vbs代码
Tr4c3:为了方便在dos下使用，我把inputbox改成了args。'ProgramByxiaolu'name:file2vbs.vbsOnerrorresumenextSetArgs=Wscript.ArgumentsIfArgs.length2ThenWscript.Echo"Usage:"&Wscript.ScriptName&

用vbs实现获取电脑硬件信息的脚本_最新版第1/4页
'*******************************************************************************************'Version:3.1'调整错误处理方法，错误信息输出到LogFile文件，可以查看扫描失败原因'

windows2003一句话开3389的vbs代码
作者：lcx来源：vbs小铺wmicRDTOGGLEWHEREServerName='%COMPUTERNAME%'callSetAllowTSConnections1开远程：WMIC/node:"远程机器名"/user:"administrator"/password:"lcx"RDTOGGLEWHEREServerName='