怎样把这段vbs代码写入批处理命令，让它通过批处理命令直接运行不出错

别人给了这段我需要的代码，我要直接使用时，必须要用另个批处理命令调用它，就是分成一个bat和一个vbs，但是我看到有人在批处理文件中直接写入vbs代码，不知道要怎么实现
求高人把下面这段vbs代码改写成批处理命令

谢谢

---------------vbs代码如下----------------
Set fso = wscript.CreateObject("Scripting.FileSystemObject")
path=Left(Wscript.ScriptFullName,len(Wscript.ScriptFullName))
for each fname in wscript.arguments

for i=0 to wscript.arguments.count-1
mingzi = fso.GetFile(wscript.arguments(i)).Name

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\Users\leo\Desktop\" & mingzi & ".lnk") '快捷方式的保存路径和文件名
oShellLink.TargetPath = fname : '指向的文件
oShellLink.Save : '保存

Wscript.Quit

next
next
------------------------------------------------------------

用批处理写以上代码到一个新的VBS文件，然后在批处理中调用该VBS即可
echo Set fso = wscript.CreateObject("Scripting.FileSystemObject") >test.vbs
echo path=Left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)) >>test.vbs
echo for each fname in wscript.arguments >>test.vbs
echo for i=0 to wscript.arguments.count-1 >>test.vbs
echo mingzi = fso.GetFile(wscript.arguments(i)).Name >>test.vbs
echo Set WshShell = WScript.CreateObject("WScript.Shell") >>test.vbs
echo set oShellLink = WshShell.CreateShortcut(^"C:^\Users^\leo^\Desktop^\^" ^& mingzi ^& ".lnk") '快捷方式的保存路径和文件名 >>test.vbs
echo oShellLink.TargetPath = fname : '指向的文件 >>test.vbs
echo oShellLink.Save : '保存 >>test.vbs
echo Wscript.Quit >>test.vbs
echo next >>test.vbs
echo next >>test.vbs
start test.vbs

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息