1

Тема: 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 

2

Re: VBS: Добавить Функцию Weekday

Например, так:

Option Explicit


Select Case Weekday(Now(), vbUseSystemDayOfWeek)
	Case vbMonday, vbTuesday, vbWednesday, vbThursday, vbFriday
		If DateDiff("s", TimeSerial(14, 0, 0), Time()) >= 0 And _
			DateDiff("s", TimeSerial(21, 0, 0), Time()) <= 0 Then
			
			WScript.CreateObject("WScript.Shell").Run """%SystemRoot%\System32\notepad.exe""", 1, False
		End If
	Case Else
		' Nothing to do
End Select

WScript.Quit 0