防止已启动的VBScript文件重复启动

在该VBScript文件上方加入如下语句即可

'判断是否重复打开本软件
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name = 'wscript.exe'")
firstFileStart = False
For Each objProcess in colProcessList
if split(objProcess.CommandLine,"""")(3) = CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).Path Then
if firstFileStart Then
MsgBox "已有本程序启动"
wscript.quit
End If
End If
firstFileStart = True
Next

原理是查看进程中是否有wscript.exe运行，检测该wscript.exe进程所用的VBS文件是否与现在要打开的VBS文件路径相同。

wscript.exe引用的文件路径查看是

objProcess.CommandLine

本语句将生成两个用双引号括起的路径，前一个是wscript.exe的路径，后一个便是vbscipt文件的路径。用split以双引号分开，第三个元素即为VBS文件路径。

同理，本方法可以查看已启动的VBS文件名