复制自身到c盘的huan.vbs
ASP/Visual Basic代码

set copy1=createobject("scripting.filesystemobject")          
copy1.getfile(wscript.scriptfullname).copy("c:huan.vbs")   

一个扩展时间段的dir命令的vbs脚本
setArg=Wscript.ArgumentsIfArg.Count=0thenWscript.echochr(9)&chr(9)&space(4)&"Xdirv0.1"Wscript.echo""Wscript.echochr(9)&"cscriptdir.vbspathtime1time2ext"Wscript.echochr(9)&"cscriptdir.vbsd:test2008010

用vbs实现的exe2swf工具脚本代码
dimAsoR,FlashFileNameSetArgObj=WScript.ArgumentsdimPositionStart,OKed,Tag,EndSizePositionStart=920000'flash4的播放器的大致字节数EndSize=8'exe文件结尾字节数,其它版本可以设置

vbs更改3389远程桌面端口的脚本
SetWshShell=CreateObject("Wscript.Shell")FunctionImput()imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改