vbs文件的代码 怎么才能可以在cmd或bat里头运行?

是不想显示ping 命令的结果吧？可以这样：

ping -n 5 127.1>nul

'获取参数并生成BAT文件并运行 By 依梦琴瑶On Error Resume NextDim Fso, ScriptName, ScriptFullPath, BatFileSet 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.QuitEnd IfScriptPath = Fso.GetFile(Wscript.ScriptFullName).ParentFolderBatFile = 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

cscript aa.vbs

你 把你的需求说得清楚点，是用vbs或bat运行ppt文件，同时把鼠标隐藏吗？

VBA
用TXT打开文件，然后处理文件，然后保存文件。

Sub 打开文件(文件打开)
Dim ss
ss = Application.ThisWorkbook.Path
Set fso1 = CreateObject("scripting.filesystemobject")
Set fr1 = fso1.opentextfile(ss & 文件打开, 1) '|||||||||||||
Shell "notepad.exe " & ss & 文件打开, vbNormalFocus
End Sub

cscript -nologo a.vbs