中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

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

欢迎新会员 Atticus97　 RSS
共 48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 这段VBS为什么提示语法错误? 查看 615　回复 5

楼主 这段VBS为什么提示语法错误? 发表于 2008-02-14 19:42　·　中国江苏无锡宜兴市电信

luckboy45

中级用户

★★

积分 487
发帖 212
注册 2007-04-01 08:22
19年会员
UID 83597
性别男

状态离线

由于需要检测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 楼发表于 2008-02-14 20:36　·　中国上海松江区电信

fastslz

铂金会员

★★★★

DOS一根葱

积分 5,493
发帖 2,315
注册 2006-05-01 10:41
20年会员
UID 54766
性别男
来自上海

状态离线

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 楼发表于 2008-02-14 21:04　·　中国江苏无锡宜兴市电信

luckboy45

中级用户

★★

积分 487
发帖 212
注册 2007-04-01 08:22
19年会员
UID 83597
性别男

状态离线

谢谢了!~代码貌似无法实现判断啊...麻烦帮我修改成能判断那CMD进程是否确实存在,如果存在则提示,不存在则运行XCOPY.TXT

[ Last edited by luckboy45 on 2008-2-14 at 09:12 PM ]

逍遥@浪子@反病毒

第 4 楼发表于 2008-02-14 21:12　·　中国上海松江区电信

fastslz

铂金会员

★★★★

DOS一根葱

积分 5,493
发帖 2,315
注册 2006-05-01 10:41
20年会员
UID 54766
性别男
来自上海

状态离线

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 楼发表于 2008-02-14 21:18　·　中国江苏无锡宜兴市电信

luckboy45

中级用户

★★

积分 487
发帖 212
注册 2007-04-01 08:22
19年会员
UID 83597
性别男

状态离线

多谢大哥了!~VBS不愧轮回贯通啊,以后要多向大哥学习才是!~

逍遥@浪子@反病毒

第 6 楼发表于 2008-02-14 21:42　·　中国上海松江区电信

fastslz

铂金会员

★★★★

DOS一根葱

积分 5,493
发帖 2,315
注册 2006-05-01 10:41
20年会员
UID 54766
性别男
来自上海

状态离线

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

第一高手 第二高手
我的小站

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: