中国DOS联盟

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

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

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

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » vbs判断自身是否运行？

可打印版本　980 / 3

第1楼　QOIQoc	发表于 2009-04-16 01:05
初级用户　发帖 51　积分 48
vbs判断自身是否运行？一个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楼　newxso	发表于 2009-04-16 04:40
初级用户　发帖 101　积分 73　来自 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楼　QOIQoc	发表于 2009-04-16 06:29
初级用户　发帖 51　积分 48
如果进程里有好几个wscript.exe , 都可以得到每个wscript.exe 对应的vbs 文件位置吗？

第4楼　newxso	发表于 2009-04-16 08:32
初级用户　发帖 101　积分 73　来自 GZ
自己试一下不就知道了吗？

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