中国DOS联盟

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

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

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

中国DOS联盟论坛
现在时间是 2026-08-11 16:42

欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs判断自身是否运行？查看 981　回复 3

楼主 vbs判断自身是否运行？发表于 2009-04-16 01:05　·　中国北京联通

QOIQoc

初级用户

★★

积分 48
发帖 51
注册 2009-03-03 23:23
17年会员
UID 140498
性别女

状态离线

一个vbs ，当它运行时，判断自身是否正在运行，如果正在运行，则退出，否则继续往下运行。

set s=wscript.createobject("w"+"scri"&"pt.sh"&"ell")
s.run "cmd /c if exist c:\e.e" & wscript.quit & "else echo.>c:\e.e （如果 vbs 和cmd 混编的话，此行如何写？）

#########代码

s.run "cmd /c if exist c:\e.e del /q /f c:\e.e"

第 2 楼发表于 2009-04-16 04:40　·　中国广东广州电信

newxso

初级用户

★★

l i u s s

积分 73
发帖 101
注册 2008-09-17 00:21
17年会员
UID 125825
性别男
来自 GZ

状态离线



strComputer="." 

Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

Set colProcessList=objWMIService.ExecQuery("Select * from Win32_Process Where " & _ 

"Name='wscript.exe'")



MyPath=Wscript.ScriptFullName

For Each objProcess in colProcessList 

    If InStr(objProcess.CommandLine, MyPath) Then n=n+1

Next

If n>1 Then Wscript.Quit



Wscript.Echo "测试"

第 3 楼发表于 2009-04-16 06:29　·　中国北京联通

QOIQoc

初级用户

★★

积分 48
发帖 51
注册 2009-03-03 23:23
17年会员
UID 140498
性别女

状态离线

如果进程里有好几个wscript.exe , 都可以得到每个wscript.exe 对应的vbs 文件位置吗？

第 4 楼发表于 2009-04-16 08:32　·　中国广东广州电信

newxso

初级用户

★★

l i u s s

积分 73
发帖 101
注册 2008-09-17 00:21
17年会员
UID 125825
性别男
来自 GZ

状态离线

自己试一下不就知道了吗？

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

论坛跳转: