【已解决】批处理如何创建目标程序参数中带空格的快捷方式？

hbb

请问各位朋友，我想创建一个快捷方式，代码如下：

1. 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，代码如下：

1. 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")

复制代码

以上参数多加个双引号创建不能成功，请朋友们指教下，如何修改参数可以增加双引号，谢谢！

pcl_test

b.Arguments=""""""VPN 01"""" admin 88888""

pcl_test

1. '&cls&cscript -nologo -e:vbscript "%~fs0"&pause&exit
   
2. Set a=CreateObject("WScript.Shell")
   
3. Set b=a.CreateShortcut(a.SpecialFolders("Desktop") & "\连接.lnk")
   
4. b.TargetPath="%windir%\System32\rasdial.exe"
   
5. b.Arguments="""VPN 01"" admin 88888"
   
6. b.WorkingDirectory="%windir%\System32"
   
7. b.Save

复制代码

pcl_test

1. //&cls&mshta "%~f0"&pause&exit
   
2. <script language=vbs>
   
3. Set a=CreateObject("WScript.Shell")
   
4. Set b=a.CreateShortcut(a.SpecialFolders("Desktop") & "\连接.lnk")
   
5. b.TargetPath="%windir%\System32\rasdial.exe"
   
6. b.Arguments="""VPN 01"" admin 88888"
   
7. b.WorkingDirectory="%windir%\System32"
   
8. b.Save
   
9. close()
   
10. </script>

复制代码

hbb

回复 4# pcl_test


    感谢版主热心回复，问题解决，谢谢！