Question

vbs在cmd下带参数运行生成bat

制作一个vbs
在cmd下调用运行
参数就是我自定义的数据
例子
参数 1.vbs 然后vbs生成一个名字为参数.bat
bat里面写
第一行 参数 111
第二行 参数 222
第三行 参数 333
第四行 参数 444
然后运行这个bat
参数.bat 也用传入参数命名

Answer 1

'获取参数并生成BAT文件并运行 By 依梦琴瑶
On Error Resume Next
Dim Fso, ScriptName, ScriptFullPath, BatFile

Set Fso=CreateObject("Scripting.FileSystemObject")

ScriptName = Fso.GetFileName(Wscript.ScriptFullName)

If WScript.Arguments.Count=0 Then
    MsgBox "请带参数后执行。" & vbcrlf & vbcrlf &_
           "使用方法：" & vbcrlf &_
           "      " & ScriptName & " 参数" & vbcrlf & vbcrlf &_
           "      参数若有空格，请加上英文双引号。" & vbcrlf &_
           "",48,"用法 By 依梦琴瑶"
    Wscript.Quit
End If

ScriptPath = Fso.GetFile(Wscript.ScriptFullName).ParentFolder
BatFile = ScriptPath & "\参数.bat"

Fso.CreateTextFile(BatFile).Write "@echo off & title 开始执行""%~nx0"" By 依梦琴瑶" & vbcrlf &_
                                  WScript.Arguments(0) & " 111" & vbcrlf &_
                                  WScript.Arguments(0) & " 222" & vbcrlf &_
                                  WScript.Arguments(0) & " 333" & vbcrlf &_
                                  WScript.Arguments(0) & " 444" & vbcrlf &_
                                  "del /f /q ""%~0"""

CreateObject("WScript.Shell").Run """" & BatFile & """",1,False

追问

参数.bat 不是固定的 也是传入的

追答

把
"\参数.bat"
改成
"\" & WScript.Arguments(1) & ".bat"

执行时按

1.vbs 参数 bat脚本名

不知道这是不是您要的效果？

如果不确定写入到bat中的内容是否正确，请给最后一句前面加上一个单引号，这样就暂时不执行bat文件，然后您去1.vbs的目录里面看一下bat脚本内容是否您需要的结果。