Ich brauche einen Befehl ausführen Zeile in ein Visual Basic-Skript

Muss ich ausführen den Befehl "ver" in meinem vbs zu sehen, die version von meinem Betriebssystem und ich weiß nicht, wie es machen.

Habe ich versucht, diese, aber nicht funktionieren:

Function ExecuteWithTerminalOutput(cmd)
Set shell = WScript.CreateObject("WScript.Shell")
Set Exec =  shell.Exec("ver")
End Function
InformationsquelleAutor user1528355 | 2012-07-16
  1. 13

    Probieren Sie etwas wie dieses:

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

    EDIT:

    Gut dann können Sie die Ausgabe in eine Datei umleiten und dann die Datei Lesen:

    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
    • ok, schön, es funktioniert, aber ich brauche das Ergebnis in eine Variable zu verwenden in einer Wenn, kann ich dies tun? Danke für die Hilfe!
    • siehe editierten post
    • Dank bro! Es funktioniert! Eine Sache, die ";" brauche es nicht. Schön zu helfen und zu schnell!
    InformationsquelleAutor David Kroukamp
  2. 20

    Gibt es eine Möglichkeit, dies zu tun, ohne zu schreiben die Ausgabe in eine Datei.

    Angenommen, Sie wollten den text ein directory-listing. (Es gäbe viel bessere Möglichkeiten, um es als dieses, aber ich bin nur ein einfaches Beispiel.)

    Mit der Funktion in VBScript, die man betreten kann:

    thisDir = getCommandOutput("cmd /c dir c:")

    Und, wenn die obige Zeile ausgeführt wird, die variable "thisDir" enthalten würde, die Ausgabe vom DIR-Befehl.

    Beachten Sie, dass einige Befehle, die Sie wollen die Ausgabe von wird von Ihnen verlangen, geben Sie über den Befehl shell ("cmd /c" Teil des oben genannten), während andere kann funktionieren, wenn Sie Sie ausführen, die direkt und ohne Schale. Versuchen Sie es ohne die Befehls-shell. Wenn dies fehlschlägt, versuchen Sie es mit dem Befehl shell.

    '
' Capture the results of a command line execution and
' return them to the caller.
'
Function getCommandOutput(theCommand)

    Dim objShell, objCmdExec
    Set objShell = CreateObject("WScript.Shell")
    Set objCmdExec = objshell.exec(thecommand)
    getCommandOutput = objCmdExec.StdOut.ReadAll

end Function
    InformationsquelleAutor Michael Salsbury
  3. 0
    Dim shell
Set shell= WScript.CreateObject ("WScript.shell")
shell.Exec"cmd /c ver"
Set shell= Nothing
    InformationsquelleAutor Shaminda
Schreibe einen Kommentar