VBS实现将当前时间转换成UTC时间

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 SyntaxEnd With ' Calculate and display the resultWScript.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 1End Sub