Тема: VBS: Добавить Функцию Weekday
Здравствуйте, подскажите как добавить в данный скрипт условие, при котором он выполнялся не только во временной промежуток, но и по дням недели с понедельника по пятницу.
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Function InTime( startTime, endTime )
currentTime = Time()
InTime = CBool( ( currentTime >= startTime ) And ( currentTime <= endTime ) )
End Function
If InTime( CDate("14:00") , CDate("21:00") ) Then
set FSO=createobject("scripting.filesystemobject")
WshShell.run "taskkill /f /im notepad.exe",0
End If