![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Установка\Снятие аттрибутов c помощью vbs |
|
VBS/WSH/JS - Установка\Снятие аттрибутов c помощью vbs
|
![]() Старожил Сообщения: 284 |
как снять аттрибут (чтение) с файла, ПРИМЕР на диске C:\qwerty.txt
|
|
Отправлено: 17:37, 14-05-2012 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата O L E G:
Для чтения/установки атрибутов в WSH используется свойство «.Attributes» (Attributes Property): Option Explicit Const ReadOnly = &H01 Dim objFSO Dim objFile Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("C:\qwerty.txt") ' Очистить атрибут «ReadOnly» objFile.Attributes = objFile.Attributes And Not ReadOnly ' Установить атрибут «ReadOnly» 'objFile.Attributes = objFile.Attributes Or ReadOnly Set objFile = Nothing Set objFSO = Nothing WScript.Quit 0 |
|
Отправлено: 01:46, 15-05-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Старожил Сообщения: 284
|
Профиль | Отправить PM | Цитировать Iska, подскажи как Указать сразу не сколько файлов, с которых мне нужно снять аттрибут
|
------- Отправлено: 17:33, 15-05-2012 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
Последний раз редактировалось Iska, 16-05-2012 в 18:12. Причина: Исправлено грубое упущение: «objFSO.GetFile("C:\qwerty.txt")» → «objFSO.GetFile(strFile)» Отправлено: 22:46, 15-05-2012 | #4 |
![]() Старожил Сообщения: 284
|
Профиль | Отправить PM | Цитировать Iska, Опробовал Скрипт, выдает ошибку.
--------------------------- Windows Script Host --------------------------- Сценарий: C:\Documents and Settings\Admin\Рабочий стол\Документы\vbs\14.vbs Строка: 2 Символ: 5 Ошибка: Требуется объект: 'objFSO' Код: 800A01A8 Источник: Ошибка выполнения Microsoft VBScript --------------------------- ОК --------------------------- |
|
------- Отправлено: 17:20, 16-05-2012 | #5 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать O L E G, код, приведённый в #4, не самодостаточный (и, увы, к тому же, содержит грубое упущение; приведённая ошибка связана не с ней). Он просто иллюстрирует, как можно:
Цитата O L E G:
Вот пример полного кода: Option Explicit Const ReadOnly = &H01 Dim strFile With WScript.CreateObject("Scripting.FileSystemObject") For Each strFile In Array("C:\qwerty.txt", "c:\Temp\01.txt", "d:\02\02.log") If .FileExists(strFile) Then With .GetFile(strFile) WScript.Echo strFile .Attributes = .Attributes And Not ReadOnly End With End If Next End With WScript.Quit 0 |
|
Отправлено: 18:12, 16-05-2012 | #6 |
![]() Старожил Сообщения: 284
|
Профиль | Отправить PM | Цитировать Iska, Освоил НО, по верхностно. Благодарен
|
------- Отправлено: 09:05, 17-05-2012 | #7 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Установка - [решено] Установка и удаление компонентов Windows - установка с помощью bat'ника | SharkyUA | Microsoft Windows 7 | 1 | 31-12-2010 22:13 | |
Установка софта с помощью svcpack.inf | ale321 | Автоматическая установка Windows 2000/XP/2003 | 3 | 10-10-2010 09:37 | |
Автоматическая установка Windows XP с помощью RIS | lumoder | Автоматическая установка Windows 2000/XP/2003 | 4 | 16-11-2007 16:41 | |
Установка Win XP с помощью RIS | Alxd | Автоматическая установка Windows 2000/XP/2003 | 12 | 17-11-2005 12:38 | |
Установка Win95 или 98 с помощью дискет | ubitiy | Microsoft Windows 95/98/Me (архив) | 3 | 05-05-2004 19:16 |
|