'************************************************
' ÀÉ®×: Welcome.vbs (WSH sample in VBScript)
' §@ªÌ:  (c) G. Born
'
' ¨Ï¥ÎMsgBox¨ÓÅã¥Ü¨C¤ÑÅܧóªºÅwªï°T®§
'************************************************
Option Explicit

' ©w¸q±`¼Æ»PÅܼÆ
Const title = "Hello,!"    ' ¨Ï¥ÎªÌ¦WºÙ
Dim text
Dim cNotes

' ²{¦b§Ú­Ì©w¸q©ñ¸m¨C¤é°T®§ªº°}¦C
cNotes = Array ( _
            "¼K¡A¤µ¤Ñ¬O¬P´Á¤Ñ¡C¡I", _
            "¤µ¤Ñ¬O¬P´Á¤@¡C¡C", _
            "­ü§r¡A¤µ¤Ñ¬O¬P´Á¤G¡C¡C", _
            "§O¾á¤ß¡A¤µ¤Ñ¤~¬P´Á¤T,¡C", _
            "§ÖÂI°Ú¡A¤µ¤Ñ¤w¸g¬O¬P´Á¥|¤F,¡C", _
            "Á¤ÑÁ¦a¡A²×©ó¨ì¤F¬P´Á¤­,¡C", _
            "¬P´Á¤»¡I³o­Ó¶g¥½¦ó¤£©ñÃP¤@¤U©O,")

' ³o¸Ì§Ú­Ì©w¸qÅwªï°T®§¤¤ªº¤é´Á
text = WeekDayName(Weekday(Now()), False, 1) & _
        ", " & MonthName(Month(Now)) & " " & _
        Day(Now()) & ", " & _
        Year(Now())

' ²{¦b§Ú­Ìªþ¥[¦Û­qªº°T®§¨ì¤é´Áªº«á­±
text = text & vbCrLf & vbCrLf & cNotes(Weekday(Now()) - 1)

' Åã¥Ü°T®§
MsgBox Text, vbOKOnly + vbInformation, title

'*** µ{¦¡µ²§ô