cURL = InputBox("Write a full url of file to be downloaded!")
If cURL<>"" Then
	 Dim strDIR
		 strDIR = WScript.ScriptFullName
		 strDIR = Left(strDIR,InStrRev(strDIR,"\"))
	 Dim strFIL
		 strFIL = Mid(cURL,InStrRev(cURL,"/")+1)
	 Dim objADO
	 Set objADO = CreateObject("ADODB.Stream")
	 Dim objXML
	 Set objXML = CreateObject("Microsoft.XMLHTTP")
		 objXML.Open "GET", cURL, False
		 objXML.Send
	 If Err.Number = 0 And objXML.Status = 200 Then
		 objADO.Type = 1
		 objADO.Open
		 objADO.Write objXML.ResponseBody
		 objADO.SaveToFile strDIR & strFIL,2
		 booMSG = True
	 End If
	 Set objADO = Nothing
	 Set objXML = Nothing
End if