myfolder = "C:\temp"

Set sh = CreateObject("shell.application")

For Each w In sh.Windows

    If w.document.folder.self.Path = myfolder Then w.Quit

Next

Option Explicit

If AppPrevInstance() Then 

    MsgBox "There is an existing proceeding !" & VbCrLF &_

    CommandLineLike(WScript.ScriptName),VbExclamation,"There is an existing proceeding !"    

    WScript.Quit   

Else

Dim MyFolder,ws

Set ws = CreateObject("wscript.shell")

Myfolder = ws.ExpandEnvironmentStrings("%temp%")

Do

    Call CloseThis(MyFolder)

    wscript.sleep 1000

Loop

End If

'*********************************************************************************************

Sub CloseThis(Folder)

Dim sh,w

Set sh = CreateObject("shell.application")

For Each w In sh.Windows

    If w.document.folder.self.Path = Folder Then w.Quit

Next

End Sub

'*********************************************************************************************

Function AppPrevInstance()   

    With GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")   

        With .ExecQuery("SELECT * FROM Win32_Process WHERE CommandLine LIKE " & CommandLineLike(WScript.ScriptFullName) & _

            " AND CommandLine LIKE '%WScript%' OR CommandLine LIKE '%cscript%'")   

            AppPrevInstance = (.Count > 1)   

        End With   

    End With   

End Function    

'*********************************************************************************************

Function CommandLineLike(ProcessPath)   

    ProcessPath = Replace(ProcessPath, "\", "\\")   

    CommandLineLike = "'%" & ProcessPath & "%'"   

End Function

'*********************************************************************************************