VBS to format date Date: Tue, 18 Nov 2022 15:57:11 +0000 [duplicate] - date

Question

This question already has an answer here:
Format current date and time in VBScript
(1 answer)
Closed 8 months ago.
So I am trying to format my date properly in a readable format.
Here is my code.
WScript.Echo(DateDiff("s", "01/01/1970 00:00:00", Now()))
Function sprintf(sFmt, aData)
With CreateObject("System.Text.StringBuilder")
.AppendFormat_4 sFmt, (aData)
sprintf = .ToString()
.Length = 0
End With
End Function
Dim CurrTime : CurrTime = Now()
Dim Elapsed : Elapsed = Timer()
Dim MilliSecs : MilliSecs = Right("000" & Int((Elapsed - Int(Elapsed)) * 1000), 3)
'echo "Date: " . date("D, d M Y H:i:s O");
'Date: Tue, 18 Nov 2014 15:57:11 +0000
WScript.Echo "Date: ", sprintf( "{0:yyyy/MM/dd HH:mm:ss}", Array(CurrTime)) & "." & MilliSecs
The output i am trying to achieve is this
Date: Tue, 18 Nov 2022 15:57:11 +0000
But i am missing allot

Answer 1

Function sprintf(sFmt, aData)
With CreateObject("System.Text.StringBuilder")
.AppendFormat_4 sFmt, (aData)
sprintf = .ToString()
.Length = 0
End With
End Function
Dim CurrTime : CurrTime = Now()
WScript.Echo WeekdayName(Weekday(Now()),True) & ", " & Day(Now()) & " " & MonthName(Month(Now()),True) & " " & sprintf( "{0:yyyy HH:mm:ss}", Array(CurrTime)) & " +0000"
Figured out a way to get the output i wanted.