- Abrimos el Bloc de Notas- Copiamos este texto:Set ShellApp = CreateObject("Shell.Application")Set Ret = ShellApp.BrowseForFolder(0, "Seleccione una Carpeta", 16384)MsgBox Ret.Self.Path- Lo guardamos con extensión ".vbs"
Más
vbscript
Seleccionar un archivo con VBScript
Con este método, podremos seleccionar archivos con nuestro VBScript, lo haremos haciendo una llamada a Internet Explorer, y este nos dara la ruta del archivo (sin el fakepath).
- Abrimos el Bloc de Notas
- Copiamos este texto:
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
incluir1 = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\160A")
On Error Resume Next
incluir2 = WshShell.RegRead("HKCU\Software\Microsoft\Windows\Curre...
Más
EJECUTAR UN PROGRAMA CON VBSCRIPT (VBS)
Creamos un archivo con extensión .VBS, lo podemos crear con el Bloc de Notas.En el ejemplo siguiente ejecutará el "Símbolo de Sistema"Set WshShell = WScript.CreateObject("WScript.Shell")Return = WshShell.Run("cmd.exe", 1, true)Donde:cmd.exe --> Es la aplicación que se va a ejecutar.1 --> Indica que la ventana se abrirá normal, 2 indicaría minimizada y 3 maximizadatrue --> Indica que se esperará a que se cierre la aplicación para continuar ejecutando el código, si no queremos que se espere pondre...
Más
Como Encriptar VBS (VBScript)
- Descargamos e instalamos el programa MS Script Encoder Download Page
- La carpeta por defecto de instalación es "C:\Archivos de programa\Windows Script Encoder"
- Entramos en "Simbolo de Sistema" (cmd.exe), nos vamos a ésta carpeta y escribimos:
screnc.exe /l vbscript archivo.vbs archivo.vbe
Donde:
archivo.vbs --> Es el archivo VBScript
archivo.vbe --> Es el archivo VBScript encriptado
Más