怎样得到ｄｏｓ命令的返回值？

yzem99

Dim oShell
Set oShell = CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:\ & Dir"
Set oShell = Nothing

这样可以实现操作ｄｏｓ命令，但哪位知道怎么样可以得到ｄｉｒ后结果呢，比如返回一个ａｒｒａｙ型的字符数组。

[ 本帖最后由 yzem99 于 2007-5-28 17:47 编辑 ]

yuandjing

高深，dos我懂一点，但是怎么取返回值没研究过

zz0719

echo %errorlevel% 来查看返回值就可以了。需要说明的是，不是每个命令都有返回值的，一般返回值为0代表命令执行成功，大于0一般代表命令执行失败或者出错

批处理的 if命令 可以判断返回值 的 所以功能也很强大

yzem99

Public Function ExecCmd(strCmd)

        Dim oShell
        Set oShell = CreateObject ("WSCript.shell")
        oShell.run "cmd /c " + strCmd+ " > CmdTemp.txt"
        Set oShell = Nothing

        wait(1)
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f = fso.OpenTextFile("CmdTemp.txt",1,false)
        Dim arrText
                Redim arrText(0)
        i = 0
        Do While f.AtEndOfLine <> TRUE
                arrText(i) = f.ReadLine
                i = i + 1
                ReDim Preserve arrText(i)
        Loop
        f.Close

        Call fso.DeleteFile("CmdTemp.txt")

        ExecCmd = arrText
       
End Function
我写了个函数，可以通过存到文件里，然后从文件里读
比如ExecCmd("Dir")，这里只能执行单个命令。
不知道有没更好的方法

[ 本帖最后由 yzem99 于 2007-5-28 18:05 编辑 ]

gotolife

前2天研究一个测试PC之间的连通性问题，写了一个JAVA程序，通过GUI界面ping另一台机器，若通，就在TextArea中显示OK，否则就显示Unreachable，给你做个参考吧，帮你加上了注释。

1. 
   
2. import java.io.*;
   
3. 
   
4. public class Ping {
   
5. 
   
6.         /**
   
7.          * @param args
   
8.          */
   
9.         public static void main(String[] args) {
   
10.                 //实际中需要使用窗口实现结果输出
    
11.                 boolean passed = false;
    
12.                 passed = pingServer("192.168.1.1", 2000);
    
13.                 if (passed) {
    
14.                         System.out.print("OK");
    
15.                 } else {
    
16.                         System.out.print("Unreachable");
    
17.                 }
    
18. 
    
19.         }
    
20. 
    
21.         /**      
    
22.          *   @param      
    
23.          */
    
24.         public static boolean pingServer(String server, int timeout) {
    
25. 
    
26.                 //准备执行的命令字符串
    
27.                 String pingCommand = "ping " + server + " -n 1 -w " + timeout;
    
28. 
    
29.                 try {
    
30.                         //使用一个独立的进程在运行时环境中执行ping命令
    
31.                         Process p = Runtime.getRuntime().exec(pingCommand);
    
32.                        
    
33.                         //正常情况下,应返回一个Process的实例
    
34.                         //若为空,则表示未获得实例,返回false
    
35.                         if (p == null) {
    
36.                                 return false;
    
37.                         }
    
38.                        
    
39.                         //BufferedReader实例化
    
40.                         //从进程p中得到网络中传回的字节流,并将其解码为字符,并将其置入缓冲区
    
41.                         BufferedReader in = new BufferedReader(new InputStreamReader(p.getInputStream()));
    
42.                         String line = null;
    
43.                        
    
44.                         //读取缓冲区中的每一行,若该行不为null就继续循环
    
45.                         while ((line = in.readLine()) != null) {
    
46.                                
    
47.                                 //多个行中,只要有一行符合该条件,就返回True
    
48.                                 if (line.startsWith("Reply from")) {
    
49.                                         return true;
    
50.                                 }
    
51.                         }
    
52.                         //关闭该流
    
53.                         in.close();
    
54.                        
    
55.                         //若出现异常,就返回false
    
56.                 } catch (Exception e) {
    
57.                         return false;
    
58.                 }
    
59.                 //若不符合上面的条件,就返回false
    
60.                 return false;
    
61.         }
    
62. 
    
63. }
    
64. 
    

复制代码

yzem99

谢谢楼上的回复，但我所需要的并不是命令执行后的true or false的结果，我需要执行一条命令在dos窗口显示的结果。
比如dir显示一个目录所有子目录和文件，我所需要的就是这些子目录和文件名。。。

没有蛀牙

不是很清楚怎么取Dos命令返回值
但是你可以用写一段VBS脚本，模仿Dir命令，就可以有返回值了

没有蛀牙

Dim s
Call ShowFileList("C:\")
Call ShowFolderList("C:\")
MsgBox s
Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name
        s = s & vbCrLf
    Next
End Sub

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 in fc
        s = s & f1.name
        s = s &  vbCrLf
    Next
End Sub

yzem99

我只是用ｄｉｒ举个例子而已，我在工作中碰到的，是用一个ｊａｖａ命令在ｄｏｓ中运行，然后得到那些ｊａｖａ　服务的运行状态。

金城月

学习。

gotolife

原帖由 yzem99 于 2007-5-29 09:51 发表
谢谢楼上的回复，但我所需要的并不是命令执行后的true or false的结果，我需要执行一条命令在dos窗口显示的结果。
比如dir显示一个目录所有子目录和文件，我所需要的就是这些子目录和文件名。。。

我给你发的那个代码就可以，你只要稍微改一点东西，就可以了

claude

LZ试过，管道输出么（可能是这么叫）　就是DOS命令后面接个＞文件名
如：　dir c:\>f.txt
dir 命令执行的结果，就保存到f.txt中了，然后你在用文件的方式，在QTP中读取出来，就可以了。
（个人意见，应该可以）

yzem99

是可以的，但不能连接两个命令，比如cd c:\ & dir > 文件名, 就不能保存了。
再则对单个命令，不知道有没更好的办法。。。

yzem99

原帖由 gotolife 于 2007-5-29 22:54 发表




我给你发的那个代码就可以，你只要稍微改一点东西，就可以了

复 #11 没有蛀牙 的帖子


我只是用ｄｉｒ举个例子而已，我在工作中碰到的，是用一个ｊａｖａ命令在ｄｏｓ中运行，然后得到那些ｊａｖａ　服务的运行状态。

gotolife

原帖由 yzem99 于 2007-5-30 09:17 发表



复 #11 没有蛀牙 的帖子


我只是用ｄｉｒ举个例子而已，我在工作中碰到的，是用一个ｊａｖａ命令在ｄｏｓ中运行，然后得到那些ｊａｖａ　服务的运行状态。

一样的