Ensembles de données et paramètres › Ensembles de données › Lecture des valeurs de système d'exploitation dans les variables d'ensemble de données › Exemple de scripts pour lire des valeurs de système d'exploitation dans des variables d'ensemble de données › Exemple de VBScript : Informations de script WinGetInfo › Script (VBScript)

Script (VBScript)

Le script crée deux champs indexés, HostList et OSList dans l'ensemble de données d'opérateur WinGetInfo. Le script :

• Lit le fichier source ligne par ligne.
• Affecte des noms d'hôte (strHost) à des valeurs indexées dans des champs HostList séquentiels. La numérotation commence par 0 et se termine à une unité de moins que le nombre de lignes lues dans le fichier source.
• Affecte des systèmes d'exploitation (strOS) à des valeurs indexées dans des champs OSList numérotés de façon séquentielle. La numérotation commence par 0 et se termine à une unité de moins que le nombre de lignes lues dans le fichier source.

Le script remplit la variable oArgs.Item avec les données contenues dans la zone Paramètres de l'opérateur appelant Exécuter un script. La première entrée remplit le champ oArgs.Item(0). Le script affecte le nombre de lignes lues dans la variable d'ensemble de données d'opérateur NumRowsRead. La ligne Wscript.sleep 30000 interrompt l'opérateur pendant 30 secondes. L'utilisateur a ainsi le temps d'examiner les dossiers et fichiers créés à l'emplacement C2OSVD. Vous ne devez pas inclure la ligne Wscript.sleep 30000 dans un script de production.

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		'must have the required argument 
				to proceed normally,
				fails if more arguments are present

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

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

else

'Wscript.echo "argument incorrect ou argument requis NON présent"
intExitCode = 5

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