[Iska]

Как-то так :

читать дальше »

Код:

Option Explicit

Dim dtInstallDate

dtInstallDate = Trim(InputBox("Enter a Date", "Calculate seconds count", Now()))

If Len(dtInstallDate) <> 0 Then
	If IsDate(dtInstallDate) Then
		WScript.Echo DateDiff("s", #01/01/1970#, dtInstallDate)
	Else
		WScript.Echo "Not a date"
	End If
Else
	WScript.Echo "Empty input"
End If

WScript.Quit 0

Баловаться с записью в реестр не стану — не стоит дразнить гусей.