30 lines
556 B
VB.net
30 lines
556 B
VB.net
Function GetUTC()
|
|
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
|