Code:

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Public Function DownloadFile(sSourceUrl As String, _
                             sLocalFile As String) As Boolean

  //'Download the file. BINDF_GETNEWESTVERSION forces 
  //'the API to download from the specified source. 
  //'Passing 0& as dwReserved causes the locally-cached 
  //'copy to be downloaded, if available. If the API 
  //'returns ERROR_SUCCESS (0), DownloadFile returns True.
   DownloadFile = URLDownloadToFile(0&, _
                                    sSourceUrl, _
                                    sLocalFile, _
                                    BINDF_GETNEWESTVERSION, _
                                    0&) = ERROR_SUCCESS

End Function

Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _ Alias "DeleteUrlCacheEntryA" _ (ByVal lpszUrlName As String) As Long



Dim Message, result
Dim Title, Text1, Text2

' Define dialog box variables.
Message = "Please enter IP Address. Your Log files are going to be in 'c:/ip_address-date' folder" 
Title = "RF Scanner Log downloader"
Text1 = "User input canceled"
Text2 = vbCrLf


' Ready to use the InputBox function
' InputBox(prompt, title, default, xpos, ypos)
' prompt: The text shown in the dialog box
' title: The title of the dialog box
' default: Default value shown in the text box
' xpos/ypos: Upper left position of the dialog box 
' If a parameter is omitted, VBScript uses a default value.

result = InputBox(Message, Title, "Something like 10.67.184.15", 100, 100)

' Evaluate the user input.
If result = "" Then ' Canceled by the user
WScript.Echo Text1
Else
WScript.Echo Text2 & result
' Da bi skinuo fajl, pozoveš ove dve funkcije
DeleteUrlCacheEntry("http://download.cdn.mozilla.ne...S/Firefox%20Setup%2016.0.1.exe") ' da ocistis kes
DownloadFile("http://download.cdn.mozilla.ne...S/Firefox%20Setup%2016.0.1.exe", _
                             "C:\Users\Burgos\Desktop\Firefox.exe")
End If

'*** End

Code:

Option Explicit

Dim Message, result
Dim Title, Text1, Text2, strDate
Dim d : d = Date()
Dim dateStr : dateStr = Year(d) & "-" & Right("00" & Month(d), 2) & "-" & Right("00" & Day(d), 2)




' Define dialog box variables.
Message = "Please enter IP Address. Your Log files are going to be in 'c:/ip_address-date' folder"         
Title = "RF Scanner Log downloader"
Text1 = "User input canceled"
Text2 = vbCrLf
strDate = Date()

' Ready to use the InputBox function
' InputBox(prompt, title, default, xpos, ypos)
' prompt:    The text shown in the dialog box
' title:     The title of the dialog box
' default:   Default value shown in the text box
' xpos/ypos: Upper left position of the dialog box 
' If a parameter is omitted, VBScript uses a default value.

result = InputBox(Message, Title, "Something like 10.67.184.15", 100, 100)


' Evaluate the user input.
If result = "" Then    ' Canceled by the user
    WScript.Echo Text1
Else


WScript.Echo ""&result&"-"&datestr
WScript.Echo "http://"&result&"/netcap0.log"



End If

Code:
MkDir ""&result&"-"&datestr

Code:
DeleteUrlCacheEntry "http://"&result&"/netcap0.log"
DownloadFile("http://"&result&"/netcap0.log", _
                             ""&result&"-"&datestr&"/netcap0.log")

Code:
Set objFSO = CreateObject("Scripting.FileSystemObject")
'za svaki folder, pozovi ovu funkciju - onu iznad samo jedanput. 
objFSO.CreateFolder ""&result&"-"&datestr 

Code:
Option Explicit

Dim Message, result
Dim Title, Text1, Text2, strDate
Dim d : d = Date()
Dim dateStr : dateStr = Year(d) & "-" & Right("00" & Month(d), 2) & "-" & Right("00" & Day(d), 2)




' Define dialog box variables.
Message = "Please enter IP Address. Your Log files are going to be in 'c:/ip_address-date' folder"         
Title = "RF Scanner Log downloader"
Text1 = "User input canceled"
Text2 = vbCrLf
strDate = Date()

' Ready to use the InputBox function
' InputBox(prompt, title, default, xpos, ypos)
' prompt:    The text shown in the dialog box
' title:     The title of the dialog box
' default:   Default value shown in the text box
' xpos/ypos: Upper left position of the dialog box 
' If a parameter is omitted, VBScript uses a default value.

result = InputBox(Message, Title, "Something like 10.67.184.15", 100, 100)


' Evaluate the user input.
If result = "" Then    ' Canceled by the user
    WScript.Echo Text1
Else

Set objFSO = CreateObject("Scripting.FileSystemObject")
'za svaki folder, pozovi ovu funkciju - onu iznad samo jedanput. 
objFSO.CreateFolder ""&result&"-"&datestr 
DeleteUrlCacheEntry "http://"&result&"/netcap0.log"

DownloadFile "http://"&result&"/netcap0.log", _
                             ""&result&"-"&datestr&"/netcap0.log"



End If

Code:


' Get input from the user (IP address)
Dim IP
IP = InputBox( "Enter target IP address:" )

' Establish a Folder name & Create a folder
' Folder Name IP_DATE
Dim myDateString
myDateString = Date()
myDateString = Replace(myDateString, "/", "-") 'Must get rid of / in date, otherwise folder creation will fail

Dim FolderName
FolderName = IP & "_" & myDateString

' Now create a folder 
Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
oFSO.CreateFolder FolderName
 
' Download the files 
HTTPDownload "http://" & IP & "/netlog0.cap", FolderName
HTTPDownload "http://" & IP & "/netlog1.cap", FolderName
HTTPDownload "http://" & IP & "/scrncap.bmp", FolderName
HTTPDownload "http://" & IP & "/TELog.txt", FolderName
HTTPDownload "http://" & IP & "/deviceinfo.txt", FolderName
HTTPDownload "http://" & IP & "/processsummary.txt", FolderName
HTTPDownload "http://" & IP & "/TelnetLog.txt", FolderName
HTTPDownload "http://" & IP & "/TelnetLog.txt.1", FolderName
HTTPDownload "http://" & IP & "/TelnetLog.txt.2", FolderName
HTTPDownload "http://" & IP & "/TelnetLog.txt.3", FolderName
HTTPDownload "http://" & IP & "/TelnetLog.txt.4", FolderName

' Create archive from the newly created folder
CreateZip FolderName & ".zip", FolderName




' SUBROUTINES

Sub HTTPDownload( myURL, myPath )
' This Sub downloads the FILE specified in myURL to the path specified in myPath.

    Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    Set objFSO = CreateObject( "Scripting.FileSystemObject" )

    If objFSO.FolderExists( myPath ) Then
        strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) )
    ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then
        strFile = myPath
    Else
        WScript.Echo "ERROR: Target folder not found."
        Exit Sub
    End If

    Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )

    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

    objHTTP.Open "GET", myURL, False
    objHTTP.Send

    For i = 1 To LenB( objHTTP.ResponseBody )
        objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
    Next

    objFile.Close( )
End Sub

Sub NewZip(pathToZipFile)         
    Dim fso    
    Set fso = CreateObject("Scripting.FileSystemObject")    
    Dim file    
    Set file = fso.CreateTextFile(pathToZipFile)      
    
    file.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)      
    file.Close   

    Set fso = Nothing   
    Set file = Nothing    
    WScript.Sleep 500   
End Sub

Sub CreateZip(pathToZipFile, dirToZip)      
    'WScript.Echo "Creating zip  (" & pathToZipFile & ") from (" & dirToZip & ")"      
    Dim fso    
    Set fso= Wscript.CreateObject("Scripting.FileSystemObject")      
    pathToZipFile = fso.GetAbsolutePathName(pathToZipFile)    
    dirToZip = fso.GetAbsolutePathName(dirToZip)      
    If fso.FileExists(pathToZipFile) Then       
        'WScript.Echo "That zip file already exists - deleting it."        
        fso.DeleteFile pathToZipFile    
    End If     

    If Not fso.FolderExists(dirToZip) Then       
        'WScript.Echo "The directory to zip does not exist."        
        Exit Sub   
    End If     

    NewZip pathToZipFile      
    dim sa    
    set sa = CreateObject("Shell.Application")      
    Dim zip    
    Set zip = sa.NameSpace(pathToZipFile)          
    Dim d    
    Set d = sa.NameSpace(dirToZip)      
    ' Look at http://msdn.microsoft.com/en-us/library/bb787866(VS.85).aspx   
    ' for more information about the CopyHere function.    
     zip.CopyHere d.items, 4      
         Do Until d.Items.Count <= zip.Items.Count        
         Wscript.Sleep(200)    
     Loop  
     
 End Sub

Code:
Set-ExecutionPolicy unrestricted