Data update

Task/Web-scraping/VBScript/web-scraping.vbs

@@ -0,0 +1,30 @@
+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