Время выполнения команд командного файла скриптов VB без использования WScript.sleep

Question

У меня есть пакетный файл, который запускает telnet-сервер и останавливает сервер telnet со временем сна между ними.

Сценарий:

set OBJECT=WScript.CreateObject("WScript.Shell") 
WScript.sleep 5000 
OBJECT.SendKeys "net stop TlntSvr{ENTER}" 
WScript.sleep 30000 
OBJECT.SendKeys "net start TlntSvr{ENTER}" 
WScript.sleep 30000 
OBJECT.SendKeys "exit" 

Как вы видите выше код остановки телнет услуги с помощью net stop TlntSvr, а затем запускает службы телнет с помощью net start TlntSvr с временем ожидания между как WScript.sleep 3000.

Выпуск: Теперь мне нужно запустить этот пакетный файл в нескольких системах ПК/ноутбук и в каждом случае выполнения, время, необходимое для запуска/остановки телнет услуги/обслуживание телнет установка меняется и, следовательно, I должен был изменять время сна каждый раз, когда я запускаю скрипт в разных системах.

Вопрос: Есть ли способ, ко времени следующего выполнения такой, что как только первое исполнение завершается только тогда он начнет следующий выполнение? Значение: мне не нужно настраивать время сна для каждого ноутбука/ПК, следующее исполнение будет запускаться только тогда, когда первое исполнение будет выполнено в соответствии с собственным поведением каждого ПК.

Answer 1

Что вы показываете не командные командные файлы. Если вы хотите партии, чтобы сделать это, то ниже эквивалентно:

Net Stop TlnSvr 
PING -n 31 127.0.0.1>nul 
Net Start TlnSvr 
PING -n 31 127.0.0.1>nul 

Однако пакетные команды являются последовательными и, если все, что вам нужно для каждой команды, чтобы закончить, прежде чем двигаться дальше, то вы можете просто удалить задержки Ping ,

Net Stop TlnSvr 
Net Start TlnSvr 

Мы по-прежнему использовать некоторые Пакетные файлы отчасти потому, что мы должны иметь много различных команд выполняются последовательно и убедитесь, что один будет сделано до следующего пинает.

Если я пропустил лодку, прокомментируйте, и я отредактирую это.

Редактировать: Последующие комментарии.

В VBscript вы можете поймать дату/время в момент выполнения первой команды, а затем следить за датой/временем между командами, чтобы обеспечить правильное время.

Dim TimeDif: TimeDif = 40 'seconds 
Dim CmdTime: CmdTime = now() 
'... do your first command here... 
do while datediff("S", CmdTime, now()) < TimeDif 
    wscript.sleep(5000) '5 seconds 
loop 
'... do your second command here... 

Теперь таймер учитывает время выполнения команды, а не только время статического времени между командами.

Установите TimeDif в качестве команды. Начать следующую команду. Начать разницу в секундах.

Редактировать: Этот изящный. Нет петли. Он вычисляет разницу во времени и спит в это время.

Dim TimeDif: TimeDif = 30 'seconds 
Dim CmdTime: CmdTime = now() 
Dim ToNext 
'... do your first command here... 
ToNext = (TimeDif * datediff("S", CmdTime, now())) * 1000 
wscript.sleep(ToNext) 
'... do your second command here...