You could try this. I think you may run into permissions issues though that
go along with the same issues you'd find when trying to access a network
share.
http://www.aspfaq.com/show.asp?id=2168
Response.Write "\\server SNTP server is" & GetSNTPServerSetting("\\server")
& "<br>"
Response.Write "\\server's time is" & GetTime("\\server")
Function GetSNTPServerSetting(hostName)
Dim sCommand, oShell, oExec
sCommand = "%comspec% /c
@echo off & for /f ""tokens=6"" %a in ('net
time " & hostName & " /querysntp') do echo %a"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(sCommand)
GetSNTPServerSetting = oExec.StdOut.ReadAll
Set oExec = Nothing
Set oShell = Nothing
End Function
Function GetTime(hostName)
Dim sCommand, oShell, oExec
sCommand = "%comspec% /c
@echo off & for /f ""tokens=6-8"" %a in ('net
time " & hostName & "') do echo %a %b %c"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(sCommand)
GetTime = oExec.StdOut.ReadAll
Set oExec = Nothing
Set oShell = Nothing
End Function
Ray at work