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

   
Vista:

URGENTE UN EXPERTO !!!???

Publicado por Lilis (3 intervenciones) el 18/05/2009 19:33:19
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Ms-Dos
- Cursos de Ms-Dos
- Temas de Ms-Dos
información
Cursos y Temas de Ms-Dos
- Curso de Ms-Dos Básico
- Manual de MS- DOS
- Manual MS-DOS

RE:URGENTE UN EXPERTO !!!???

Publicado por Armando (195 intervenciones) el 20/05/2009 16:43:48
Saludos.

Espero que este enlace te pueda servir:

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

Hay una seccíón que habla sobre variables.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar