处理高程脚本并尝试将参数传递给vbs文件

Question

vbs文件（工作正常）

If WScript.Arguments.Length = 0 Then 
    Set objShell = CreateObject("Shell.Application") 

    'Pass a bogus argument, say [ uac] 
    objShell.ShellExecute "cmd.exe", Chr(34) & _ 
        WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1 
Else 
   'Add your code here 
End If 

我希望能够将一个参数传递给该文件并将其用于＆＃34; cmd.exe＆＃34;是这样我可以改变执行的内容。