中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-07 12:48

共 48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行

DOS批处理 & 脚本技术（批处理室） » 这段VBS为什么提示语法错误?

可打印版本　613 / 5

第1楼　luckboy45	发表于 2008-02-14 19:42
中级用户　发帖 212　积分 487
这段VBS为什么提示语法错误? 由于需要检测CMD是否存在于进程中,一旦检测到就提示,未检测到就运xcopy.txt 请各位帮忙修正,由于本人水平有限,所以麻烦各位了!~在线等... Set WshShell = WScript.CreateObject("WScript.Shell") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'cmd.exe'") IF IsArray(colProcessList) Then MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示" Else WshShell.Run "xcopy.txt" end if

第2楼　fastslz	发表于 2008-02-14 20:36
铂金会员　发帖 2,315　积分 5,493　来自上海
Set WshShell = WScript.CreateObject("WScript.Shell") Set objWMIService = Getobject("Winmgmts:") Set colProcessList = objWMIService.ExecQuery _ ("select * from Win32_Process where name='cmd.exe'") IF IsArray(colProcessList) Then MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示" Else WshShell.Run "xcopy.txt" end if

第3楼　luckboy45	发表于 2008-02-14 21:04
中级用户　发帖 212　积分 487
谢谢了!~代码貌似无法实现判断啊...麻烦帮我修改成能判断那CMD进程是否确实存在,如果存在则提示,不存在则运行XCOPY.TXT [ Last edited by luckboy45 on 2008-2-14 at 09:12 PM ]

第4楼　fastslz	发表于 2008-02-14 21:12
铂金会员　发帖 2,315　积分 5,493　来自上海
Set Ws = CreateObject("WScript.Shell") Dim Wmi, Proc, Info, Flag, Target Target = "cmd.exe" Flag = False Set Wmi = Getobject("Winmgmts:") Set Proc = Wmi.Execquery("Select * From Win32_Process") For Each Info In Proc If Info.Name = Target Then Flag = True Next If Flag = False Then Ws.Run "xcopy.txt" Else MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示" End If

第5楼　luckboy45	发表于 2008-02-14 21:18
中级用户　发帖 212　积分 487
多谢大哥了!~VBS不愧轮回贯通啊,以后要多向大哥学习才是!~

第6楼　fastslz	发表于 2008-02-14 21:42
铂金会员　发帖 2,315　积分 5,493　来自上海
Set WsShell = CreateObject("WScript.Shell") Set objWMIService = Getobject("Winmgmts:") Set ColProcessList = objWMIService.ExecQuery _ ("select * from Win32_Process where name='cmd.exe'") For Each objProcess In ColProcessList intReturn = objProcess.Terminate(1) Next WsShell.Run "xcopy.txt" 直接杀死CMD进程后运行xcopy.txt

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023