木子屋
 

标题: cscript.exe调用vbs示例

作者: dnawo

日期: 2010-03-30 11:43 AM

分类: 脚本语言

内容: test.vbs：
复制内容到剪贴板 程序代码Dim ArgObj
Set ArgObj = WScript.Arguments
If ArgObj.Count < 1 Then
    msgbox "miss arguments!"
    WScript.Quit()
Else
    Select Case UCase(ArgObj(0))
        Case "ALERT"
             Alert ArgObj(1)
        Case "ADD"
            Add ArgObj(1), ArgObj(2)
        Case Else
            msgbox "arguments error!"
    End Select
             
End If
Sub Alert(username)
    msgbox "hello," & username
End Sub
Sub Add(a, b)
    msgbox CInt(a) + CInt(b)
End Sub
调用示例：
引用内容cscript.exe test.vbs
cscript.exe test.vbs alert mzwu
cscript.exe test.vbs add 5 6
cscript.exe可省略，一样能正常执行！

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: cscript.exe调用vbs示例

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms