Function DomainName(strUrl)
'Converts "http://machine.site.com/foo.txt" to "site.com"
Dim strTemp, strName, strTld
	strTemp = strUrl
	'Now at "http://machine.site.com/foo.txt"
	If InStr(1, strTemp, "http://", vbTextCompare) = 1 Then strTemp = Mid(strTemp, 8)
	'Now at "machine.site.com/foo.txt"
	strTemp = Split(strTemp, "/")(0)
	'Now at "machine.site.com"
	strTld = Split(strTemp, ".")(UBound(Split(strTemp, ".")))
	'Got the "com" part
	strName = Split(strTemp, ".")(UBound(Split(strTemp, ".")) - 1)
	'Got the "site" part
	DomainName = strName & "." & strTld
End Function