'Назначение имен переменным, используемым в данном сценарии. В результате
 WSH обнаружит в сценарии только переменные с этими именами. Все другие
 варианты написания имен будут восприниматься как ошибки.
Dim driveArg, dObject, driveName
'Сценарий создает объект файловой системы и ставит его в соответствие
 переменной dObject (сокращение от drive object).
Set dObject = CreateObject(«Scripting.FileSystemObject»)
'Если пользователь не указал букву диска, то на экран выводится сообщение об
 ошибке и выполнение сценария прекращается. Символ подчеркивания в конце строки
 означает, что запись продолжается на следующей строке. Продолжая строку,
 следует сделать отступ вправо, как показано в данном примере.
If Wscript.Arguments.Count < 1 Then_
 Wscript.Echo «You must include a drive letter and colon, like this: C:»,_
 Wscript.Quit(1)
'Принимает указанный пользователем аргумент, ставит его в соответствие
 заданному объекту файловой системы, а затем присваивает это значение
 переменной driveArg.
driveArg = dObject.GetAbsolutePathName(Wscript.Arguments(0))
'Ставит в соответствие переменной driveName имя диска, указанное пользователем
 при запуске сценария.
driveName = dObject.GetDriveName (driveArg)
'Сценарий считывает свойства заданного диска и отображает их вместе с
 приведенным ниже текстом.
With dObject.GetDrive (driveName)
 Wscript.Echo «Drive», .DriveLetter,»: has «,.Freespace / 1024,_
 «KB free and its file system is «, .FileSystem
'Указывает, что обработка данной переменной завершена. Оператор необходим,
 когда планируется запросить у пользователя дополнительную информацию.
End With

Поделитесь материалом с коллегами и друзьями