中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 帮我改下这VBS脚本.谢谢了.已解决
作者:
标题: 帮我改下这VBS脚本.谢谢了.已解决 上一主题 | 下一主题
hackhd
中级用户





积分 231
发帖 102
注册 2008-1-25
状态 离线
『楼 主』:  帮我改下这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 ]


2008-4-1 23:47
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
bbswind
新手上路





积分 14
发帖 6
注册 2007-11-23
状态 离线
『第 2 楼』:  

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


2008-4-2 00:06
查看资料  发短消息  网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 3 楼』:  

看错了，抱歉 [ Last edited by HAT on 2008-4-2 at 01:04 AM ]


2008-4-2 00:06
查看资料  发短消息  网志   编辑帖子  回复  引用回复
fastslz
铂金会员

DOS一根葱


积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
『第 4 楼』:  

tasklist.exe|find /i "qq.exe"&&echo 存在
Set objWMI = Getobject("Winmgmts:")
Set Process=objWMI.ExecQuery("Select * From Win32_Process Where Name='QQ.exe'")
For Each objProcess In Process
    MsgBox "存在"
Next
Set objWMI = Getobject("Winmgmts:")
Set Process=objWMI.ExecQuery("Select * From Win32_Process Where Name='QQ.exe'")
For Each objProcess In Process
    Name = objProcess.Name
Next
If StrComp(Name,"QQ.exe",1) = 0 Then
    MsgBox "存在"
    Else
    MsgBox "不存在"
End If




第一高手 第二高手 我的小站
2008-4-2 00:18
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
Climbing
铂金会员

网络独行侠


积分 6962
发帖 2753
注册 2003-4-16
来自 河北保定
状态 离线
『第 5 楼』:  

@ 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




偶只喜欢回答那些标题和描述都很清晰的帖子！ 如想解决问题，请认真学习“这个帖子”和“这个帖子”并努力遵守，如果可能，请告诉更多的人！
2008-4-2 01:45
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (653668)  编辑帖子  回复  引用回复
Climbing
铂金会员

网络独行侠


积分 6962
发帖 2753
注册 2003-4-16
来自 河北保定
状态 离线
『第 6 楼』:  

我将脚本修改成类似下面的样子：
strComputer = "."

Set objWMI = Getobject("Winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
...
运行就正常了。




偶只喜欢回答那些标题和描述都很清晰的帖子！ 如想解决问题，请认真学习“这个帖子”和“这个帖子”并努力遵守，如果可能，请告诉更多的人！
2008-4-2 02:30
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (653668)  编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023