Foro de elhacker.net

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

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

PoC:

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

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

Estó?

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

Exacto muchas gracias!!