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

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

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

Реально WMI есть в любой NT (2000, 2003, XP) системе. И грамотные пользователи обычно им пользуются: MyComputer -> Manage
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #33052555
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если какая-либо программа или сервис в системе запросил обращение через WMI, то этот сервис автоматически стартует
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #33052630
Сергей_STS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну кто нибудь может написать пример использования (Win32_CDROMDrive)
для VB-6,для определения серийного номера CD-диска.Или подскажите где скачать.
(Хотя искал я долго,и не нашёл)Очень надо.Заранее спасибо
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #33052824
Фотография 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
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #33053157
Сергей_STS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Konst_One Спасибо огромное!
Сегодня вечером попробую
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #33053348
Фотография ziktuw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
СтрРеально WMI есть в любой NT (2000, 2003, XP) системе. И грамотные пользователи обычно им пользуются: MyComputer -> Manage

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

-------
Хочешь муки как в аду - чаще юзай GOTO!
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #33107041
alex so
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Объясните про WMI,Please
    #33107630
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
замени Wscript.Echo (для VBScript) на Debug.Print (для VB)
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Объясните про WMI,Please
    #34023518
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А можно вопрос, вообще, какой CD-ROM он будет опрашивать? Хотелось бы указать букву (F:) CD-ROM'а, который нужно опросить...
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #34023541
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ЭТо я говорю про написанный выше код
...
Рейтинг: 0 / 0
Объясните про WMI,Please
    #34025151
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторА можно вопрос, вообще, какой 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
Объясните про WMI,Please
    #34025176
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А вообще то в полученной коллекции можно искать по свойству Drive, Но это как то все через ж...
...
Рейтинг: 0 / 0
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объясните про WMI,Please
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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