Dim wshell Set wshell = CreateObject(“WScript.Shell”) wshell.Run “%COMSPEC% /c net time \\servername /set /y”,0,TRUE set wshell = Nothing Published On: 20 Mart 2008 / Categories: IpUcu / 0,1 min read /