rotate-backup.vbs

Option Explicit

Private Function ValidateArguments()
    If Not WScript.Arguments.Named.Exists("srcfile") Then
        WScript.Echo("srcfile is required.")
        ValidateArguments = False
        Exit Function
    End If
    If Not WScript.Arguments.Named.Exists("dstdir") Then
        WScript.Echo("dstdir is required.")
        ValidateArguments = False
        Exit Function
    End If
    ValidateArguments = True
End Function

Private Sub EchoDateTimeFunction()
    WScript.Echo("Echo VBScript Date/Time Function result")
    Dim dtmToday, dtmNow
    dtmToday = Date()
    WScript.Echo("Date()         :" & dtmToday)
    WScript.Echo("Year(today)    :" & Year(dtmToday))
    WScript.Echo("Month(today)   :" & Month(dtmToday))
    WScript.Echo("Day(today)     :" & Day(dtmToday))
    WScript.Echo("Weekday(today) :" & Weekday(dtmToday))
    Select Case Weekday(dtmToday)
        Case vbSunday
            WScript.Echo("Sunday sun sun")
        Case vbMonday
            WScript.Echo("Monday mon mon")
        Case vbTuesday
            WScript.Echo("Tuesday tue tue")
        Case vbWednesday
            WScript.Echo("Wednesday wed wed")
        Case vbThursday
            WScript.Echo("Thursday thu thu")
        Case vbFriday
            WScript.Echo("Friday fri fri")
        Case vbSaturday
            WScript.Echo("Saturday sat sat")
        Case Else
            WScript.Echo("Invalid Weekday")
    End Select
    dtmNow = Now()
    WScript.Echo("Now()       :" & dtmNow)
    WScript.Echo("Hour(now)   :" & Hour(dtmNow))
    WScript.Echo("Minute(now) :" & Minute(dtmNow))
    WScript.Echo("Second(now) :" & Second(dtmNow))
End Sub

Private Function PadLeft(ByVal strValue, ByVal intTotalLength, ByVal strPadding)
    Dim strResult
    strResult = strValue
    While Len(strResult) < intTotalLength
        strResult = strPadding & strResult
    Wend
    PadLeft = strResult
End Function

Private Function FormatDate(ByVal dtmDate)
    Dim strYear, strMonth, strDay
    strYear = CStr(Year(dtmDate))
    strMonth = PadLeft(CStr(Month(dtmDate)), 2, "0")
    strDay = PadLeft(CStr(Day(dtmDate)), 2, "0")
    FormatDate = strYear & "-" & strMonth & "-" & strDay
End Function

Private Function Main()
    If Not ValidateArguments() Then
        Main = 1
        Exit Function
    End If
    Dim strSrcFile, strDstDir
    strSrcFile = WScript.Arguments.Named.Item("srcfile")
    strDstDir = WScript.Arguments.Named.Item("dstdir")

    Call EchoDateTimeFunction()
    Dim strDate
    strDate = FormatDate(Date())
    WScript.Echo("strDate: " & strDate)

    WScript.Echo("Hello, WSH!")
    WScript.Echo()

    WScript.Echo("srcfile:" & strSrcFile)
    WScript.Echo("dstdir :" & strDstDir)
    WScript.Echo()

    Main = 0
End Function

WScript.Quit(Main())