批处理之家 » VBS求助&讨论 » VBS怎样把执行结果赋值给cmd执行命令？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 3
积分: 25
技术: 0
捐助: 0
注册时间: 2011-3-8

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2011-3-8 17:17 | 只看该作者

VBS怎样把执行结果赋值给cmd执行命令？

 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")   
Set ps = objWMIService.ExecQuery("select * from Win32_Process where Name='lsass.exe'")   
For Each ps in ps   
    Str = Str & "" & ps.ProcessId
Next
WScript.Echo Str
复制代码

我用上面的获取了lsass.exe的进程pid

我如何吧获取的pid 赋到一个cmd命令里那然后在运行？？

下面是运行的cmd命令

set objshell=createobject("wscript.shell")
objshell.run("%comspec% /k net user 获取到的pid 123456 /add"),vbHide
复制代码

Rank: 12

帖子: 14927
积分: 46133
技术: 857
捐助: 745
注册时间: 2008-6-9

2楼

发表于 2011-3-8 22:20 | 只看该作者

objshell.run("%comspec% /k net user " & Str & " 123456 /add"),vbHide
复制代码

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 2

帖子: 87
积分: 154
技术: 9
捐助: 0
注册时间: 2011-2-13

3楼

发表于 2011-3-9 22:58 | 只看该作者

回复 1楼的帖子

这样更简单，不用wmi
在cmd中运行 cscript +下列脚本

 
set  oshell=wscript.createobject("wscript.shell")
set oexec=oshell.exec("lsass.exe")
pid=oexec.processID
wscript.echo pid
'ok
复制代码

[ 本帖最后由 myzam 于 2011-3-9 23:05 编辑 ]

Rank: 1

帖子: 3
积分: 25
技术: 0
捐助: 0
注册时间: 2011-3-8

4楼

发表于 2011-3-16 23:39 | 只看该作者

回复 2楼的帖子

哈哈太谢谢管理员了原来这么简单

Rank: 1

帖子: 3
积分: 25
技术: 0
捐助: 0
注册时间: 2011-3-8

5楼

发表于 2011-3-16 23:40 | 只看该作者

回复 3楼的帖子

myzam 你写的这个貌似有问题。。。。每次运行获取到的pid数值都是不一样的。。。。

Rank: 2

帖子: 87
积分: 154
技术: 9
捐助: 0
注册时间: 2011-2-13

6楼

发表于 2011-3-17 01:03 | 只看该作者

回复 5楼的帖子

要是每次运行取得的数值一样，那才有问题。

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

7楼

发表于 2011-3-20 11:42 | 只看该作者

既然要赋值，直接用bat就好了：

for /f "tokens=." %%a in ('tasklist /nh /fi "imagename eq lsass.exe"') do (
   for /f "delims=exe " %%b in ("%%a") do set pid=%%b
)
复制代码

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编