Отправлено: 21.06.13 09:41. Заголовок: Доступ к сетевым ресурсам.

Добрый день.
Подскажите пожалуйста, есть ли в Harbour функции доступа к сетевым ресурсам под определенной учетной записью?

Например:
Надо взять файл с ресурса \\serv1\folders2\load.txt
Доступ туда имеет учетная запись:
user: mdomen\user10
passw: Qazwsx!12

 Отправлено: 07.09.13 17:37. Заголовок: Выкроил минутку ;) П..

Выкроил минутку ;)
Пробуем в лоб перевести VBScript на Harbour
В тексте указал где падает прога и хз почему

 
 Proc main 
 local Shell 
 local objFolder 
 local objFolderNetwork 
 local objItem 
 local objSubItem 
  
 Shell:=CreateObject("Shell.Application")  
 // 'получение папки "Сетевое окружение"  
 objFolder:=Shell:NameSpace("::{208D2C60-3AEA-1069-A2D7-08002B30309D}")  
 // 'получение папки "Вся сеть"  
 objFolder:=objFolder:Items():Item("EntireNetwork"):GetFolder  
 // 'получение папки "Microsoft Windows Network"  
  For Each objItem In objFolder:Items() // а вот тут почему то падает 
                                        //Error WINOLE/1005  Argument error: __OLEENUMCREATE (DOS Error -2147352573) 
      If objItem:Name == "Microsoft Windows Network"  
          objFolderNetwork:= objItem:GetFolder  
          exit  
      EndIf  
  Next  
 // 'перебор доменов и рабочих групп  
  For Each objItem In objFolderNetwork:Items()  
      If objItem:IsFolder   
          objFolder:=objItem:GetFolder  
 //         'перебор компьютеров  
          For Each objSubItem In objFolder:Items()  
 ?             objSubItem:Name  
          Next  
      EndIf  
  Next   
  
 return 
 

 Отправлено: 07.09.13 21:02. Заголовок: Dima пишет: For Eac..

Dima пишет:

цитата:

For Each objItem In objFolder:Items() // а вот тут почему то падает

А что будет если получить ? objFolder:Items()

хХарбор 1.2.1 падает на строке:
// 'получение папки "Вся сеть"
objFolder:=objFolder:Items():Item("EntireNetwork"):GetFolder

 Отправлено: 07.09.13 21:09. Заголовок: Dima пишет: PS Тоже..

Dima пишет:

цитата:

PS Тоже самое только проще (test.vbs) // проверил работает нормик

Не работает:


Win8 32bit

 Отправлено: 07.09.13 21:20. Заголовок: Andrey пишет: Win8 ..

Andrey пишет:

цитата:

Win8 32bit

я проверял на XP у себя и удаленно тож на XP , работало.
Счас чекану на 2008 64 бит удаленно

Проверил та же фигня что у тебя.......

 Отправлено: 07.09.13 21:56. Заголовок: Взял функцию из 1С. ..

Взял функцию из 1С.
Язык еще тот... Без вливания не разберешься...
Не знаю как перевести части кода (пометил красным цветом)

Вот код:
Скрытый текст

* Translation 1C at Harbour http://clipper.borda.ru #define Функция Function #define КонецФункции Return Nil #define Если IF #define Тогда THEN #define КонецЕсли; ENDIF #define Прервать; EXIT #define Для Каждого FOR #define КонецЦикла; NEXT #define нПП nI #define ---> Добавляйте // Функция получения информации о сетевом окружении. // Возвращает: // Таблица значений со структурой: // №, Домен, Компьютер, IP-адрес, Комментарий. // // Рекомендация: // Перед применением проверить на компьютерах // Windows Management Instrumentation (WMI): // 1. Состояние служб. // 2. Разрешение в брандмауэре. // // Примечание: // 1. WMI - медленнее, PING - быстрее. // 2. WMI - безоконный, PING - с формированием окна. // &НаСервереБезКонтекста Функция NetworkNeighborhood() ТСетевоеОкружение = Новый ТаблицаЗначений; ТСетевоеОкружение.Колонки.Добавить("нПП", ,"№"); ТСетевоеОкружение.Колонки.Добавить("Домен"); ТСетевоеОкружение.Колонки.Добавить("Компьютер"); ТСетевоеОкружение.Колонки.Добавить("IP"); ТСетевоеОкружение.Колонки.Добавить("Комментарий"); Попытка ShellApplication = Новый COMОбъект("Shell.Application"); // Сетевое окружение. Network = ShellApplication.NameSpace(18); // Вся сеть. EntireNetwork = Network.Items().Item("EntireNetwork").GetFolder; Для Каждого EntireNetworkItem ИЗ EntireNetwork.Items() Цикл Если EntireNetworkItem.Name = "Microsoft Windows Network" Тогда MicrosoftWindowsNetwork = EntireNetworkItem.GetFolder; Прервать; КонецЕсли; КонецЦикла; нПП = 0; Для Каждого MicrosoftWindowsNetworkItem ИЗ MicrosoftWindowsNetwork.Items() Цикл // Рабочая группа или Домен. Domain = MicrosoftWindowsNetworkItem.GetFolder; Домен = ВРег(Domain.Title); НоваяСтрока = ТСетевоеОкружение.Добавить(); нПП = нПП+1; НоваяСтрока.нПП = нПП; НоваяСтрока.Домен = Домен; Для Каждого DomainItem ИЗ Domain.Items() Цикл // Компьютер. Компьютер = ВРег(DomainItem.Name); НоваяСтрока = ТСетевоеОкружение.Добавить(); нПП = нПП+1; НоваяСтрока.нПП = нПП; НоваяСтрока.Домен = Домен; НоваяСтрока.Компьютер = Компьютер; Попытка WinMGMT = ПолучитьCOMОбъект("winmgmts:\\" + Компьютер + "\root\cimv2"); // Без вывода окна на экран. IPConfig = WinMGMT.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true"); // IP-адреса. Для Каждого IPCFG ИЗ IPConfig Цикл Если ЗначениеЗаполнено(IPCFG.IPAddress) Тогда Для Каждого IP ИЗ IPCFG.IPAddress Цикл НоваяСтрока = ТСетевоеОкружение.Добавить(); нПП = нПП+1; НоваяСтрока.нПП = нПП; НоваяСтрока.Домен = Домен; НоваяСтрока.Компьютер = Компьютер; НоваяСтрока.IP = IP; НоваяСтрока.Комментарий = "WMI"; КонецЦикла; КонецЕсли; КонецЦикла; Исключение Сообщить("Проверьте на компьютере " + Компьютер + " |Windows Management Instrumentation (WMI): |1. Состояние служб, отвечающих за WMI; |2. Разрешение в брандмауэре для WMI."); WshShell = Новый COMОбъект("WScript.Shell"); // Exec - выводит окно на экран. WshExec = WshShell.Exec("ping -n 1 " + Компьютер); TextStream = WshExec.StdOut; // IP-адреса. Пока НЕ TextStream.AtEndOfStream Цикл СтрокаIP = TextStream.ReadLine(); ПозицияСкобкиЛевая = Найти(СтрокаIP, "["); Если ПозицияСкобкиЛевая > 0 Тогда ПозицияСкобкиПравая = Найти(СтрокаIP, "]"); IP = Сред(СтрокаIP, ПозицияСкобкиЛевая+1, ПозицияСкобкиПравая-ПозицияСкобкиЛевая-1); НоваяСтрока = ТСетевоеОкружение.Добавить(); нПП = нПП+1; НоваяСтрока.нПП = нПП; НоваяСтрока.Домен = Домен; НоваяСтрока.Компьютер = Компьютер; НоваяСтрока.IP = IP; НоваяСтрока.Комментарий = "PING"; Прервать; КонецЕсли; КонецЦикла; КонецПопытки; КонецЦикла; КонецЦикла; Исключение КонецПопытки; Возврат ТСетевоеОкружение; КонецФункции

 Отправлено: 07.09.13 22:13. Заголовок: Andrey пишет: Взял ..

Andrey пишет:

цитата:

Взял функцию из 1С. Язык еще тот... Без вливания не разберешься...

Да тут без 100 грамм точно не обойтись кто не готов воспринять язык 1С , мне лично
тяжело понять такой текст так как не привык к типа "КонецЦикла" или "КонецФункции"и тд и тп


ЗЫ
А это жесть "Если ПозицияСкобкиЛевая"

 Отправлено: 07.09.13 22:21. Заголовок: Dima пишет: А это ж..

Dima пишет:

цитата:

А это жесть "Если ПозицияСкобкиЛевая"

 Отправлено: 08.09.13 09:38. Заголовок: Андрей, "ТСетев..

Андрей,

"ТСетевоеОкружение" - объект, содержащий таблицу.

"Попытка" = "TRY" или "BEGIN SEQUENCE WITH"
"Исключение" = "CATCH" или "RECOVER"

"ПозицияСкобкиЛевая" - просто переменная.