[megaloman]

VBS

Код:

If Not Pult("z:\ops", "dir", 2, "lock", "file.lock", "start.bat", 3600) Then WScript.Echo "Пульты заняты"
'-------------
Function Pult(DirPre, DirRoot, DirNlen, DirSuff, FileLock, FileBat, OldSec)
    Pult = False
    iii = 10000000
    
    With CreateObject("Scripting.FileSystemObject")
        For i = iii To iii + 10 ^ DirNlen - 1
            SearchDir = DirRoot + Right(CStr(i), DirNlen)
            dFile = DirPre + "\" + SearchDir + "\" + DirSuff
            If .FolderExists(dFile) Then
                iFile = dFile + "\" + FileLock
                If .FileExists(iFile) Then
                    Pult = DateDiff("s", .GetFile(iFile).DateLastModified, Now) > OldSec
                Else
                    Pult = True
                End If
                If Pult Then
                    ' MsgBox "cmd.exe /c " + DirPre + "\" + SearchDir + "\" + FileBat
                    CreateObject("WScript.Shell").Run "cmd.exe /c """ + DirPre + "\" + SearchDir + "\" + FileBat + """, 0, False"
                    Exit For
                End If
            End If
        Next
    End With
End Function

[pedrosoft]

megaloman супер, спасибо вам. Завтра протестирую.

Покажите, а если файл start.bat будет лежать не на уровень выше, а соседнем каталоге, т.е.:
z:\ops\dirXX\lock\file.lock
z:\ops\dirXX\init\start.bat

Cлишком ли грязным будет решение просто изменить первую строку на:

Код:

If Not Pult("z:\ops", "dir", 2, "lock", "file.lock", "init\start.bat", 3600) Then WScript.Echo "Пульты заняты"

?

[megaloman]

pedrosoft, Пропустили \

Код:

If Not Pult("z:\ops", "dir", 2, "lock", "file.lock", "\Init\start.bat", 3600) Then WScript.Echo "Пульты заняты"

Ваше предложение работает, проверил.

[Iska]

pedrosoft, переименуйте Ваш «start.bat» в какой-нибудь не «start» и «.cmd».