Script:

' Script para mostrar o dia da semana
Dim diaSemana

' Obter o dia da semana atual
diaSemana = WeekdayName(Weekday(Date))

' Exibir o dia da semana em uma caixa de mensagem
MsgBox "Hoje é " & diaSemana, vbInformation, "Dia da Semana"

Como Executar o Script:

1. Abra o Bloco de Notas no seu computador.
2. Copie e cole o código acima no Bloco de Notas.
3. Salve o arquivo com a extensão .vbs. Por exemplo, mostrar_dia_da_semana.vbs.
4. Navegue até o local onde você salvou o arquivo.
5. Dê um duplo clique no arquivo mostrar_dia_da_semana.vbs para executá-lo.
6. Uma caixa de mensagem aparecerá mostrando o dia da semana atual.