VBScript创建带-t参数的ping桌面快捷方式失效问题解决

你之前的脚本出错原因很明确：把Ping的可执行文件路径和命令参数全都塞进了TargetPath属性里，WScript.Shell会把整个字符串识别成完整的程序路径，因此自动给整个内容加上双引号，导致-t 192.168.000.187被当成了程序路径的一部分，自然无法正常执行命令。

正确的做法是把可执行文件路径和命令参数分开处理，分别赋值给对应的属性：

• TargetPath仅存放Ping程序的完整路径
• Arguments单独存放-t 192.168.000.187参数

修正后的脚本如下：

Set oWS = WScript.CreateObject("WScript.Shell")
sLinkFile = "C:\Users\nome cognome\Desktop\Ping POS GENGA01.lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)
' 仅设置可执行文件路径
oLink.TargetPath = "C:\WINDOWS\System32\PING.EXE"
' 命令参数单独赋值给Arguments属性
oLink.Arguments = "-t 192.168.000.187"
oLink.WorkingDirectory = "C:\WINDOWS\system32"
oLink.IconLocation = "E:\BATCH\POSPagoPA\PayPOSEth_Mod1_2.ico, 0"
oLink.Description = "Ping POS GENGA01"
oLink.WindowStyle = "1"
oLink.Hotkey = ""
oLink.Save

修改后生成的快捷方式目标字段就会变成你需要的格式：
"C:\WINDOWS\System32\PING.EXE" -t 192.168.000.187
运行这个快捷方式就能正常执行持续Ping的命令了。

内容的提问来源于stack exchange，提问作者Andrea Rossetti