I need execute a command line in a Visual Basic Script

后端 未结 3 619
小蘑菇
小蘑菇 2020-12-16 01:43

I need to execute the command \"ver\" in my vbs to see the version of my Operating System, and i don\'t know how make it.

I tried this, but dont work:



        
相关标签:
3条回答
  • 2020-12-16 01:44
    Dim shell
    Set shell= WScript.CreateObject ("WScript.shell")
    shell.Exec"cmd /c ver"
    Set shell= Nothing
    
    0 讨论(0)
  • 2020-12-16 01:45

    Try something like this:

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

    EDIT:

    Well then you can redirect output to a file and then read the file:

    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
    
    0 讨论(0)
  • 2020-12-16 01:45

    There is a way to do this without having to write output to a file.

    For example, suppose you wanted to capture the text of a directory listing. (There would be lots of better ways to get it than this, but I'm just using a simple example.)

    With the function below in your VBScript, you could enter:

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

    And when the above line is executed, the variable "thisDir" would contain the output from the DIR command.

    Note that some commands you want output from will require you to pass them through the command shell (the "cmd /c" part of the above), while others may work fine if you run them directly without the shell. Try it without the command shell. If it fails, try it with the command 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
    
    0 讨论(0)
提交回复
热议问题