Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объясните про WMI,Please / 15 сообщений из 15, страница 1 из 1
06.05.2005, 09:12
    #33051891
Сергей_STS
Сергей_STS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
Объясните пожалуйста как с помощью функции WMI(Win32_CDROMDrive)
Считать серийный номер с CD-диска.Для хард диска я пример видел.
Я пока "чайник" в VB.Не мог бы кто нибудь написать пример для VB-6.
Заранее всем спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 10:27
    #33052070
ziktuw
ziktuw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
Для начала стоит выяснить, работает ли WMI на большинстве машин, не говоря уже о том, что оно просто может отсутствовать.

WMI - это сервис, который может быть отключен. А поскольку основным он не является и используется редко, то грамотные пользователи отключают такой сервис в первую очередь.

-------
Хочешь муки как в аду - чаще юзай GOTO!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 12:14
    #33052370
Сергей_STS
Сергей_STS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
Dibrov а вообще WMI-это устоновочный компонент,
или он входит в состав windows?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 12:50
    #33052482
Стр
Стр
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
DibrovWMI - это сервис, который может быть отключен. А поскольку основным он не является и используется редко, то грамотные пользователи отключают такой сервис в первую очередь.Это просто твои догадки.

Реально WMI есть в любой NT (2000, 2003, XP) системе. И грамотные пользователи обычно им пользуются: MyComputer -> Manage
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 13:14
    #33052555
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
если какая-либо программа или сервис в системе запросил обращение через WMI, то этот сервис автоматически стартует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 13:38
    #33052630
Сергей_STS
Сергей_STS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
Ну кто нибудь может написать пример использования (Win32_CDROMDrive)
для VB-6,для определения серийного номера CD-диска.Или подскажите где скачать.
(Хотя искал я долго,и не нашёл)Очень надо.Заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 14:29
    #33052824
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
    Wscript.Echo "Availability: " & objItem.Availability
    For Each strCapability in objItem.Capabilities
        Wscript.Echo "Capability: "& strCapability
    Next
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "Drive: " & objItem.Drive
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Media Loaded: " & objItem.MediaLoaded
    Wscript.Echo "Media Type: " & objItem.MediaType
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
    Wscript.Echo "SCSI Bus: " & objItem.SCSIBus
    Wscript.Echo "SCSI Logical Unit: " & objItem.SCSILogicalUnit
    Wscript.Echo "SCSI Port: " & objItem.SCSIPort
    Wscript.Echo "SCSI Target ID: " & objItem.SCSITargetId
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 16:03
    #33053157
Сергей_STS
Сергей_STS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
Konst_One Спасибо огромное!
Сегодня вечером попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2005, 17:05
    #33053348
ziktuw
ziktuw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
СтрРеально WMI есть в любой NT (2000, 2003, XP) системе. И грамотные пользователи обычно им пользуются: MyComputer -> Manage

Задизейбли WMI сервис и убедись, что Manage работает.

-------
Хочешь муки как в аду - чаще юзай GOTO!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2005, 13:00
    #33107041
alex so
alex so
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
Konst_One
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
    Wscript.Echo "Availability: " & objItem.Availability
    For Each strCapability in objItem.Capabilities
        Wscript.Echo "Capability: "& strCapability
    Next
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "Drive: " & objItem.Drive
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Media Loaded: " & objItem.MediaLoaded
    Wscript.Echo "Media Type: " & objItem.MediaType
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
    Wscript.Echo "SCSI Bus: " & objItem.SCSIBus
    Wscript.Echo "SCSI Logical Unit: " & objItem.SCSILogicalUnit
    Wscript.Echo "SCSI Port: " & objItem.SCSIPort
    Wscript.Echo "SCSI Target ID: " & objItem.SCSITargetId
Next


А можно для тупых пояснить - что здесь Wscript.Echo и как вывести результаты
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2005, 16:28
    #33107630
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
замени Wscript.Echo (для VBScript) на Debug.Print (для VB)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
29.09.2006, 20:47
    #34023518
Charles Weyland
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
А можно вопрос, вообще, какой CD-ROM он будет опрашивать? Хотелось бы указать букву (F:) CD-ROM'а, который нужно опросить...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2006, 21:14
    #34023541
Charles Weyland
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
ЭТо я говорю про написанный выше код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2006, 10:12
    #34025151
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
авторА можно вопрос, вообще, какой CD-ROM он будет опрашивать? Хотелось бы указать букву (F:) CD-ROM'а, который нужно опросить.
MSDNThe Win32_CDROMDrive WMI class represents a CD-ROM drive on a Windows computer system. Be aware that the name of the drive does not correspond to the logical drive letter assigned to the device.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2006, 10:19
    #34025176
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объясните про WMI,Please
А вообще то в полученной коллекции можно искать по свойству Drive, Но это как то все через ж...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объясните про WMI,Please / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 493ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165219]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 159ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 233ms
total:  493ms
x
x
Закрыть


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