'*** v9.6 *** www.dieseyer.de ******************************* 

' 

' Datei:  7s-AufEingabeWarten.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Dim WshShell, Tst 

Set WshShell = WScript.CreateObject("WScript.Shell") 

Tst = WshShell.Popup("Möchten Sie vom Skript Ihr Alter in Tagen wissen?" & vbCRLF & vbCRLF & "Wenn nicht, beendet sich das Skript in 7s", 7, WScript.ScriptName, 4 + 32) 

If not Tst = vbYes Then  

	MsgBox "Das ist das Ende . . .", vbInformation, WScript.ScriptName 

	WScript.Quit 

End If 

 

Tst = InputBox( "Bitte geben Sie Ihren Geburtstag ein:", WScript.Scriptname, "01.01.1999" ) 

 

If Tst = "" Then 

	MsgBox "Das war keine gültige Eingabe!" & vbCRLF & vbCRLF & "Das ist das Ende . . .", vbInformation, WScript.ScriptName 

	WScript.Quit 

End If 

 

MsgBox "Jeder, der am " & Tst & " geboren wurde, ist heute " & DateDiff( "d", CDate( Tst ), now() )  & " Tage alt.", , WScript.ScriptName