Vbscript 带电话簿条目的vbs Rasdail_Vbscript_Connect_Vpn

Vbscript 带电话簿条目的vbs Rasdail

vbscript

Vbscript 带电话簿条目的vbs Rasdail,vbscript,connect,vpn,Vbscript,Connect,Vpn,有人能帮我做个小项目吗。我没有得到正确的代码在使用标准电话簿时，带有用户名和密码的Rasdail可以工作。唯一的方法是在脚本中绑定另一个电话簿，以便使用此拨号这是我的理由： Set WshShell = WScript.CreateObject("WScript.Shell") vbConnectionName = "test" vbConnectionUser = "user" vbConnectionPassword = "pass" vbConnectWith = "rasdial"

有人能帮我做个小项目吗。我没有得到正确的代码

在使用标准电话簿时，带有用户名和密码的Rasdail可以工作。唯一的方法是在脚本中绑定另一个电话簿，以便使用此拨号

这是我的理由：

Set WshShell = WScript.CreateObject("WScript.Shell")

vbConnectionName = "test"
vbConnectionUser = "user"
vbConnectionPassword = "pass"
vbConnectWith = "rasdial" & " """ & vbConnectionName & """ """ & vbConnectionUser & """ """ & vbConnectionPassword & """ /phonebook:"%programfiles%\test program\rasphone.pbk""

我希望这是可以理解的。

最后一个论点的引用是不正确的。你有这个：

... & """ /phonebook:"%programfiles%\test program\rasphone.pbk""

但你需要这个：

... & """ /phonebook:""%programfiles%\test program\rasphone.pbk"""

使用Quote函数有助于避免quotefusion：

Function qq(str)
  qq = Chr(34) & str & Chr(34)
End Function

'...

vbConnectWith = "rasdial " & qq(vbConnectionName) _
  & " " & qq(vbConnectionUser) _
  & " " & qq(vbConnectionPassword) _
  & " /phonebook:" & qq("%programfiles%\test program\rasphone.pbk")