Meter datos por teclado en Vbs?

[WiZZard]

Pues eso, mi duda es: ¿como se pueden meter datos por teclado en vbs?

[Shell Root]

Código (vb) [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
Objshell.sendkeys "Estas son las teclas"

PoC:

Código (vb) [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
Set bloc = objshell.exec("notepad") 'ejecutamos el bloc de notas
Wscript.sleep 2000 'espera de dos segundos
Objshell.appactivate bloc.processid 'ponemos el foco en la ventana del bloc
Wscript.sleep 200 'espera de milesimas
Objshell.sendkeys "Tutorial vbs" 'enviamos un mensaje con sendkeys
Objshell.sendkeys "{ENTER}" 'luego del mensaje anterior, un ENTER
Wscript.sleep 2000 'nueva espera de dos segundos
Objshell.sendkeys "Probando la funcion sendkeys" 'enviamos una segunda linea de mensaje

Fuente: http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html

[WiZZard]

Gracias por las respuesta Shell Root pero no era eso lo que preguntaba.

sendkeys lo que hace es mandar letras a una ventana.

Yo lo que quiero es asignar a una variable, el valor de algo escrito por el usuario

como:

set /P variable=

en bach

[Shell Root]

Estó?

Código (vb) [Seleccionar] Expandir

Dim sVariable
sVariable = InputBox("Ingrese su nombre")
MsgBox(sVariable)

[WiZZard]

Exacto muchas gracias!!