Листинг 4. Чтение из текстового файла

BEGIN COMMENT LINE
?Присвоение значение константе INPUT_FILE_NAME и объявление о чтении файла.
END COMMENT LINE
Const INPUT_FILE_NAME = «C:ScriptsServers.txt»
Const FOR_READING = 1
BEGIN COMMENT LINE
?Создать объект для файла.
END COMMENT LINE
Set oFSO = CreateObject(«Scripting.FileSystemObject»)
BEGIN COMMENT LINE
?Открытие файла.
END COMMENT LINE
Set oFile = oFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING)
BEGIN COMMENT LINE
?Чтение из файла и запись данных в переменную sComputerName.
END COMMENT LINE
sComputerName = oFile.ReadAll
BEGIN COMMENT LINE
?Закрытие файла.
END COMMENT LINE
oFile.Close