标题: vbs判断自身是否运行？ [打印本页]
作者: QOIQoc 时间: 2009-4-16 01:05 标题: 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"
作者: newxso 时间: 2009-4-16 04:40
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 "测试"
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 "测试"
作者: QOIQoc 时间: 2009-4-16 06:29
如果进程里有好几个wscript.exe , 都可以得到每个wscript.exe 对应的vbs 文件位置吗？
作者: newxso 时间: 2009-4-16 08:32
自己试一下不就知道了吗？