VBS ПОЗДРАВЛЕНИЕ

Формулировка задачи:

Добрый день! Хочу реализовать простой скрипт для поздравления девушки с 14 февраля.То есть чтобы он сам запустился в этот назначенный день, вывел окно с поздравлением и фото по возможности

Решение задачи: «VBS ПОЗДРАВЛЕНИЕ»

textual
                            Листинг программы 
                        

                            strFile = "c:\temp\feb-14.html"
strImage = "c:\temp\картинка.jpg"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FileExists(strFile) And objFS.FileExists(strImage) Then
    On Error Resume Next
    Set objWShell = CreateObject("WScript.Shell")
    objWShell.Run "iexplore.exe " & strFile, 1, True
    Set objWShell = Nothing
    If Err.Number <> 0 Then Err.Clear
Else
    MsgBox "Поздравляю!"
End If
Set objFS = Nothing
WScript.Quit 0
                        