if 子句中的‘连接失败’应该用什么命令替换?
createobject("wscript.shell").run "Rasdial connection_name account_name password",0
If connection fails, then
MsgBox "There is no available connection."
End If
答案1
在新进程中运行程序。
句法
object.Run(strCommand, [intWindowStyle], [bWaitOnReturn])
参数
object
- WshShell 对象。strCommand
- 表示要运行的命令行的字符串值。您必须包含要传递给可执行文件的任何参数。intWindowStyle
- 可选。整数值,表示程序窗口的外观。请注意,并非所有程序都使用此信息。bWaitOnReturn
- 可选。布尔值,表示脚本是否应等待程序执行完毕后再继续执行脚本中的下一个语句。如果设置为真的,脚本执行暂停,直到程序完成,然后Run
返回 程序返回的任何错误代码. 如果设置为错误的(默认),该Run
方法在启动程序后立即返回,自动返回0
(不被解释为错误代码)。
下一个代码片段可能适合您:
retValue = createobject("wscript.shell").run ( _
"Rasdial connection_name account_name password",0 , True)
If retValue <> 0 then
MsgBox "There is no available connection."
End If