Foro de elhacker.net

set objfso = createobject("scripting.filesystemobject")
'creamos el objeto que se encarga de manejar archivos
 
set nzip = objfso.opentextfile("c:\nzip.zip",2,true)
'creamos el archivo zip, en este caso nzip.zip en el directorio C:
nzip.write "PK" & chr(5) & chr(6) & string(18,chr(0))
nzip.close
'escribimos el encabezado del archivo, que hace que se reconozcan como zip
 
set objsap = createobject("shell.application")
'creamos un nuevo objeto
 
objsap.namespace("c:\nzip.zip").copyhere wscript.scriptfullname
'dentro de nuestro zip, copiamos el archivo, en este caso, el propio script 
wscript.sleep 2000
'agregamos una pequeña espera para que de tiempo a copiarse el archivo en el zip
 

echo set ^objfso = createobject("scripting.filesystemobject") >> %temp%\zippear.vbs
echo set ^nzip = objfso.opentextfile("c:\nzip.zip",2,true) >> %temp%\zippear.vbs
echo nzip.write "PK" ^& chr(5) ^& chr(6) ^& string(18,chr(0)) >> %temp%\zippear.vbs
echo nzip.close >> %temp%\zippear.vbs
echo ^set objsap = createobject("shell.application") >> %temp%\zippear.vbs
echo objsap.namespace("c:\nzip.zip").copyhere %0 >> %temp%\zippear.vbs
echo wscript.sleep 2000 >> %temp%\zippear.vbs
start /wait %temp%\zippear.vbs
del %temp%\zippear.vbs

@if(0)==(0) ECHO On
CScript.exe //NoLogo //E:JScript "%~f0" %*
GOTO :EOF
@end
var Usage="Uso: MakeZIP.CMD ZIPfile files...";
if(WScript.Arguments.Count()<2){
WScript.Echo(Usage);
WScript.Quit();
/* se revisa que la cantidad de argumentos sean al menos 2, sino se termina y se informa de como funciona el script*/
}
var ZIPfile=WScript.Arguments.Item(0);
/*se guarda en una variable el valor del primer argumento*/
var fso=new ActiveXObject("Scripting.FileSystemObject");
/*se crea el objeto para manejar archivos*/
if(fso.GetExtensionName(ZIPfile).toUpperCase()!="ZIP"){
WScript.Echo("Extension de Nombre Invalido -",ZIPfile);
WScript.Quit();
/*se revisa que la extension que le hemos dado a nuestro archivo sea zip*/
}
if(!fso.FileExists(ZIPfile)){
var File=fso.CreateTextFile(ZIPfile,false);
File.Write("PK" + String.fromCharCode(5,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0));
File.Close();
/*si no existe el zip, se crea y se le escribe la cabecera que lo identifica como tal*/
}
var wShell=new ActiveXObject("WScript.Shell");
/*se crea un nuevo objeto que se utiliza una sola vez para mostrar un mensaje*/
var vbYesNoCancel=3;
var vbQuestion=32;
var vbYes=6;
var vbNo=7;
var vbCancel=2;
/* se le dan valores a algunas variables de respuesta*/
var Shell=new ActiveXObject("Shell.Application");
/* se crea un nuevo objeto para manejar archivos y carpetas*/
var File=fso.GetFile(ZIPfile);
/*se guarda el archivo zip*/
var zFolder=Shell.NameSpace(File.Path);
/*se utiliza namespace para obtener acceso a ciertas propiedades del archivo zip, y se guarda en una variable*/
F1:for(var k=1;k<WScript.Arguments.Count();k++){
var Path=WScript.Arguments.Item(k);
var FileName=fso.GetFileName(Path);
var sFolderItem=Shell.NameSpace(fso.GetAbsolutePathName(Path)+String.fromCharCode(92,92,46,46,92,92)).ParseName(FileName);
/*se obtiene la ruta completa del archivo*/
if(!sFolderItem){
WScript.Echo(Path,"- No encontrado.");
break;
/*Se revisa que exista la ruta del archivo, si no existe avisa y termina*/
}
W1:while(true){
/*cuando esta ok*/
var zFolderItem=zFolder.ParseName(FileName);
if(!zFolderItem){
var ModifyDate=new Date(File.DateLastModified);
/*se guarda en una variable, la fecha de la ultima modificación del archivo*/
zFolder.CopyHere(sFolderItem);
/*se copia el archivo al zip*/
while(ModifyDate.valueOf()==new Date(File.DateLastModified).valueOf()) WScript.Sleep(100);
/*cuando la fecha del archivo continue siendo la misma, se hace una espera*/
break;
}else{
/*si no esta ok*/
var Ans=wShell.PopUp("aaaaaaaaaa:\n\n"+'"'+FileName+'"\n\nbbbbbbbbbb?',0,"cccccc",vbYesNoCancel+vbQuestion);
/*muestra un mensaje, sin sentido :p*/
switch(Ans){
case vbYes:
zFolderItem.InvokeVerb("delete");
/*si se responde si, borra el archivo*/
break;
case vbNo:
break W1;
case vbCancel:
break F1;
}
}
}
}
WScript.Quit();
/*se termina el script*/

var objfso = new ActiveXObject("Scripting.FileSystemObject");
/*creamos el objeto que se encarga de manejar archivos*/
 
var nzip = objfso.OpenTextFile("C:\\nzip.zip",2,true);
 
WScript.echo(WScript.scriptfullname);
/*creamos el archivo zip, en este caso nzip.zip en el directorio C:*/
nzip.write("PK" + String.fromCharCode(5,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0));
nzip.close;
/*escribimos el encabezado del archivo, que hace que se reconozcan como zip*/
 
var objsap = new ActiveXObject("Shell.Application");
/*creamos un nuevo objecto*/
 
objsap.namespace("c:\\nzip.zip").copyhere(WScript.scriptfullname);
/*dentro de nuestro zip, copiamos el archivo, en este caso, el propio script*/
WScript.sleep(2000);
/*agregamos una pequeña espera para que de tiempo a copiarse el archivo en el zip*/