command-line - 我需要在 Visual Basic 脚本中执行命令行

我需要在我的 vbs 中执行命令“ver”来查看我的操作系统的版本，我不知道如何制作它。

我试过这个，但不工作:

Function ExecuteWithTerminalOutput(cmd)
Set shell = WScript.CreateObject("WScript.Shell")
Set Exec =  shell.Exec("ver")
End Function

最佳答案

尝试这样的事情:

Dim objShell
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "cmd /c ver"
Set objShell = Nothing

编辑:

那么你可以将输出重定向到一个文件，然后读取该文件:

return = WshShell.Run("cmd /c ver > c:\temp\output.txt", 0, true)

Set fso  = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("c:\temp\output.txt", 1)
text = file.ReadAll
file.Close

关于command-line - 我需要在 Visual Basic 脚本中执行命令行，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11501044/