Как извлечь информацию о конкретном открытии ресурса

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Vova_2581
Постоялец
Постоялец
 
Сообщения: 376
Зарегистрирован: 10.01.2010 (Вс) 18:08

Re: Как извлечь информацию о конкретном открытии ресурса

Сообщение Vova_2581 » 15.03.2019 (Пт) 21:48

Кстати, Вы правильно сделали пропуск On Error GoTo SkipError: в случае ошибки функции GetHostName. Насколько я понимаю WMI... для получения «имени компа» в этой функции Вы обращаетесь по сети к классу Win32_ComputerSystem подключенного компа. Но дело в том, что WMI реализуется через работу различных системных служб, например, - RPC (служба удаленного вызова процедур) или службу Расширения драйверов WMI (Windows Management Instrumentation), еще какие-то... Проблема в том, что на удаленной машине по различным причинам эти службы могут быть остановлены, заблокированы каким-нибудь файерволом по портам, например, или ограничены привилегии для WMI (скорее всего). Теоретически такое вполне может быть. И тогда вызвать класс Win32_ComputerSystem на удаленной машине и получить его имя, будет просто невозможно, поэтому может возникнуть ошибка. :scratch: Это нужно учитывать.

TheWatcher
Новичок
Новичок
Аватара пользователя
 
Сообщения: 29
Зарегистрирован: 27.08.2012 (Пн) 0:53
Откуда: Республика Беларусь

Re: Как извлечь информацию о конкретном открытии ресурса

Сообщение TheWatcher » 15.03.2019 (Пт) 22:03

Vova_2581 писал(а):MicroSoft обещают поддерживать 7-ку еще, как минимум 5 лет, до 23-го года. Что будет дальше – неизвестно. Но, будем надеяться на пролонгирование 7-ки. Читал, что эта система сейчас наиболее популярна, несмотря на 10-ку.


Вынужден вас разочаровать. Windows 7 будет поддерживаться не 5 лет, а только 4 года: 2019/2020/2021/2022 г.г., причем последние три года -- только в части системной безопасности и за отдельную плату, удваивающуюся из года в год (Professional и Ultimate -- 100$ первый год, 200$ -- второй, 400$ -- третий за каждое корпоративное рабочее место).

По состоянию на январь 2019 года, 10-ка установлена на 47.4% всех ПК, работающих под Windows, а 7-ка -- только на 43.1% (источник).
TheWatcher
=========
3.6GHz Core i5-3470, 16GB RAM / GTX 1060, 6GB VRAM
x86 Win XP Pro Sp3 / x64 Win 7 Ult Sp1 / x64 Ubuntu 16.04

Vova_2581
Постоялец
Постоялец
 
Сообщения: 376
Зарегистрирован: 10.01.2010 (Вс) 18:08

Re: Как извлечь информацию о конкретном открытии ресурса

Сообщение Vova_2581 » 16.03.2019 (Сб) 10:21

TheWatcher писал(а):По состоянию на январь 2019 года, 10-ка установлена на 47.4% всех ПК, работающих под Windows, а 7-ка -- только на 43.1%

Так может в этом вся причина???...
Microsoft заставляет пользователей Windows 7 и 8 переходить на Windows 10

(цитата)
«Многие пользователи Windows 7 и 8 получили предложение перейти на Windows 10, от которого они не могут отказаться — буквально».
...
«...может появиться единственное обновление, которое можно установить — это, опять же, Windows 10».
...
«У пользователя нет никакой возможности отказаться от установки этого обновления — его можно только отложить. И, глядя на первый скриншот, мы почти уверены, что по истечении времени Windows начнет установку самостоятельно, без спроса пользователя (как она любит устанавливать другие обновления). Легко представить ситуацию, когда кто-то просто оставил машину включенной, уйдя по делам, а по возвращении обнаружил, что у него теперь новая ОС – Windows 10».
...
«Если вы — пользователь Windows 7 или 8 и у вас начало регулярно "вылезать" приглашение перейти на Windows 10, то вы, должно быть, заметили, что в последние недели выбора у вас становится все меньше».
...
«Вполне логично, что появляются опасения на тему того, что рано или поздно Microsoft вообще может решить обновить всех принудительно».

Вы же понимаете: если заставлять, то вот вам и будут эти самые 47.4% ПРИНУДИЛОВКИ! Так что этот показатель – фикция! :wink:

Но есть надежда...
Как не дать Microsoft насильно перевести вас на Windows 10

TheWatcher
Новичок
Новичок
Аватара пользователя
 
Сообщения: 29
Зарегистрирован: 27.08.2012 (Пн) 0:53
Откуда: Республика Беларусь

Re: Как извлечь информацию о конкретном открытии ресурса

Сообщение TheWatcher » 16.03.2019 (Сб) 12:12

Vova_2581 писал(а):Так что этот показатель – фикция!


Нет, это не фикция. Вы пользуетесь средневековыми данными (2015 год -- в микроэлектронике это примерно три поколения назад).

Вот эти графики покажут вам более или менее реальное положение дел на рынке ОС для ПК в феврале 2019 г., а именно:
    1. Windows XP -- около 2% (вангую, что "семерку" вскорости ждет такая же участь, хоть принудительно, хоть нет)
    2. Windows 7 -- около 34%
    3. Windows 10 -- почти 55%

Que sera, sera.*

___________________________
* Чему быть, того не миновать.
TheWatcher
=========
3.6GHz Core i5-3470, 16GB RAM / GTX 1060, 6GB VRAM
x86 Win XP Pro Sp3 / x64 Win 7 Ult Sp1 / x64 Ubuntu 16.04

Vova_2581
Постоялец
Постоялец
 
Сообщения: 376
Зарегистрирован: 10.01.2010 (Вс) 18:08

Re: Как извлечь информацию о конкретном открытии ресурса

Сообщение Vova_2581 » 18.03.2019 (Пн) 11:21

TheWatcher
Я же Вам говорю: MS - ЗАСТАВЛЯЕТ(!) переходить на 10-ку. Если Вас будут заставлять кушать одну картошку с утра и до вечера, то процент потребления картофеля "в мире", естественно, вырастет на ~1%, но любить картошку Вы от этой статистики больше НЕ станете. Верно? Вот Вам статистика за 2019 год в России...
2019-02-01_13.24.57.png

Статистика ОС Windows: Microsoft будет непросто избавиться от Windows 7
(цитаты)
«...отказ от операционной системы 2009 года будет очень сложной задачей для Редмонда, несмотря на все усилия по продвижению Windows 10»
...
«...поклонники “семерки” не спешат переходить на новую версию Windows, что усложняет Microsoft задачу по завершению обслуживания Windows 7».
...
«...“десятка” забирает долю других систем Windows, но НЕ привлекает аудиторию Windows 7».
...
«...На данный момент ситуация на рынке операционных систем Windows свидетельствует о том, что Windows 7 станет второй Windows XP, и огромная аудитория пользователей продолжит работу с системой даже после окончания ее жизненного цикла в январе 2020 года».
...
Microsoft не может дождаться «заката» Windows 7
...
«Без сомнений, прекращение обслуживания Windows 7 приведет к значительному росту установок Windows 10, но, по всей видимости, система 2009 года может стать второй Windows XP».

Как Вам такая статистика, господа??? :wink:

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2054
Зарегистрирован: 25.11.2002 (Пн) 20:03

Re: Как извлечь информацию о конкретном открытии ресурса

Сообщение ALX_2002 » 18.03.2019 (Пн) 11:48

Господа, я думаю, что стоит перенести обсуждение этой темы в отдельный топик. Ведь тут решается совсем другой вопрос. Уже чувствую себя виноватым, что дал повод для разжигания "холивара". :oops:

Vova_2581
Постоялец
Постоялец
 
Сообщения: 376
Зарегистрирован: 10.01.2010 (Вс) 18:08

Re: Как извлечь информацию о конкретном открытии ресурса

Сообщение Vova_2581 » 19.03.2019 (Вт) 15:04

Да, полностью согласен. Что-то как-то мы плавно и незаметно далеко ушли от обсуждаемой темы.
В общем, я еще раз благодарю всех участников за предоставленную помощь! Отдельная благодарность, ALX_2002!
На этом, разрешите откланяться и пожелать Вам успехов в творчестве! :)

Пред.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 58

    TopList