vbs脚本demo

-------------------------输出Hello world-----------------------------------------------

Msgbox "Hello world"  

-------------------获取弹出框内容--------------------------------------

Dim a

a=Inputbox("提示内容")

msgbox a

---------------------获取系统时间-----------------------------------

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime 
msgbox m

-----------------获取系统日期-------------------------------------

Currentdate1=date()
msgbox Currentdate1

--------------------------打开一个空白记事本  ----------------------------------------------

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "notepad" ,,true          //打开一个空白记事本       true 表示关闭记事本后再打开计算器
objShell.Run "calc"             //打开一个计算器

-------------------------------打开百度----------------------------------

set ws=createobject("wscript.shell") 
ws.run"iexplore.exe http://www.baidu.com"   

------------------------------------判断用户点击了确定还是取消----------------------------------------------------------------

InputMessage=InputBox("请选择", "点击", "")
If InputMessage=vbEmpty Then
  Buffer=MsgBox("点击了取消", VbOKOnly)
Else
    If InputMessage="" Then
      Buffer=MsgBox("点击了确定", VbOKOnly)
    Else
      Buffer=MsgBox(InputMessage, VbOKOnly)
    End If
End If

-----------------------------------------获取输入框输入的两个乘数 计算输出结果-----------函数----------------------------

Dim i,j,g,m,n
i=Inputbox("请输入乘数1")
j=Inputbox("请输入乘数2")
g=sj(i,j)
msgbox g


function sj(m,n)
sj=m*n
end function

--------------------------------------调用小程序求两数之积------------------------------小程序-------------------------------------

Dim i,j,g,m,n
i=Inputbox("请输入乘数1")
j=Inputbox("请输入乘数2")


call sub1(i,j)      '调用小程序


sub  sub1(m,n)
msgbox "乘积为："&n*m
end sub