McAfee DAT Download - UPDATED!
This code will automatically download and execute the McAfee SuperDAT. It will delete the old SuperDAT, copy the new SuperDAT from NAI's FTP server, and silently run the update.
Original Author: JFV
Assumptions
The code will run until the file has been downloaded to your computer and run.
Updated with the Function in it... Thanks for pointing that out!
Code
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
Dim i As String
Dim j As String
Dim x As Integer
Dim fso
Dim fil
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.OpenTextFile(App.Path & "CopyLog.log", 8, True)
j = "C:1 ShareMcAfee 4.5.1 Install ToolsSDAT" 'Download location
On Error Resume Next
fso.DeleteFile j & "sdat*.exe", True 'Delete old SuperDAT file
On Error GoTo ErrorFTP
x = 4248
Do While Now = Now 'Run continuously
i = "ftp://ftp.nai.com/pub/antivirus/superdat/intel/sdat" & x & ".exe" 'Location and file to download from
DoEvents 'Do Windows Events
URLDownloadToFile 0, i, j & "sdat" & x & ".exe", 0, 0 'Download the file to your Download Location
DoEvents
s = "sdat" & x & ".exe"
If fso.FileExists(j & s) Then 'If the file exists,
Shell j & s & " -s" 'then run the SuperDAT in Silent Mode
Set fso = Nothing 'Destroy Objects
Set fil = Nothing
Exit Sub 'Exit Sub or Unload Me
End If
x = x + 1 'Add another number and
Loop 'loop to start again if not terminated.
ErrorFTP:
fil.WriteLine "FTP Error: " & Err.Number & " " & Err.Description
Resume Next
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.