VBS是微软开发的一种脚本语言，可以看作是VB语言的简化版，它具有原语言容易学习的特性，并继承了JavaScript的跨平台的特性。目前这种语言广泛应用于网页和ASP程序制作，同时还可以直接作为一个可执行程序。用于调试简单的VB语句非常方便。
如：我们有时候在外面需要写个小程序急用时,但手边又没有开发平台,并且又无法上网下载,怎么办呢?这就可以用vbs来写了，非常简单。
下面提供几个例子，你把代码复制到记事本中保存时选中所有文件类型，保存为*.vbs文件，*号可以随便改为其它名字，然后双击打开这个文件就可以看到效果了。
如带登陆系器的测本机IP地址程序：
dim a,ctr
ctr=0 '设置计数器
const pass="pas3578ado" '这是登陆密码
do
if ctr=3 then
msgbox("三次输错密码, 你无权使用本程序")
exit do
else
a=inputbox("请输入密码")
if a=pass then
msgbox("登陆成功")
msgbox("(你可以在这里加一段登成功后要用的功能代码,如下面检测本机IP地址)")

Dim WS  
Set WS=CreateObject("MSWinsock.Winsock")  
IPAddress=WS.LocalIP  
MsgBox "Local IP=" & IPAddress  

exit do
else
ctr=ctr+1 '如果密码出错就增加一次错误登陆计数
msgbox("密码错了, 请重新输入")
end if
end if
loop

下面提供两个整人代码用于学习研究,请不要随便试哦!
1、打开无数个计算器，直到死机
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
2、不断弹出窗口
while(1)
msgbox "哈哈 你被耍了！"
loop

有趣有趣，真有趣