Что нового

[Файловая система] Как работать с файлами по сети c паролем?

alex33

Скриптер
Сообщения
1,457
Репутация
184
Написал вот такой код, но он не работает.
Можно ли как-нибудь работать с файлами по сети?
Код:
Global $hFile, $sData
Global $sFilePath = "\\192.168.0.54\SDMemory\test.txt", _
		$sLogin = "alex1", $sPassword = "123456789"
; $hFile = FileOpen($sLogin & ":" & $sPassword & "@" & $sFilePath, 2) ; ошибка: @extended = 123
$hFile = FileOpen($sFilePath, 2) ; здесь @extended = 1326 и $hFile = -1
If @error Or $hFile = -1 Then Exit MsgBox(16, "error", "error file open: error: " & @error & ", extended: " & @extended)
$sData = StringFormat("Hello world!\r\n" & "Time: %s:%s:%s", @HOUR, @MIN, @SEC)
FileWrite($hFile, $sData)
If @error Then Exit MsgBox(16, "error", "error file write: error: " & @error & ", extended: " & @extended) + 1
FileClose($hFile)

; ShellExecute($sLogin & ":" & $sPassword & "@" & $sFilePath, "", "", "", @SW_MAXIMIZE) ; Ошибка: Не существует связанной программы для выполнения запрошенного действия...
ShellExecute($sFilePath, "", "", "", @SW_MAXIMIZE) ; Ошибка: не верный логин или пароль
 
Автор
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
184
Кстати если сервер будет без пароля, то всё работает нормально. А с паролем не хочет...
 

joiner

Модератор
Локальный модератор
Сообщения
3,385
Репутация
592
я подключал сначала сетевой диск , работал с файлами. потом отключал
Код:
DriveMapAdd

сбоев ни разу не было, при условии, конечно, что сеть в порядке
 
Автор
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
184
У меня очень много IP адресов. Можно ли так их переключать? И как там по скорости?
 

InnI

AutoIT Гуру
Сообщения
4,510
Репутация
1,228
По ftp и http работает подобная конструкция
ftp://login:blum:[email protected]/folder/
Проверить сейчас не могу, но попробуйте, вдруг она работает и для протокола file
file://login:blum:[email protected]/SDMemory/test.txt
 
Автор
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
184
Не работает. И в браузере не открывается, и в скрипте.
Скрипт:
Код:
Global $hFile, $sData
Global $sFilePath = "file://alex1:[email protected]/SDMemory/test.txt"

;read
$hFile = FileOpen($sFilePath, 0) ; Ошибка: @extended = 123
If @error Or $hFile = -1 Then Exit MsgBox(16, "error", "error file open read: error: " & @error & ", extended: " & @extended)
;$sData = FileRead($hFile)
;If @error Then Exit MsgBox(16, "error", "error file read: error: " & @error & ", extended: " & @extended) + 1
;MsgBox(0, "data", $sData)
FileClose($hFile)

;write
$hFile = FileOpen($sFilePath, 2) ; Ошибка: @extended = 123
If @error Or $hFile = -1 Then Exit MsgBox(16, "error", "error file open: error: " & @error & ", extended: " & @extended)
;$sData = StringFormat("Hello world!\r\n" & "Time: %s:%s:%s", @HOUR, @MIN, @SEC)
;FileWrite($hFile, $sData)
;If @error Then Exit MsgBox(16, "error", "error file write: error: " & @error & ", extended: " & @extended) + 2
FileClose($hFile)

ShellExecute($sFilePath, "", "", "", @SW_MAXIMIZE) ; тоже не работает:
  ; Не удается найти "file://alex1:[email protected]/SDMemory/test.txt". Проверьте, правильно ли указано имя и повторите попытку.



Добавлено: [time]1434831678[/time]
Даже InetRead не берёт :smile:
 
Верх