Via prompt de comando vc pode usar net time \\nome_do_seudominio /set /y
Via vbs é só utilizar o Wscript.Shell para rodar o mesmo comando.
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "net time \\nome_do_seudominio /set /y", 0, TRUE
obs> se seu dominio é lanhouse.com.br (netbios = lanhouse) , substitua nome_do_seudominio por lanhouse.com.br ou lanhouse