Сетевые параметры рабочей станции

Для того, чтобы узнать имя текущего пользователя, домен компьютера в сети, используют соответствующие свойства объекта WshNetwork: UserName, Domain, ComputerName.

Set WshNetwork=WScript.CreateObject("WScript.Network")

s="Сетевые параметры станции"&vbCrLf

s=s&"имя машины:"&WshNetwork.ComputerName&vbCrLf

s=s&"имя пользователя:"&WshNetwork.UserName&vbCrLf

s=s&"домен:"&WshNetwork.UserDomain

WScript.Echo s

Выполнение основных операций с файловой системой

Для выполнения операций копирования, перемещения, удаления, создания файлов и каталогов, используют объект FileSystemObject.

Создание объекта FileSystemObject:

Set FSO=WScript.CreateObject(“Scripting.FileSystemObject”)

Ниже представлены методы FileSystemObject:

Метод	Описание
BuildPath(path,name)	Добавляет к заданному пути (параметр path) новое имя (параметр name)
CopyFile (source, destination [, overwrite])	Копирует один или несколько файлов из одного места (параметр source) в другое (параметр destination)
CopyFolder (source, destination [, overwrite])	Копирует каталог со всеми подкаталогами из одного места (параметр source) в другое (параметр destination)
CreateFolder(foldername)	Создает новый каталог с именем foldername. Если каталог существует, то произойдет ошибка
CreateTextFile(filename [, overwrite [, unicode]])	Создает новый текстовый файл с именем filename
DeleteFile(filespec [, force])	Удаляет файл, путь к которому задан filespec
DeleteFolder(folder spec [, force])	Удаляет каталог, путь к которому задан folderspec, вместе со всем содержимым
FileExists(filespec)	Возвращает true, если заданный параметром filespec файл существует и false в противном случае
FolderExists(folderspec)	Возвращает true, если заданный параметром folderspec каталог существует и false в противном случае
MoveFile(source, destination)	Перемещает заданный текстовый файл

Необязательный параметр overwrite, если он равен true, позволяет заменять существующие файлы при создании и копировании.

Параметр unicode имеет логическое значение: true – файл будет создан в формате Unicode, иначе – ASCII.

При копировании, перемещении и удалении файлов и каталогов можно использовать в именах подстановочные знаки * (несколько символов) и ? (один символ).

Например, копирование файлов:

Set FSO=WScript.CreateObject("Scripting.FileSystemObject") ‘ создание объекта fileSystemObject

s="C:\Documents and Settings\I\Рабочий стол\1"

if FSO.folderExists(s)=false then FSO.CreateFolder(s) ‘создание каталога, если каталог не существует

FSO.copyfile "c:\*.txt","C:\Documents and Settings\Ice\Рабочий стол\1",true ‘копирование файлов

‘если файлы уже существуют они замещаются новыми

Ввод данных в текстовый файл

Последовательный ввод данных в текстовый файл осуществляется с помощью объекта TextStream. Методы этого объекта позволят читать информацию из файла и записывать ее в него.

Создать объект TextSream можно с помощью следующих методов:

1. CreateTextFile объектов FileSystemObject и Folder;

2. OpenTextFile объекта FileSystemObject объекта FileSystemObject;

3. OpenAsTextStream объекта File.

Методы объекта TextStream

Метод	Описание
Close	Закрывает открытый файл
ReadAll()	Считывает полностью весь файл и возвращает полученную строку
ReadLine()	Возвращает считанную из файла строку
Write(s)	Записывает в файл строку s
WriteLine(s)	Записывает в файл строку s вместе с символом конца строки. Если параметр строка отсутствует, то в файл записывается пустая строка.

Например, в следующем примере производится запись строк в файл.

Set FSO=WScript.CreateObject("Scripting.FileSystemObject")

Set F=FSO.CreateTextFile("C:\Documents and Settings\student.KIT\Рабочий стол\1.txt",true)

'создание файла

F.WriteLine(“Hello”) 'запись строки в файл

F.Close 'закрытие файла