Devil66 Вот так будет точно ,проверил
)
Код: Set WSShell = WScript.CreateObject("WScript.Shell")
SessionName = WSShell.RegRead("HKCU\Volatile Environment\SESSIONNAME") 'прочитать системную переменную
if SessionName = "Console" then 'если юзер залогинен в консоли
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select DayOfWeek from Win32_UTCTime") 'получить текущий день недели
For Each objItem in colItems
if objItem.DayOfWeek = 3 then 'если день недели понедельник
Set oShell = CreateObject("WScript.Shell")
oShell.Exec("prog1.exe") 'запускаем прогу
Else
End if
if objItem.DayOfWeek = 4 then 'если день недели понедельник
Set oShell = CreateObject("WScript.Shell")
oShell.Exec("prog2.exe") 'запускаем прогу
else
End if
Next
Else
End if