Conjuntos de datos y parámetros › Conjuntos de datos › Lectura de valores del sistema operativo en variables de un conjunto de datos › Scripts de ejemplo para leer valores del sistema operativo en variables del conjunto de datos › Ejemplo de VBScript: información de Script WinGetInfo › Script (VBScript)

Script (VBScript)

El script crea dos campos indexados, HostList y OSList, en el conjunto de datos de operador WinGetInfo. El script:

• Lee el archivo fuente línea por línea.
• Asigna nombres de host (strHost) a valores indexados en campos HostList secuenciales. La numeración empieza a partir de 0 y finaliza en una unidad menos que el número de filas leídas en el archivo fuente.
• Asigna sistemas operativos (strOS) a valores indexados en campos OSList numerados secuencialmente. La numeración empieza a partir de 0 y finaliza en una unidad menos que el número de filas leídas en el archivo fuente.

El script rellena la variable oArgs.Item con las entradas del área de introducción Parámetros del operador Ejecutar script que realiza la llamada. La primera entrada rellena oArgs.Item(0). El script asigna el número de filas que lee a la variable del conjunto de datos del operador NumRowsRead. La línea Wscript.sleep 30000 hace una pausa en el operador durante 30 segundos para que el usuario pueda examinar las carpetas y los archivos creados en la ubicación C2OSVD. No se recomienda incluir la línea Wscript.sleep 30000 en un script de producción.

Dim oArgs
Dim oShell
Dim colProcessEnv
Dim objFSO
Dim objDir
Dim objFileIn
Dim objFileOut
Dim intCounter
Dim intExitCode
Dim strLine
Dim intSpacePos
Dim strHost
Dim strOS
on error resume next
set oArgs = WScript.Arguments
set oShell = WScript.CreateObject("WScript.Shell")
Set colProcessEnv = oShell.Environment("Process")
if oArgs.Count = 1 then		'debe tener el argumento requerido 
				para continuar normalmente,
				produce un error si hay más argumentos presentes

strSourceFile = oArgs.Item(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD"))
Set objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD") & "\HostList")
Set objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD") & "\OSList")
intCounter = 0
Set objFileIn = objFSO.OpenTextFile(strSourceFile, 1)
Do Until objFileIn.AtEndOfStream

strLine = objFileIn.ReadLine
intSpacePos = InStr(strLine, " ")
strHost = Left(strLine, intSpacePos - 1)
strOS = Right(strLine, Len(strLine) - intSpacePos)
Set objFileOut = objFSO.CreateTextFile(colProcessEnv("C2OSVD") & "\HostList\" & intCounter)
objFileOut.Write strHost
objFileOut.Close
Set objFileOut = objFSO.CreateTextFile(colProcessEnv("C2OSVD") & "\OSList\" & intCounter)
objFileOut.Write strOS
objFileOut.Close
intCounter = intCounter + 1

Bucle
objFileIn.close
Set objFileOut = objFSO.CreateTextFile(colProcessEnv("C2OSVD") & "\NumRowsRead")
objFileOut.Write intCounter
objFileOut.Close
intExitCode = 0

else

'Wscript.echo "bad argument or required argument NOT present"
intExitCode = 5

end if
Wscript.sleep 30000
on error goto 0
Wscript.Quit intExitCode