Ocultar ventana de apagado

[Ari Slash]

Si se puede, al derecho, y al reves  , es decir, puedes meter *.vbs dentro de *.bat, y puedes meter ordenes de línea de comandos en *.vbs

bat

echo msgbox "Hola ari-slash" >> %temp%\miscript.vbs
start /wait %temp%\miscript.vbs
del %temp%miscript.vbs

vbs

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
objshell.run "ping www.google.com"

Saludos

son el uno para el otro

salu2

[Zaraki_lkenpachi]

uhm y en eso de que el VBS puede ejecutar comandos del batch como haria por ejemplo para hacer un Dir y que la lista se guarde dentro de una variable sera una variable Array ? o una simple ...

Otra cosa como haria si quiero pro ejemplo utilziar el cacls en mi VBS pongo Obj_SH.Run "Cacls" pero no me acuerdo lo parametro la cosa es que quiero bloquear la entrada a un usuario a tal carpeta y al final me pide confirmar como hago para enviarle el S como entrada a el Cmd para onfirmarle que estoy seguro de lo que hago ???


Gracias

[leogtz]

Con batch se podria hacer asi :

Código (dos) [Seleccionar] Expandir

echo Y| cacls %homedrive% /d %allusersprofile%

Si te fijas se le esta pasando "Y", para confirmar.

Saludos.

[Zaraki_lkenpachi]

  Muchisimas Gracias Tio del Batch  eres muy bueno en ello 

[leogtz]

Naaa, solo lo basico.
Saludos 

[Novlucker]

uhm y en eso de que el VBS puede ejecutar comandos del batch como haria por ejemplo para hacer un Dir y que la lista se guarde dentro de una variable sera una variable Array ? o una simple ...

El primer método es ejecutando los comandos como si fuese desde el ms-dos y redirigiendo la salida a un archivo, que luego se podría leer...

Código (vb) [Seleccionar] Expandir

Set objshell = CreateObject("wscript.shell")
objshell.run "cmd /c cd\ & cd windows & dir *.bmp >> C:\resultado.txt"
' Me muevo al directorio raíz, luego a windows, y luego listo todos los archivos bmp

wscript.sleep 800
objshell.run "c:\resultado.txt"

El segundo método, casi nadie lo utiliza 

Código (vb) [Seleccionar] Expandir

Set objshell = CreateObject("wscript.shell")
Set msdos    = objshell.Exec("cmd /c cd\ & cd windows & dir *.bmp")
' Me muevo al directorio raíz, luego a windows, y luego listo todos los archivos bmp

wscript.sleep 1000
output = msdos.stdout.Readall
'La variable output guarda los datos
msgbox output

El problema de este método es que no puede ocultar la pantallita negra 

Saludos

[Zaraki_lkenpachi]

Asha tu eres el tio del VBS Claro xD jajaja entiendo todo eso y bueno eso de usar la & Comercial dentro de en Run "  & & " para ejecutar varias cosas nu lo sabia  algo nuevo que  aprendo  y eso de ocultar la ventanita en el primer metodo despues de pasarles le pondria el VbHide cierto ? para no ver la pantalla xD

Set objshell = CreateObject("wscript.shell")objshell.run "cmd /c cd\ & cd windows & dir *.bmp >> C:\resultado.txt", VbHide

[Novlucker]

Exacto... luego con un opentextfile podrías abrir el resultado.txt y guardar su texto en una variable  , es sencillo

Saludos