Please provide the English translation of the above Chinese content according to the requirements. The original text in Chinese is as follows:
请问各位朋友,我想创建一个快捷方式,代码如下:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\连接.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments=""VPN admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
这个快捷方式可以成功创建。
但是我想修改参数:b.Arguments=""VPN admin 88888""中的VPN为"VPN 01",最后想在快捷方式中呈现为C:\Windows\System32\rasdial.exe "VPN 01" admin 88888,代码如下:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\连接.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments="""VPN 01" admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
以上参数多加个双引号创建不能成功,请朋友们指教下,如何修改参数可以增加双引号,谢谢!
[ Last edited by hbby on 2016-7-3 at 20:47 ]
The translated English text is:
Dear friends, I want to create a shortcut. The code is as follows:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Connection.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments=""VPN admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
This shortcut can be successfully created.
But I want to modify the parameter: change VPN in b.Arguments=""VPN admin 88888"" to "VPN 01", and finally want it to appear in the shortcut as C:\Windows\System32\rasdial.exe "VPN 01" admin 88888. The code is as follows:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Connection.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments="""VPN 01" admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
The above parameter with an extra pair of quotes cannot be created successfully. Please friends give some advice on how to modify the parameter to add the quotes. Thank you!
[ Last edited by hbby on 2016-7-3 at 20:47 ]
请问各位朋友,我想创建一个快捷方式,代码如下:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\连接.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments=""VPN admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
这个快捷方式可以成功创建。
但是我想修改参数:b.Arguments=""VPN admin 88888""中的VPN为"VPN 01",最后想在快捷方式中呈现为C:\Windows\System32\rasdial.exe "VPN 01" admin 88888,代码如下:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\连接.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments="""VPN 01" admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
以上参数多加个双引号创建不能成功,请朋友们指教下,如何修改参数可以增加双引号,谢谢!
[ Last edited by hbby on 2016-7-3 at 20:47 ]
The translated English text is:
Dear friends, I want to create a shortcut. The code is as follows:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Connection.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments=""VPN admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
This shortcut can be successfully created.
But I want to modify the parameter: change VPN in b.Arguments=""VPN admin 88888"" to "VPN 01", and finally want it to appear in the shortcut as C:\Windows\System32\rasdial.exe "VPN 01" admin 88888. The code is as follows:
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Connection.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments="""VPN 01" admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
The above parameter with an extra pair of quotes cannot be created successfully. Please friends give some advice on how to modify the parameter to add the quotes. Thank you!
[ Last edited by hbby on 2016-7-3 at 20:47 ]

