31 lines
687 B
VB.net
31 lines
687 B
VB.net
Function GetUTC() As String
|
|
Url = "http://tycho.usno.navy.mil/cgi-bin/timer.pl"
|
|
With CreateObject("MSXML2.XMLHTTP.6.0")
|
|
.Open "GET", Url, False
|
|
.send
|
|
arrt = Split(.responseText, vbLf)
|
|
End With
|
|
For Each t In arrt
|
|
If InStr(t, "UTC") Then
|
|
GetUTC = StripHttpTags(t)
|
|
|
|
Exit For
|
|
End If
|
|
Next
|
|
End Function
|
|
|
|
Function StripHttpTags(s)
|
|
With New RegExp
|
|
.Global = True
|
|
.Pattern = "\<.+?\>"
|
|
If .Test(s) Then
|
|
StripHttpTags = .Replace(s, "")
|
|
Else
|
|
StripHttpTags = s
|
|
End If
|
|
End With
|
|
End Function
|
|
|
|
WScript.StdOut.Write GetUTC
|
|
WScript.StdOut.WriteLine
|