中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

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

作者:

标题: vbs判断自身是否运行？

上一主题 | 下一主题

QOIQoc
初级用户

积分 48
发帖 51
注册 2009-3-3
状态离线

『楼主』: 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"

2009-4-16 01:05

查看资料发短消息网志

编辑帖子回复引用回复

newxso
初级用户

l i u s s

积分 73
发帖 101
注册 2008-9-17
来自 GZ
状态离线

『第 2 楼』:

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 "测试"

2009-4-16 04:40

查看资料发短消息网志

编辑帖子回复引用回复

QOIQoc
初级用户

积分 48
发帖 51
注册 2009-3-3
状态离线

『第 3 楼』:

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

2009-4-16 06:29

查看资料发短消息网志

编辑帖子回复引用回复

newxso
初级用户

l i u s s