objShellApp = CreateObject("Shell.Application"); objFolder = objShellApp.NameSpace("c:\Program Files\1cv82\common\"); objItem = objFolder.ParseName("1cestart.exe"); Message(objFolder.GetDetailsOf(objItem, 37));
// Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект("WScript.Shell") ; objScriptExec = objShell.Exec("ping.exe -n 1 " + IPАдрес) ; strPingResults = НРег(objScriptExec.StdOut.ReadAll()); Возврат Найти(strPingResults, "ttl="); КонецФункции //Обращаемся так: ответ = ping("80.252.128.110"); Сообщить( ?(ответ >0 ,"Есть соединение","Нет соединения" ));
//пример от smaharbA Адрес=СтрЗаменить(АдресСМССервера,"//","" ""); Адрес=СтрЗаменить(Адрес,"/","" ""); Адрес=СтрЗаменить(Адрес,"?","" ""); ШелСкрипт=СоздатьОбъект("WScript.Shell"); Если ШелСкрипт.Run("%comspec% /c ping -n 1 "+СтрПолучитьСтроку(Адрес,2),0,-1)<>0 Тогда Сообщить("Соединения нет"); КонецЕсли;
ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив; ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF"); ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF"); Попытка objShell = Новый COMОбъект("Shell.Application"); objFolder = objShell.Namespace(20); ПутьККаталогуШрифтов = objFolder.Items().Item().Path; Если Прав(ПутьККаталогуШрифтов, 1) <> "\" Тогда ПутьККаталогуШрифтов = ПутьККаталогуШрифтов + "\"; КонецЕсли; ФайлШрифтаСуществует = Ложь; Для Каждого ВозможноеИмяФайлаШрифта Из ВозможныеИменаФайлаШрифтаEANGNIVC Цикл ОбъектФайлШрифтаВКаталогеШрифтов = Новый Файл(ПутьККаталогуШрифтов + ВозможноеИмяФайлаШрифта); Если ОбъектФайлШрифтаВКаталогеШрифтов.Существует() Тогда ФайлШрифтаСуществует = Истина; Прервать; КонецЕсли; КонецЦикла; Если НЕ ФайлШрифтаСуществует Тогда ВремКаталог = КаталогВременныхФайлов() + Строка(Новый УникальныйИдентификатор) + "\"; СоздатьКаталог(ВремКаталог); ВремФайлШрифта = ВремКаталог + ВозможныеИменаФайлаШрифтаEANGNIVC[0]; Обработки.ОбщиеОбъектыРегламентированнойОтчетности.ПолучитьМакет("EANGNIVC").Записать(ВремФайлШрифта); objFolder.CopyHere(ВремФайлШрифта); УдалитьФайлы(ВремКаталог); КонецЕсли; objFolder = Неопределено; objShell = Неопределено; Исключение КонецПопытки;