Checking System date(Range) and executing EXE using Vbscripts

strComputer = "."
strDateFrom = "4/28/2013"
strEndDate   = "5/21/2013"
Set objFSO   = CreateObject("Scripting.FileSystemObject")
Set Wshshell = CreateObject("Wscript.Shell")
DateInfo = DateInfo & Date & VbCrLf
If DateInfo >StrDateFrom And DateInfo <StrEndDate Then
wshshell.run "C:\test.exe"
End IF