Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "Intranet_Virus\uninstaller_one.vbs"
CreateObject("Wscript.Shell").Run "Intranet_Virus\uninstall.bat",0,True
WScript.Sleep 4500
Set WshShell = WScript.CreateObject("WScript.Shell")
CreateObject("Wscript.Shell").Run "Intranet_Virus\task_deleter.bat",0,True