Is this an NT Machine?
If so, another way would be:

private Sub SyncTime(byval sServerName as string)
Shell "NET time \\" & sServerName & " /set /Y", vbHide
End Sub




Aaron Young
Analyst Programmer
[email protected]
[email protected]