Вопрос : VBS - Помощь нужная для того чтобы доработать Кодего

Hi, помощь somone

Could к к modifiy следующий Кодий так как:

1.) если вход журнала находится над 10 минутами, то (находится уже в сценарии) после этого сценарий ждет 20 проверку minutes
then для такого же входа и если он находится все еще над 10 минутами после этого, то вызывает следующий Кодего ниже. Если вход журнала ниже, то 10 минут после этого не делают objShell anything.

Set =
CreateObject («WScript.Shell») varFile = Chr (34) & «C:\scripts\command.bat» &
objShell.run «C:\Windows\System32\cmd.e» Chr (34) xe /c & objShell varFile
установленные = условие Nothing

The второго «если архив журнала не, то» нам нужно сценарий ждать 20 минут тогда проверку снова для журнала и если о после этого исполните следующий Кодего, то (ниже) если журнал существует после этого не делает ничего. objShell

Set =
CreateObject («WScript.Shell») varFile = Chr (34) & «C:\scripts\command.bat» &
objShell.run «C:\Windows\System32\cmd.e» Chr (34) xe /c & objShell varFile
установленное = Nothing


class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41:

id= " codeSnippet853714 " class= " ' * ФОРМАТИРУЙТЕ СЕГОДНЯШНЕЕ ДАТУ ЧАСТЬ АРХИВА ЖУРНАЛА - ИМЯ strYear = год (TodayDT) strMonth = месяц (TodayDT) strDay = день (TodayDT) если CInt (strMonth) < 10 после этого strMonth = «0» & strMonth закончитесь если если CInt (strDay) < 10 после этого strDay = «0» & strDay закончитесь если strToday = strYear & strMonth & strDay 'wscript.echo strToday Установите objFSo = CreateObject («Scripting.FileSystemObject») pathname = «\ \ сервер \ доля \ ЖУРНАЛ для restarts_» & strToday & «.doc» если objFSo.FileExists (pathname) после этого Установленное objFile = objFSO.GetFile (pathname) strTime = objFile.DateLastModified если isdate (strTime) после этого DT = cdate (strTime) DTN = теперь если datediff («n», DT, DTN) > 10 после этого wscript.echo «последний вход журнала над 10 минутами» еще wscript.echo «система все еще живо» закончитесь если закончитесь если еще '* если архив журнала не был. 'wscript.echo «ый архив журнала» 'Пошлите acommmand к системе Установите objShell = CreateObject («WScript.Shell») varFile = Chr (34) & «C:\scripts\command.bat» & Chr (34) objShell.run «C:\Windows\System32\cmd.exe /c» & varFile Установите objShell = ничего (...)

class=

Ответ : VBS - Помощь нужная для того чтобы доработать Кодего

Щелкните дальше пошлите получите - > пошлите получите группы - > определите пошлите получите группы (на дне и смогите быть намереваемое jrathi). Пошлите получите группы диалоговый окно, котор раскрывает. Пошлите получите интервал внутри там. … Thinkpads_User