Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
browser.Navigate ("http://www.google.com")
MsgBox "Cargando..."
'es solo para darle tiempo a browser de cargar la web, sería mejor con un sleep o temporizador XD
Set lin = browser.Document.Links
For Each l In lin
MsgBox l.href
Next
set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process")
proceso = "mspaint.exe"
for each process in taskmgr
if process.name = proceso then
msgbox process.executablepath
end if
nextvar taskmgr = GetObject('winmgmts:{impersonationLevel=impersonate}').ExecQuery ('select * from Win32_Process');
var proceso = "mspaint.exe";
process = new Enumerator(taskmgr);
for (; !process.atEnd(); process.moveNext()){
if (process.item().name == proceso){
WScript.echo(process.item().executablepath);
}
}
$string="Cadena a devolver"
For $i = 1 To StringLen($string)
$text = StringMid($string, $i, 1) & $text
Next
MsgBox (0,"Inverso:",$text)
@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*/
---> '\\..\\'==String.fromCharCode(92,92,46,46,92,92)