vbScript中WScript.Shell对象的run和exec使用心得分享

所属分类: 脚本专栏 / vbs 阅读数: 465
收藏 0 赞 0 分享

Set exeRs = objws.Exec("pscp -r -scp -pw " & password & " " & loginid & "@" & host & ":" & data_path & fileName & " " & windows_path)
但在测试候,当拷的文件比大,拷贝时间较长候就出cmd窗口死在那里不了的情况,直接在cmd窗口中运行pscp相同的文件就可以正常 束。也找不到是什原因,于是改成run方法一下,run方法是可以正常束的,但是原来的代中有需要取得cmd的控制台出信息,而run却 不方便取得控制台信息,最后只能先把控制台信息重定向到文件中,然后程序在取。最后一下runexec两个方法的区的一些理解:

两个方法的声明如下
Function Exec(ByVal Command As String) As WshExec

Function Run(ByVal Command As String, [ByVal WindowStyle], [ByVal WaitOnReturn]) As Integer

可以看出几点区

1run的返回是一个整数,就是01成功和失两个状,而exec方法的返回是一个象,从返回象中可以得控制台出信息和控制台错误信息,即StdOutStdErr属性等。例如:

Set exeRs = objws.Exec("pscp -r -scp -pw 。。。。"

errMsg = exeRs.StdErr.ReadAll()

stdMsg = oExec.StdOut.ReadAll()

可以取道控制台错误和控制台信息。
2Run 的后两个参数,一个是cmd窗口的格,一个是是否等待行完成。最后一个参数很有用,如果你希望等待本次cmd行的程序束后,在 objws.Exec后面的句的,只要个参数true就可以了,否后面的句将不等待cmd窗口完成,直接运行(我们项目就有这个需求,从服务器上拷贝一个文件到本地后,马上要打开这个文件操作,如果文件没有拷贝完就去操作就会出错的。)。另外,如果你使用exec 方法的候,如果希望等待cmd中程序行完后,在行后面的句,也可以通下面的方法:

oExec.StdErr.ReadAll()或者oExec.StdOut.ReadAll(),道理上也应该好理解,要得到出的信息,肯定要cmd行完后才会有出的。

参数的详细信息可以参考msdn

http://msdn.microsoft.com/zh-cn/library/ateytk4a(en-us,VS.85).aspx

http://msdn.microsoft.com/zh-cn/library/d5fk67ky(en-us,VS.85).aspx

更多精彩内容其他人还在看

可自删除 开启3389创建用户粘滞键后门的vbs

on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{i... 查看详情
收藏 0 赞 0 分享

CMD和vbs修改 IP地址及DNS的实现代码

修改IP cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1 修... 查看详情
收藏 0 赞 0 分享

vbScript on error resume next容错使用心得

vbscript中,错误处理使用on error resume next来完成,如果在你的代码里加入这一句,在这句之后的其他代码如果出现错误,系统将忽略这些错误继续运行后面的代码,同时,我们可以使用下面的代码来捕获错误复制代码 代码如下:If err.number<>... 查看详情
收藏 0 赞 0 分享

用vbs实现判断计算机是笔记本还是台式机的代码

ChassisTypes 属性可以告诉您,您使用的是笔记本电脑、台式计算机还是其他类型的计算机。哦,输入。以下脚本可以让您知道您使用的是哪种类型的计算机: 复制代码 代码如下:strComputer = "."  Set objW... 查看详情
收藏 0 赞 0 分享

用vbs清空iis log 中自己登录ip的记录

Option Explicit  Dim sourcefile,ipaddress,objargs const destfile="tempfile" Const ForWriting = 2 Dim ... 查看详情
收藏 0 赞 0 分享

vbs sendmail发邮件带附件方法

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From&nb... 查看详情
收藏 0 赞 0 分享

用vbs实现虚拟主机和域名查循的脚本

If WScript.Arguments.Count <> 1 Then WScript.Echo "Example: CScript " & WScript.Scrip... 查看详情
收藏 0 赞 0 分享

用vbs通过135端口执行命令的脚本

wmiexec.vbs(通过135端口执行命令)复制代码 代码如下:set ww=createobject("wbemscripting.swbemlocator")  set cc=ww.connectserver("172.20.241.218"... 查看详情
收藏 0 赞 0 分享

用vbs实现的瞬间关闭多个系统进程的脚本

程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下,瞬间成批中断进程。 复制代码 代码如下:'-----------------------------------------------------------------... 查看详情
收藏 0 赞 0 分享

vbs 中调用shell.application 简单函数

Set os=CreateObject("wscript.shell") Set os0=CreateObject("shell.application") Do  input1=InputBox(" 请选择:"+chr(13)+chr(1... 查看详情
收藏 0 赞 0 分享
查看更多