Conjuntos de dados e parâmetros › Conjuntos de dados › Ler valores do sistema operacional em variáveis do conjunto de dados › Os scripts de exemplo para ler valores do sistema operacional nas variáveis do conjunto de dados › Exemplo VBScript: informações do script WinGetInfo › Script (VBScript)

Script (VBScript)

O script cria dois campos indexados, HostList e OSList, no conjunto de dados do operador WinGetInfo. O script:

• Lê o arquivo de origem, linha por linha.
• Atribui nomes de host (strHost) a valores indexados em campos HostList sequenciais. A numeração começa em 0 e termina em um número a menos que o número de linhas lidas no arquivo de origem.
• Atribui sistemas operacionais (strOS) aos valores indexados em campos OSList numerados sequencialmente. A numeração começa em 0 e termina em um número a menos que o número de linhas lidas no arquivo de origem.

O script preenche a variável oArgs.Item com as entradas da área de entrada de parâmetros da chamada do operador Executar o script. A primeira entrada preenche oArgs.Item(0). O script atribui o número de linhas que lê à variável do conjunto de dados do operador NumRowsRead. A linha Wscript.sleep 30000 pausa o operador por 30 segundos para que o usuário possa examinar as pastas e os arquivos criados no local C2OSVD. Você não incluiria a linha Wscript.sleep 30000 em um script de produção.

Esmaecer oArgs
Esmaecer oShell
Esmaecer colProcessEnv
Esmaecer objFSO
Esmaecer objDir
Esmaecer objFileIn
Esmaecer objFileOut
Esmaecer intCounter
Esmaecer intExitCode
Esmaecer strLine
Esmaecer intSpacePos
Esmaecer strHost
Esmaecer strOS
no próximo resumo de erro
definir oArgs = WScript.Arguments
definir oShell = WScript.CreateObject ("WScript.Shell")
definir colProcessEnv = oShell.Environment ("Processo")
if oArgs.Count = 1 then		'must have the required argument 
				to proceed normally,
				fails if more arguments are present

strSourceFile = oArgs.Item(0)
Definir objFSO = CreateObject("Scripting.FileSystemObject")
Definir objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD"))
Definir objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD") & "\HostList")
Definir objDir = objFSO.CreateFolder(colProcessEnv("C2OSVD") & "\OSList")
intCounter = 0
Definir objFileIn = objFSO.OpenTextFile(strSourceFile, 1)
Fazer até objFileIn.AtEndOfStream

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

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

else

'WScript.echo "argumento incorreto ou argumento necessário NÃO está presente"
intExitCode = 5

terminar se
Wscript.sleep 30000
on error goto 0
Wscript.Quit intExitCode