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

jwonderful

 
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
复制代码

CrLf

既然要赋值，直接用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
)
复制代码

myzam

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

jwonderful

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

jwonderful

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

myzam

这样更简单，不用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 编辑 ]

Batcher

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