//介绍: 如果你要执行CMD命令行内容, 可以尝试使用本函数
//命令行: 命令行代码内容, 如果存在文件路径, 请给路径加单引号, 例如
"'C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe'"
Function
zmRunCMD(命令行)
Dim
fs, tempFile, f, tempText
命令行 = Replace(命令行,
"'"
, chr(34))
Set
fs = CreateObject(
"scripting.FileSystemObject"
)
tempFile = fs.GetSpecialFolder(2) & "\" & fs.GetTempName
RunApp
"cmd.exe /c "
& 命令行 &
" > "
& tempFile
//如果命令行执行耗时较久, 请加长延时的时间
Delay 1000
If
fs.FileExists(tempFile)
Then
Set
f = fs.openTextFile(tempFile, 1)
tempText = f.ReadAll
f.Close
Set
f =
Nothing
End
If
Set
fs =
Nothing
zmRunCMD = tempText
End
Function
//调用例子, 下面是执行dir命令行并输出结果
TracePrint zmRunCMD(
"dir"
)