Как узнать имя файла в сети

function getfile(url)
strFileURL = url
    strHDLocation = "file.doc"
 
' Fetch the file
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
 
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
 
objADOStream.Write objXMLHTTP.ResponseBody
WScript.Echo objXMLHTTP.name
objADOStream.Position = 0    'Set the stream position to the start
 
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
 
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
 
Set objXMLHTTP = Nothing
End Function
 
 
getfile("http://tmnforever.tm-exchange.com/get.aspx?action=trackgbx&id=3701368")