source: Option Explicit
  Dim day
  day = WeekdayName(Weekday(Date))
  MsgBox "Test #17 - Today is " & day
target: Add-Type -AssemblyName Microsoft.VisualBasic
  Option Explicit
  
  $day = [Microsoft.VisualBasic.DateAndTime]::WeekdayName([Microsoft.VisualBasic.DateAndTime]::Weekday([Microsoft.VisualBasic.DateAndTime]::Today))
  [Microsoft.VisualBasic.Interaction]::MsgBox "Test #17 - Today is " + $day