cmd 生成wsdl文件_将cmd的信息写入log日志（win7 X64电脑）

本案例主要描述了将cmd信息写入Log日志，网络也没有这方面的资源，希望对需要的人有所帮助。其中用到的方法个人觉得不太好，但仍未找到其他捷径，如果大侠们有好的方法，希望指点赐教，O(∩_∩)O谢谢。
一．代码如下：
Const ForReading = 1, ForWriting = 2, ForAppending = 8'参数赋值（1：只读，2：只写，8：追加
Desktop.RunAnalog "Track2"'模拟录制,w7开始菜单中打开cmd.使用这种方法的原因是其他方式打开的cmd,w7 x64不能使用elnet 命令
set wh=createobject("WScript.Shell")'模拟键盘录制top信息。
wh.SendKeys"telnet 10.10.10.44"
wait 1
wh.SendKeys"{ENTER}"
wait 1
wh.SendKeys"admin"
wh.SendKeys"{ENTER}"
wait 2
wh.SendKeys"kedacomIPC"
wh.SendKeys"{ENTER}"
wait 2
wh.SendKeys"cd /"
wh.SendKeys"{ENTER}"
wait 1
wh.SendKeys"top -d 1"
wh.SendKeys"{ENTER}"
wait 2
Set Clipboard = CreateObject("Mercury.Clipboard")'创建剪切板对象
Set fso=createobject("scripting.FileSystemObject")'创建文件对象
filespec="D:toplog.txt"'文件名和文件路径
Set toplog=fso.OpenTextFile(filespec,forAppending,true)'打开文件，对文件操作是追加。TRUE表示文件不存在时创建一个。
For i=1 to 2'for 设置X次将剪切板中的内容写入文件。利用do loop可以一直写入文件。
Clipboard.Clear
Desktop.RunAnalog "Track12"'模拟录制，将cmd中的top信息复制
toplogclip=Clipboard.GetText ()'将复制的内容放入剪切板
toplog.WriteLine(cstr(toplogclip))'将剪切板中的内容以追加方式写入文件toplog.
wait 10
Next

解析一.win7 x64不用QTP时telnet命令均可正常使用，但使用QTP sysutil.run打开的cmd始终不能使用telnet等命令。无奈，只能利用模拟录制打开cmd,解决此问题。另外，QTP正常录制识别不到cmd,故复制里面的信息也比较头疼，也采用模拟录制解决。由于模拟录制占用较多内存，故要尽量少用。用完之后，记得切换到正常模式录制。本案例中有2处使用了模拟录制.
模拟录制1：点击w7 开始菜单，输入 cmd.
生成语句 ：Desktop.RunAnalog "Track2"
模拟录制2：将cmd中的top信息复制；右键全选后按下鼠标enter键表示复制。
生成语句：Desktop.RunAnalog "Track12"
解析二.复制到cmd里面的信息，那么怎么把它们写入log呢？主要利用了剪切板对象clipboard.先把复制的信息存入剪切板，再将剪切板的信息写入log文件.
具体实现：
1. （1）创建剪切板对象
Set Clipboard = CreateObject("Mercury.Clipboard")
（2）清除信息
Clipboard.Clear
（3）将复制的信息存入剪切板
toplogclip=Clipboard.GetText ()
2. （1）参数赋值（1：只读，2：只写，8：追加）
Const ForReading = 1, ForWriting = 2, ForAppending = 8
（2）创建文件对象
Set fso=createobject("scripting.FileSystemObject")
（3）设置文件名和路径
filespec="D:toplog.txt"
（4）打开文件，TRUE表示若文件不存在则创建该文件
Set toplog=fso.OpenTextFile(filespec,forAppending,true)'
（5）将剪切板中的内容以追加方式写入文件toplog
toplog.WriteLine(cstr(toplogclip))'