Recurring AT scheduling using VBS and batch files.
Heres the text of a post I was involved in over at m.p.scripting.vbscript.
It relates to the process by which you can create a scheduled task that repeats itself more than one time per day on a regular schedule...
ok, now we have three files....
To use this place all three files in the same location.
Call login.vbs in your login script instead of the .bat
make sure you delete this temp file before retrying this procedure...
( or when you have to re-create the task using login.vbs )
Send your cashier check to : (just kidding)
D.
login.vbs
normal.vbs
new4.bat
It relates to the process by which you can create a scheduled task that repeats itself more than one time per day on a regular schedule...
ok, now we have three files....
To use this place all three files in the same location.
Call login.vbs in your login script instead of the .bat
make sure you delete this temp file before retrying this procedure...
( or when you have to re-create the task using login.vbs )
c:\>del %temp%\Done.yet
Send your cashier check to : (just kidding)
D.
login.vbs
Const Hide = 0: Dim VBS, ACT, path
Function GetPath()
path = WScript.ScriptFullName
GetPath = Left(path, InstrRev(path, "\"))
End Function
Set Act = CreateObject("Wscript.Shell")
VBS = trim(GetPath) & "\new4.bat """ & trim(GetPath) & "\"" CHECKME"
Act.Run(VBS),Hide,True
normal.vbs
Const Hide = 0: Dim VBS, ACT, path
Function GetPath()
path = WScript.ScriptFullName
GetPath = Left(path, InstrRev(path, "\"))
End Function
Set Act = CreateObject("Wscript.Shell")
VBS = trim(GetPath) & "\new4.bat """ & trim(GetPath) & "\"""
Act.Run(VBS),Hide,True
new4.bat
:: Login Script usage example -- c:\sounds\new4.bat CHECKME > nul
::if we get a %1 (1st passed param == CHECKME)
:: then we know you want to see if we should run
:: this means if the key file exists then just
:: fall out and do nothing
@ECHOSET KeyFile=%temp%\Done.yet
if "%2"=="CHECKME" goto CHECKME
GOTO DOIT
:CHECKME
if exist %KeyFile% goto MESSAGE :: we know the intial execution is done.
:DOIT
echo%KeyFile%
SETLOCAL
SET v_vbs=%temp%\~tmp.VBS
SET v_cmd=%temp%\~tmp.cmd
ECHO%v_vbs%
ECHO%v_vbs%
ECHO%v_cmd%%v_vbs%
ECHO%v_cmd%%v_vbs%
cscript.exe //nologo %v_vbs%
CALL %v_cmd%
DEL %v_vbs%
DEL %v_cmd%
SET v_input
ENDLOCAL & SET v_input=%v_input%
ECHO At %v_input% /interactive "%1normal.vbs" > nul
:MESSAGE
::already initialized the loop code so just fall out
Comments