Hopefully "ScriptingTipsAndTricks" helps you with your batch file or vbscript scripting :-)
[Bottom][Contents][Prev]: ProfileRoot() - works out the root Documents+Settings directory[Next]: Read File Contents - first line or all lines
\->Batch Files->RANDOM Time Wanted - between 11 and 40 minutes past 4 am

[anchor]

The Code for: "RANDOM Time Wanted [between 11 and 40 minutes past 4 am].cmd"

This is the example, a shortcut was installed to this code :

@echo off
setlocal ENABLEEXTENSIONS
set HowMany=20

echo CHOOSING %HowMany% RANDOM times between 4:11am - 4:40am
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

for /L %%i in (1,1,%HowMany%) do call :ShowRandomTime %%i
goto :EOF

::+++++++++++++++++++++++++++++++++
:ShowRandomTime
::+++++++++++++++++++++++++++++++++
    set Counter=%~1
    if /I %Counter% LSS 10 set Counter=0%COUNTER%
    set      Hour=4
    set /A Minute=%RANDOM% %% 30            &rem Random value between  0 and 29
    set /A Minute=Minute + 11               &rem Random value between 11 and 40
    echo [%Counter%] Chosen Time is %Hour%:%Minute%
    goto :EOF

Please note that that I am not trying to show how great I am by producing batch files 9,000 characters long on one line that no one will understand or be able to debug when they go wrong. I am going out of my way to comment the code and make it verbose so beginners and advanced users will both benefit. I don't claim to be an expert that knows everything, if I'm wrong or make a mistake then please contact me and let me know :-)


Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.Please email me any feedback, additional information or corrections.
See this page online (look for updates)

[Top][Contents][Prev]: ProfileRoot() - works out the root Documents+Settings directory[Next]: Read File Contents - first line or all lines


ScriptingTipsAndTricks© is (C)opyright Dennis Bareis 2003-2008 (All rights reserved).
Sunday September 07 2014 at 12:50pm
Visit ScriptingTipsAndTricks's Home Page
Microsoft awarded me an MVP (Most Valuable Professional award) in 2004, 2005, 2006, 2007, 2008 & 2009 for the Windows SDK (Windows Installer) area.