Another update from ingydotnet^djgoku

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

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