'Назначение имен переменным, используемым в данном сценарии. В результате 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