Shocker.Pro, Вы почему такой не добрый?, по поводу книжек, доля правды в Ваших словах есть, - город где я живу не большой, метро нет, пробок нет, книжку то и почитать негде
в туалет хожу редко
Что касается хотел стать крутым химиком, программистом, поясню в 100 раз - Вы программист, напишите под меня, я куплю, но увы никто не написал, приходится самому.
Моя задача - чтобы с Ворда и ХТМЛ файла нажать на введённый номер телефона и позвонить по этому номеру я не считаю крутой, так что это не крутой химик, а обычный, крутой, это когда только подумал, а он, код на ВБ(А) уже спрашивает с какого телефона связать
Скукотища, что можно сказать я в шоколаде, Вам спасибо!!!!!!, как всегда высший пилотаж
На домашнем компе всё сходится, но делаю для работы, так что подождём до понедельника
Случайно среди всей этой инфы нет, намёков на то положена ли трубка у одного из модемов?????, это тоже проблема века...
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.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
Option Explicit
Sub Модемы()
'http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
'предпоследний скрипт: Retrieves information about all the modems installed in a computer
'для запуска в VBA заменить wscript.echo на debug.print или MsgBox$ или Selection.TypeText Text:=
On Error Resume Next
Dim strComputer As String
strComputer = "."
Dim objWMIService As Object
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Dim colItems As Object
Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
Dim objItem As Object
Dim Количество_модемов As Byte
Dim Результат As String
For Each objItem In colItems
Количество_модемов = Количество_модемов + 1
'MsgBox$ "Attached To - номер COM порта: " & objItem.AttachedTo
'MsgBox$ "Blind Off: " & objItem.BlindOff
'MsgBox$ "Blind On: " & objItem.BlindOn
'MsgBox$ "Compression Off: " & objItem.CompressionOff
'MsgBox$ "Compression On: " & objItem.CompressionOn
'MsgBox$ "Configuration Manager Error Code: " & objItem.ConfigManagerErrorCode
'MsgBox$ "Configuration Manager User Configuration: " & objItem.ConfigManagerUserConfig
'MsgBox$ "Configuration Dialog: " & objItem.ConfigurationDialog
'MsgBox$ "Country Selected - выбранная страна: " & objItem.CountrySelected
'MsgBox$ "Device ID: " & objItem.DeviceID
'MsgBox$ "Device Type - тип устройства: " & objItem.DeviceType
'MsgBox$ "Driver Date: " & objItem.DriverDate
'MsgBox$ "Error Control Forced: " & objItem.ErrorControlForced
'MsgBox$ "Error Control Off: " & objItem.ErrorControlOff
'MsgBox$ "Error Control On: " & objItem.ErrorControlOn
'MsgBox$ "Flow Control Hard: " & objItem.FlowControlHard
'MsgBox$ "Flow Control Off: " & objItem.FlowControlOff
'MsgBox$ "Flow Control Soft: " & objItem.FlowControlSoft
'MsgBox$ "Inactivity Scale: " & objItem.InactivityScale
'MsgBox$ "Inactivity Timeout: " & objItem.InactivityTimeout
'MsgBox$ "Index: " & objItem.Index
'MsgBox$ "Maximum Baud Rate To SerialPort - максимальная скорость передачи последовательного порта: " & objItem.MaxBaudRateToSerialPort
'MsgBox$ "Model - модель: " & objItem.Model
'MsgBox$ "Modem Inf Path: " & objItem.ModemInfPath
'MsgBox$ "Modem Inf Section: " & objItem.ModemInfSection
'MsgBox$ "Modulation Bell: " & objItem.ModulationBell
'MsgBox$ "Modulation CCITT: " & objItem.ModulationCCITT
'MsgBox$ "Name - имя модема: " & objItem.Name
'MsgBox$ "PNP Device ID: " & objItem.PNPDeviceID
'MsgBox$ "Port SubClass: " & objItem.PortSubClass
'MsgBox$ "Prefix: " & objItem.Prefix
'MsgBox$ "Provider Name: " & objItem.ProviderName
'MsgBox$ "Pulse - импульс: " & objItem.Pulse
'MsgBox$ "Reset - сброс: " & objItem.Reset
'имя (хуже)
'MsgBox$ "Responses Key Name: " & objItem.ResponsesKeyName
'спикер выбора режимов
'MsgBox$ "Speaker Mode Dial: " & objItem.SpeakerModeDial
'MsgBox$ "Speaker Mode Off: " & objItem.SpeakerModeOff
'MsgBox$ "Speaker Mode On: " & objItem.SpeakerModeOn
'MsgBox$ "Speaker Mode Setup: " & objItem.SpeakerModeSetup
'MsgBox$ "Speaker Volume High: " & objItem.SpeakerVolumeHigh
'MsgBox$ "Speaker Volume Info: " & objItem.SpeakerVolumeInfo
'MsgBox$ "Speaker Volume Low: " & objItem.SpeakerVolumeLow
'MsgBox$ "Speaker Volume Med: " & objItem.SpeakerVolumeMed
'MsgBox$ "Status Info: " & objItem.StatusInfo
'MsgBox$ "Terminator: " & objItem.Terminator
'MsgBox$ "Tone - тон: " & objItem.Tone
Результат = Результат & Количество_модемов & " " & objItem.Model & Chr$( 13 )
Next
MsgBox$ "Количество модемов: " & Количество_модемов & Chr$( 13 ) & Результат
End Sub
