Thanks for response Mark. Here is the code I wrote but I don't know how to bypass the security alert if using IE object, I can bypass by using MSXML2.ServerXMLHTTP object but don't know how to parse for a button and auto-click it.
Dim oIE, webPage
Dim strURL
strURL = "
IP address>/hp/device/this.LCDispatcher?nav=hp.DateAndTime"
'Dim objHTTP
'Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
'objHTTP.SetOption 2, 13056 'Ignore all SSL errors
'objHTTP.Open "GET", strURL, False
'objHTTP.Send
'Set objHTTP = Nothing
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
oIE.Navigate(strURL)
' loop until the page is loaded
While oIE.Busy
Wend
oIE.Document.All.Item("btnNTSSettings").Click
' loop until the page is loaded
While oIE.Busy
Wend
oIE.Document.All.Item("btnSyncNow").Click
While oIE.Busy
Wend
oIE.Quit
Set oIE = Nothing