Option Explicit

Dim dtmDate

If WScript.Arguments.Named.Count > 0 Then Syntax

With WScript.Arguments.Unnamed
	' Check command line arguments
	If .Count = 0 Then dtmDate = Now
	If .Count > 0 Then dtmDate = .Item(0)
	If .Count > 1 Then dtmDate = dtmDate & " " & .Item(1)
	If .Count > 2 Then dtmDate = dtmDate & " " & .Item(2)
	If .Count > 3 Then Syntax
	On Error Resume Next
	dtmDate = CDate( dtmDate )
	If Err Then
		On Error Goto 0
		Syntax
	End If
	On Error Goto 0
	If Not IsDate( dtmDate ) Then Syntax
End With

' Calculate and display the result
WScript.Echo DateDiff( "s", "1970-01-01 00:00:00", dtmDate )


Sub Syntax
	WScript.Echo vbcrlf _
	           & "Date2UTC.vbs,  Version 1.00" _
	           & vbCrLf _
	           & "Convert any date/time to Unix time (UTC)" _
	           & vbCrLf & vbCrLf _
	           & "Usage:  CSCRIPT.EXE  //NoLogo  Date2UTC.vbs  date  [ time ]" _
	           & vbCrLf & vbCrLf _
	           & "Where:  ""date""   is the date to convert (default: current date/time)" _
	           & vbCrLf _
	           & "        ""time""   is the optional time to convert" _
	           & vbCrLf & vbCrLf _
	           & "Notes:  Though often called UTC, Unix time does not take into account leap" _
	           & vbCrLf _
	           & "        seconds, while ""official"" UTC does." _
	           & vbCrLf _
	           & "        If the specified date is ambiguous, the current user's date" _
	           & vbCrLf _
	           & "        and time format is assumed." _
	           & vbCrLf & vbCrLf _
	           & "Written by Rob van der Woude" _
	           & vbCrLf _
	           & "http://www.robvanderwoude.com"
	WScript.Quit 1
End Sub