欢迎光临

木子屋

标题: 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 1.570 ms

返回

标题: cscript.exe调用vbs示例

你没有权限发表评论

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.570 ms

返回

暂无评论

返回

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

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.586 ms

返回