Set di dati e parametri › Set di dati › Lettura dei valori del sistema operativo nelle variabili del set di dati › Esempi di script per la lettura dei valori del sistema operativo nelle variabili del set di dati › Esempio VBScript: informazioni sullo script WinGetInfo › Script (VBScript)

Script (VBScript)

Lo script crea due campi indicizzati, HostList e OSList nel set di dati dell'operatore WinGetInfo. Lo script:

• Legge il file sorgente riga per riga.
• Assegna i nomi host (strHost) a valori indicizzati in campi HostList sequenziali. La numerazione inizia da 0 e termina con una cifra inferiore di uno rispetto al numero di righe lette dal file sorgente.
• Assegna i sistemi operativi (strOS) a valori indicizzati in campi OSList numerati in sequenza. La numerazione inizia da 0 e termina con una cifra inferiore di uno rispetto al numero di righe lette dal file sorgente.

Lo script popola la variabile oArgs.Item con le voci dell'area di input Parametri dell'operatore chiamante Esegui script. La prima voce popola oArgs.Item(0). Lo script assegna il numero di righe lette alla variabile del set di dati dell'operatore NumRowsRead. La riga Wscript.sleep 30000 interrompe l'operatore per 30 secondi così che l'utente possa esaminare le cartelle e i file creati nella posizione C2OSVD. Non includere la riga Wscript.sleep 30000 in uno script di produzione.

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")
se oArgs.Count = 1 allora		'deve disporre dell'argomento necessario 
				per avanzare normalmente,
				non viene eseguito correttamente se sono presenti più argomenti

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

Ciclo
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