KB-27707: Alterando a data/hora do micro (BIOS) através do E3.

Descrição:

Como atribuir o valor de data/hora para a BIOS do computador?

Solução:

Uma possível solução é através do script:

Dim oShell
Set oShell = CreateObject("WSCript.shell")
oShell.run "cmd /K DATE "& Application.GetObject("Dados.Data").Value,0 '12/18/2002",0  ' Dia
oShell.run "cmd /K TIME "& Application.GetObject("Dados.Hora").Value,0 '12:00:00",0  ' Hora
Set oShell = Nothing