VBScript - Alterar Hora

'Cria um Objeto da categoria Shell e atribui em AlteraHora.
Set AlteraHora = CreateObject("WScript.Shell")


'Atribui o comando que está entre aspas em StringHora.
StringHora = "net time \\192.168.0.1 /set /yes"


'Executa o objeto AlteraHora com parametro (StringHora).
Set objexec = AlteraHora.exec (StringHora)