|   |   | 
| 
 | ФСО = Новый COMОбъект("Scripting.FileSystemObject") через СОМ | ☑ | ||
|---|---|---|---|---|
| 0
    
        bugug 05.08.19✎ 10:42 | 
        Как в подключенной через СОM базе вызвать еще один COM объект?     | |||
| 1
    
        bugug 05.08.19✎ 10:43 | 
        fso = ПодключеннаяБаза.NewObject("scripting.fileSystemObject") - Так не работает.     | |||
| 2
    
        bugug 05.08.19✎ 11:06 | 
        Задача такая, нужно определить свободно место на удаленном сервере.     | |||
| 3
    
        hhhh 05.08.19✎ 11:11 | 
        (2) сделать функцию в той фазе. и уже ее и вызывать.     | |||
| 4
    
        bugug 05.08.19✎ 11:13 | 
        (3) да, но хотелось универсальное что-то.     | |||
| 5
    
        bugug 05.08.19✎ 11:13 | 
        (4) много серверов     | |||
| 6
    
        bugug 05.08.19✎ 11:14 | 
        (5) копипастить эту процедуру в кучу баз...  засмеете же)     | |||
| 7
    
        lodger 05.08.19✎ 11:38 | 
        (6) а без FileSystemObject нашкодить не пробовал?     | |||
| 8
    
        GROOVY 05.08.19✎ 11:40 | 
        Процедура КнопкаВыполнитьНажатие(Кнопка)
 НужнаяСтрока = ""; КомандаСистемы("dir \\serv\Archive > " + КаталогВременныхФайлов() + "freespace.txt"); Текстфайла = Новый ЧтениеТекста(КаталогВременныхФайлов() + "freespace.txt",КодировкаТекста.OEM); СтрФайла = ТекстФайла.ПрочитатьСтроку(); Пока СтрФайла <> Неопределено Цикл Если СтрНайти(СтрФайла, "свободно") > 0 Тогда НужнаяСтрока = СтрФайла; ОтсечениеСлево = СтрНайти(НужнаяСтрока,"папок") + 6; НужнаяСтрока = СтрЗаменить(НужнаяСтрока,"байт свободно",""); НужнаяСтрока = СокрЛП(Сред(НужнаяСтрока,ОтсечениеСлево)); КонецЕсли; СтрФайла = ТекстФайла.ПрочитатьСтроку(); КонецЦикла; СвободноМб = Число(НужнаяСтрока)/1024/1024; Сообщить("Свободно " + СвободноМб + " Мб"); КонецПроцедуры (с) не мое. | |||
| 9
    
        GROOVY 05.08.19✎ 11:41 | 
        Под линуксы будет ЗапуститьПриложение(" df | grep /home > /tmp/" + "freespace.txt", , Истина);     | |||
| 10
    
        Сияющий в темноте 05.08.19✎ 11:46 | 
        Начнем с того,что обьект нужно создавать на сервере,если вы его создаете локально через вызов,то это все равно,что без базы 
 а создаваться должен через NewObject("ComObject","Scripting.FileSystemObject") | |||
| 11
    
        bugug 05.08.19✎ 11:52 | 
        (8) Это пробовал ранее, пишет КомандаСистемы неопределена     | |||
| 12
    
        bugug 05.08.19✎ 11:53 | 
        (10) так тоже пробовал, не работает((     | |||
| 13
    
        bugug 05.08.19✎ 11:53 | 
        (7) как?     | |||
| 14
    
        bugug 05.08.19✎ 11:54 | 
        (11) делаю через регламентное задание, на сервере.     | |||
| 15
    
        GROOVY 05.08.19✎ 12:04 | 
        (11) Ну так юзай ЗапуститьПриложение, а не КомандаСистемы.     | |||
| 16
    
        bugug 05.08.19✎ 12:10 | 
        (15) ок. сейчас попробую     | |||
| 17
    
        bugug 05.08.19✎ 12:23 | 
        (16) зависает, ни ответа, ни привета, ошибок не пишет, просто висит, мертво на строке ЗапуститьПриложение("dir \\sqllp\E$ > " + КаталогВременныхФайлов() + "freespace.txt");     | |||
| 18
    
        Вафель 05.08.19✎ 12:30 | 
        свободное место лучше через какой нибудь заббикс контролирововать     | |||
| 19
    
        bugug 05.08.19✎ 12:42 | 
        (18) это надо изучать, не работал с этим. Мне не дадут время(     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |