que raro, nod32 me bloquea la ip hacia tus pdf  ... en fin me los bajo desde la virtual box para mas seguridad... saludos y gran aporte..thx

TEngo una pregunta, se puede cambiar la fuente o el color de los MSGBOX?

xD

Jajajaja Gracias xDDD

Gracias Novlucker, ahora mismo voy a empezar a aprender : )))

Postearé por el foro cualquier duda que me surja ^^

Alguien me puede hechar una mano con este programita   gracias

Option Explicit 
		dim num, Aleatorio, max
		num=0
		max=25
		Randomize 
		Aleatorio = CInt((max - 1) * Rnd () + 1)
		MsgBox (Aleatorio)
		num=inputbox("Adivina el numero que pienso del 0 al " & max) 
 
		do until num = Aleatorio 
				if num >Aleatorio then
					msgbox ("Es menor")
				else 
					msgbox ("Es mayor")
				end if
				num=inputbox("Prueba otra vez") 
		loop
		msgbox("Acertastes, era el " & Aleatorio)

Hola Muchachos soy nuevo en el foro, observe detenidamente la informacion. Y quizas uds me puedan ayudar. Mi idea es abrir cmd y ejecutar el comando Telnet para una conexion remota a Router. El logrado hacerlo con .run, pero desgraciadamente este ultimo tiene limitaciones en la lectura de la aplicación. Por esa razon opte por .exec debido a la capacidad de leer la aplicacion.
Pues necesito el resultado de la ejecucion del los comandos sobre el router.

Set i = CreateObject("WScript.Shell")
Set tel=i.exec("cmd ")
WScript.Sleep(500)
i.appactivate ping.processid
WScript.Sleep(500)
ping.sendkeys("telnet 10.10.10.10{ENTER}")
WScript.Sleep(500)
ping.sendkeys("password{ENTER}")
WScript.Sleep(500)
ping.sendkeys("comandos{ENTER}")
WScript.Sleep(500)
 
 
Do
if not tel.stdout.atendofstream Then
respuesta = respuesta & tel.stdout.read(1)
Else
Exit Do
End if
Loop
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.OpenTextFile("C:\test.txt",8,true)
archivotexto.Write(respuesta)
archivotexto.writeblanklines(1)
archivotexto.Write("Generacion del Archivo")
archivotexto.writeblanklines(1)
archivotexto.Write("Fecha: " & Date & " - Hora: " & Time)
ping.terminate
 

Nota: Algunas de las lineas de codigo fueron tomadas de aca. Por Favor agradeceria si pudiesen ayudarme.