请问各位朋友,我想创建一个快捷方式,代码如下:
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 ]
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 ]

