中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-08 01:18 		共 48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,253 会员排行
DOS批处理 & 脚本技术（批处理室） » 帮我改下这VBS脚本.谢谢了.已解决
可打印版本 　720 / 5
第1楼　hackhd 发表于 2008-04-01 23:47
中级用户　发帖 102　积分 231
帮我改下这VBS脚本.谢谢了.已解决
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'QQ.exe'")
原脚本这样

然后我想可以这样用。
如： if qq.exe=1 then msgbox "存在"

自己试了下没成功
if jc("qq.exe")=1 then msgbox "存在"
function jc(wr)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '"&wr&"'")
end function

[ Last edited by hackhd on 2008-4-2 at 12:16 AM ]
第2楼　bbswind 发表于 2008-04-02 00:06
新手上路　发帖 6　积分 14
if jc("qq.exe")=1 then msgbox "存在"
function jc(wr)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '"&wr&"'")
jc=colProcessList.count
end function
第3楼　HAT 发表于 2008-04-02 00:06
版主　发帖 5,017　积分 9,023
看错了，抱歉

[ Last edited by HAT on 2008-4-2 at 01:04 AM ]
第4楼　fastslz 发表于 2008-04-02 00:18
铂金会员　发帖 2,315　积分 5,493　来自 上海




第5楼　Climbing 发表于 2008-04-02 01:45
铂金会员　发帖 2,753　积分 6,962　来自 河北保定
@ fastslz

我将你的第二段代码保存成一个vbs文件，在资源管理器中双击执行，为什么出现Windows脚本宿主错误？我对vbs不熟悉。


D:\work\dos>type test1.vbs
Set objWMI = Getobject("Winmgmts:")
Set Process=objWMI.ExecQuery("Select * From Win32_Process Where Name='cmd.exe'")
For Each objProcess In Process
MsgBox "存在cmd.exe"
Next
D:\work\dos>cscript test1.vbs
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

D:\work\dos\test1.vbs(3, 1) (null): 0x80041010
第6楼　Climbing 发表于 2008-04-02 02:30
铂金会员　发帖 2,753　积分 6,962　来自 河北保定
我将脚本修改成类似下面的样子：


运行就正常了。
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023