Dim  args, dateFrom, dateEnd, daysRemaining
Set args = WScript.Arguments
If args.Count > 0 Then
    dateFrom = CDate(args(0))
Else
    dateFrom = Date()
End If
dateEnd = DateSerial(2027, 1, 12)
daysRemaining = DateDiff("d", dateFrom, dateEnd)

WScript.Echo daysRemaining & " days remaining until Windows Server 2016 End of Support."