Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как проверить шару на наличие? 
:(
    Опции темы
quasi
Дата 11.12.2007, 07:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0
Нужно проверить что шара существует, шара с доступом на чтение для всех. Следовательно можно юзать только гостевой вход в удаленную систему, но вот думаю как бы без wmi обойтись...

Это сообщение отредактировал(а) quasi - 11.12.2007, 07:33
PM MAIL   Вверх
Akina
Дата 11.12.2007, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(quasi @  11.12.2007,  08:32 Найти цитируемый пост)
шара с доступом на чтение для всех. Следовательно можно юзать только гостевой вход 

Странный вывод. Наличие прав на чтение у гостя не означает наличия такого права у других учетных записей.

Цитата(quasi @  11.12.2007,  08:32 Найти цитируемый пост)
как бы без wmi обойтись

Тупо сделать чтение файла с произвольным именем с этой шары, задав ее любым способом (от URI до имени локально спланированного драйва), а при возникновении ошибки проверить ее код и установить причину.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
quasi
Дата 11.12.2007, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0
Цитата

Тупо сделать чтение файла с произвольным именем с этой шары, задав ее любым способом (от URI до имени локально спланированного драйва), а при возникновении ошибки проверить ее код и установить причину.

файлов в шаре нет, нужно проверять принтер-шару=)
PM MAIL   Вверх
Akina
Дата 11.12.2007, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(quasi @  11.12.2007,  14:48 Найти цитируемый пост)
файлов в шаре нет, нужно проверять принтер-шару=) 

Чего??? сам-то понял, что сказал?

И потом - как это ты собираешься проверять шареный принтер на чтение?  smile 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
quasi
Дата 11.12.2007, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0
Хм, да, на чтение никак, наверно. Как тогда принтер-шару проверить?)
PM MAIL   Вверх
Akina
Дата 11.12.2007, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
я только не понимаю, чем тебе WMI так навредило? наиболее просто и максимально достоверно...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
quasi
Дата 12.12.2007, 01:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0
Цитата

я только не понимаю, чем тебе WMI так навредило? наиболее просто и максимально достоверно...

Так там нужно учетные данные писать или есть возможность их не прописывать?
PM MAIL   Вверх
quasi
Дата 12.12.2007, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0
Затестил вми, говорит что компьютер не существует или не доступен объект GetObject.
Код

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\10.91.13.5\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
'    Wscript.Echo "Allow Maximum: " & objShare.AllowMaximum
'    Wscript.Echo "Caption: " & objShare.Caption
if objShare.Name = "printer" then
'    Wscript.Echo "Maximum Allowed: " & objShare.MaximumAllowed
    Wscript.Echo "Name: " & objShare.Name
'    Wscript.Echo "Path: " & objShare.Path
'    Wscript.Echo "Type: " & objShare.Type
End if
Next
PM MAIL   Вверх
Akina
Дата 12.12.2007, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(quasi @  12.12.2007,  02:41 Найти цитируемый пост)
там нужно учетные данные писать или есть возможность их не прописывать

impersonationLevel задает используемые локальные credentials, которые обязаны в общем иметь права на удаленном узле для получения этой информации.
Цитата(quasi @  12.12.2007,  10:30 Найти цитируемый пост)
Затестил вми, говорит что компьютер не существует или не доступен объект GetObject.

GetObject - это из VBS. В VB это звучит как CreateObject, плюс еще некоторые особенности.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
quasi
Дата 12.12.2007, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0
Цитата

GetObject - это из VBS. В VB это звучит как CreateObject, плюс еще некоторые особенности. 

Скрипт на ВБС, надо модифицировать тоже на ВБС.
Цитата

impersonationLevel задает используемые локальные credentials, которые обязаны в общем иметь права на удаленном узле для получения этой информации.

А как под гостем? Шара ведь гостям дотупна, пространство объектов вми тоже должно быть или нет?
PM MAIL   Вверх
Akina
Дата 12.12.2007, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Ну и смотрите, какие уровни можно задать для impersonationLevel ...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0872 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.