shell - 在vb6中获取实际的Powershell返回值？

Question

好吧，所以我已经尝试了一段时间，而且我意识到这并不是经常要问的问题，而且随着vb6逐渐被淘汰，似乎没有比这少的帮助了。我想谈一下语言。

标题实际上并没有全部说明，因为我正在尝试做一些非常具体的事情。我需要执行一个shell命令(我知道该怎么做)，但是，执行完之后，我希望能够将该命令的返回值保存为字符串。例如，如果命令是ipconfig，则我希望该命令的整个返回值(执行该命令后在powershell中看到的所有文本)都保存到程序中的字符串中。

据我所知，我需要“导入”一些东西，因为我必须使用WshShell，但我不知道从哪里获得。这就是问题的一部分，我必须添加哪些类以及如何添加，或者是否有一种无需添加类就可以做到的方法，那就更好了。另外，我听说过很多有关CreatePipe的使用以及类似问题的信息，但是我不知道如何使用它。

基本上，我的意思是说我对这个主题没有任何知识，任何见解都会受到赞赏，并感谢所有答复。

Answer 1

有很多方法。使用VBScript的WSHShell.Exec是最简单的。

这是VBScript，但是可以将VBScript粘贴到VB中(反之亦然)。

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("ipconfig")

Do While oExec.Status = 0
     WScript.Sleep 100
Loop
MsgBox oExec.StdOut.ReadAll

从帮助中略有修改。

这是从VBS / VB ping的方法

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From win32_PingStatus where address='104.43.195.251'")
'msgbox colItems
For Each objItem in colItems
    msgbox "Status" & objItem.statuscode & " Time " & objItem.ResponseTime
Next