Batchfil med dato (version 2)

I nedenstående spørgsmål fik jeg forleden dag fin vejledning i vbs-filer.

http://www.eksperten.dk/spm/938326#reply_7776202

Tak til claes57 for nedenstående script:

-----

idag = date()
testdag = #6/11/2015#

If DateDiff("d", testdag, idag) < 1 Then
' den næste linje kan droppes
    WScript.Echo ("This date is after " & idag)
    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run("Etprogram.exe")
End If
' slut for denne gang (kan droppes)
WScript.Echo ("Slut")

-----

Når den aktuelle dato er længere fremme end 6/11/2015 (eller hvad man nu vælger at sætte den til), kommer kun "wscript-slut-boksen". Det gør den også, når den aktuelle dato er før 6/11/2015, men det gør ikke så meget, for filen "Etprogram.exe" kører alligevel.

Hvis jeg i scriptet fjerner:

' slut for denne gang (kan droppes)
WScript.Echo ("Slut")

... kommer "wscript-slut-boksen" ikke - hverken når "Etprogram.exe" kører eller ikke kører.

Det er en fordel, når programmet kører. Men en bagdel, når programmet ikke kører. Brugeren får således ikke besked om, at hans program er udløbet.

Så tænker jeg:

Er det muligt at tilføje scriptet en "Run"-funktion mere, som træder i kraft, når den aktuelle dato er over 6/11/2015. Det kunne indeholde "EtAndetProgram.exe", som fortæller brugeren, at han ikke længere kan køre "Etprogram.exe".

Jeg har selvfølgelig siddet og fedtet med det, men jeg har først nu fået øjnene op for vbs og ved ikke en bønne om det.... endnu!

På forhånd tak