Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как прочитать метку тома (диска) в 1с 7.7 ? / 12 сообщений из 12, страница 1 из 1
30.11.2009, 12:41
    #36338659
DrozdRG
DrozdRG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
Есть такая системная процедура GetVolumeInformation - никак не могу сообразить как ей воспользоваться ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 12:45
    #36338668
DrozdRG
DrozdRG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
Попробовал данным методом не вышло может кто подскажет где ошибка...

Попытка
scrptCtrl=createobject("MSScriptControl.ScriptControl");
scrptCtrl.language="vbscript";
scrptCtrl.addcode("
|Function Metka()
|Dim Serial As Long, VName As String, FSName As String
| VName = String(255, Chr(0))
| FSName = String(255, Chr(0))
| Serial = 1000
| GetVolumeInformation """ + "С:\"+ """, VName, 255,Serial, 0, 0, FSName, 255
| VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
| FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
| Metka = VName
|End Function");
Сообщить(scrptCtrl.run("Metka"));
Исключение
Сообщить(ОписаниеОшибка());
КонецПопытки;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 13:41
    #36338843
Dolter
Dolter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
DrozdRG,

смотри здесь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 13:53
    #36338881
DrozdRG
DrozdRG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
Таких примеров я находил море....
и вышеуказанный это один из них...
Вопрос в том как это всунуть в 1с ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 13:58
    #36338897
Dolter
Dolter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
Locator = СоздатьОбъект("WbemScripting.SWbemLocator");
или
Locator = Новый COMОбъект("WbemScripting.SWbemLocator");

а дальше как обычно работаешь с методами и свойствами...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 14:30
    #36339006
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
с этим объектом может ничего не выйти
1с 8.1 у меня не видит указанных свойств
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 15:06
    #36339156
AHDP
AHDP
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
Для получения метки тома можно воспользоваться командой vol с перенаправлением вывода в файл. Права для этого почти не нужны;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 15:11
    #36339182
tvm
tvm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
попробуй вот это:
Код: plaintext
1.
2.
3.
   FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject"); 
   Диск = FileSystemObject .GetDrive(FileSystemObject .GetDriveName(FileSystemObject .GetAbsolutePathName("C")))
   s = "Drive " & Lbcr.DriveLetter & ": - " & Lbcr.VolumeName
могут быть ошибки- проверить самому не начем сейчас
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 15:28
    #36339250
Dolter
Dolter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
leafс этим объектом может ничего не выйти
1с 8.1 у меня не видит указанных свойств
все он видит... просто иногда надо обращаться через Methods_ и Properties_
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 15:36
    #36339266
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
2Dolter
пример есть работающий?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 15:37
    #36339270
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Процедура КнопкаВыполнитьНажатие(Кнопка)
	// Вставить содержимое обработчика.
	//Попытка
	objService = Новый COMОбъект("MSScriptControl.ScriptControl");
	//objService = Новый COMОбъект("WbemScripting.SWbemLocator");
	objService.language="vbscript";
	objService.ExecQuery("SELECT * FROM Win32_DiskDrive");
	//objService.addcode("SELECT * FROM Win32_DiskDrive");
	//objService.Procedures="SELECT * FROM Win32_DiskDrive";
	Сообщить("гуд!");
	//Для Каждого objDisk ИЗ objService.ExecQuery("SELECT * FROM Win32_DiskDrive") Цикл
	//	Сообщить(objDisk.SystemName);
		//WScript.Echo objDisk.SystemName 'имя компьютера
		//WScript.Echo objDisk.Caption 'наименование устройства
		//WScript.Echo objDisk.Model 'модель, указанная производителем
		//WScript.Echo objDisk.Description 'описание устройства
		//WScript.Echo objDisk.DeviceID 'идентификатор устройства
		//WScript.Echo objDisk.PNPDeviceID 'идентификатор устройства Plug-and-Play
		//WScript.Echo objDisk.Manufacturer 'производитель
		//WScript.Echo objDisk.Index 'номер диска (если 0xFF - не отображает физический диск)
		//WScript.Echo objDisk.InterfaceType 'тип интерфейса (IDE, SCSI)
		//WScript.Echo objDisk.MediaType 'тип носителя (Removable media, Fixed hard disk и т.д.)
		//WScript.Echo objDisk.SCSIBus 'номер шины SCSI
		//WScript.Echo objDisk.SCSILogicalUnit 'номер SCSI устройства
		//WScript.Echo objDisk.SCSIPort 'номер порта SCSI
		//WScript.Echo objDisk.SCSITargetId 'идентификационный номер SCSI
		//WScript.Echo objDisk.TotalHeads 'количество головок
		//WScript.Echo objDisk.BytesPerSector 'количество байт в секторе
		//WScript.Echo objDisk.SectorsPerTrack 'количество секторов на дорожке
		//WScript.Echo objDisk.TracksPerCylinder 'количество дорожек в цилиндре
		//WScript.Echo objDisk.TotalCylinders 'количество цилиндров
		//WScript.Echo objDisk.TotalSectors 'общее количество секторов
		//WScript.Echo objDisk.TotalTracks 'общее количество дорожек
		//WScript.Echo objDisk.Size 'размер диска (по количеству цилиндров, дорожек, секторов и размеру сектора)
		//WScript.Echo objDisk.Partitions 'количество разделов на диске
		//WScript.Echo
	//КонецЦикла;
	//Исключение
	//	Сообщить("666");
	//КонецПопытки;
КонецПроцедуры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2009, 15:48
    #36339298
DrozdRG
DrozdRG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как прочитать метку тома (диска) в 1с 7.7 ?
FileSystemObject = createobject("Scripting.FileSystemObject");

Диск = FileSystemObject.GetDrive(FileSystemObject.GetDriveName(FileSystemObject.GetAbsolutePathName("C:\")));
s = "Drive " + Диск.DriveLetter + ": - " + Диск.VolumeName;
Сообщить(s);


Спосибо это для 7 работает,
и последний пример тоже работает

:)
:)
Очень благодарен...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Как прочитать метку тома (диска) в 1с 7.7 ? / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 553ms
Закрыть
start [/forum/topic.php?fid=28&tablet=1&tid=1523006]:
 0ms
get settings:
 5ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 264ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 229ms
total:  553ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]