Option Explicit

WScript.Echo FormatDateTimeYYYYMMDD(WScript.CreateObject("Scripting.FileSystemObject").GetFile("c:\boot.ini").DateLastModified)

WScript.Echo FormatDateTimeYYYYMMDD(#01/31/2013#)
WScript.Echo FormatDateTimeYYYYMMDD("31.01.2013")

' Следующая строка вызовет ошибку. Для демонстрации
WScript.Echo FormatDateTimeYYYYMMDD("29.02.2013")

WScript.Quit 0
'=============================================================================

'=============================================================================
Function FormatDateTimeYYYYMMDD(dtDate)
    If IsDate(dtDate) Then
        FormatDateTimeYYYYMMDD = _
            Right("0000" & Year(CDate(dtDate)),  4) & _
            Right("00"   & Month(CDate(dtDate)), 2) & _
            Right("00"   & Day(CDate(dtDate)),   2)
    Else
        Err.Raise 13, "FormatDateTimeYYYYMMDD", "Несоответствие типа параметра [dtDate]"
    End If
End Function
'=============================================================================