Ms-Dos - URGENTE UN EXPERTO !!!???

Hola

Estoy creando un windows script para correr un DIR en varios equipos de manera remota.

Si funciona. el problema es que no se como almacenar el resultado en una variable para poder analizarla con un IF.

'// *******' Se crea función para leer el contenido de un txt, que contiene el nombre de los equipos a los que se desea ingreasar.

Const ForReading = 1
Function CountRetries(Oricad, tosearchCad)
count = 0
Do While InStr(OriCad, tosearchCad)
count = count + 1
Oricad = replace (Oricad,tosearchCad,"",1,1)
Loop
CountRetries = count
End Function

'///****** Se crea un objeto para analizar y leer los equipos solicitados.

Set fso = CreateObject("Scripting.FileSystemObject")
Set inputFile = fso.OpenTextFile("d:DIR_SERVERSServidores.txt", ForReading, False)

'///// ***** se abre un DO WHILE para realizar la misma accion en varios equipos.

Do While inputFile.AtEndOfStream <> True

'// /******dato del equipo al que se va a acceder.

retstring = inputFile.ReadLine
strComputer = retstring

wscript.echo "server " & strComputer

Dim WsjShell, oExec, input
Dim strRes

'// *** Se corre el script

Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("cmd")
oExec.StdIn.WriteLine "dir \" & strComputer & "pc | wc"
oExec.StdIn.WriteLine "Exit"

'// Mensaje donde sale el resultado de la cantidad de archivos encontrados en la ruta espec. regresa valores numericos 45 254 78 por ejemplo.

MsgBox oExec.StdOut.ReadAll

'//**** asigno el resultado a una variable para analizarla con un IF
'// *** he aki el problema. la variable no me almacena nadaaaaa...!!!!! ***************
'*****************************************************************************************

strRes = Lcase(oExec.StdOut.ReadAll)
wscript.echo "RESULTADO" & strRes

Loop

MIL GRACIAS

Saludos.

Espero que este enlace te pueda servir:

http://www.robvanderwoude.com/vbstech.php#Databases

Hay una seccíón que habla sobre variables.