Автор Тема: Подключится к шаре (логин+пароль)  (Прочитано 7642 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ZanMax [?]

  • Новичок
  • *
  • Сообщений: 120
  • Репутация: 5
  • Пол: Мужской
  • Тестер
    • Разработка ПО
    • Награды
  • Версия AutoIt: 3.3.12.0
Возникла проблемка :
Пишу програму для бекапа пользовательских даных.
Вот код :
Код: AutoIt [Выделить]
#include <zip.au3>
#include <file.au3>

   Dim $cfgfile,$backup,$time,$share,$login,$enpass,$array ;

$time=@HOUR & ":" & @MIN & ":" & @SEC;
$day=@MDAY & "." & @MON & "." & @YEAR;
$cfgfile="config.cfg";
$backup="backup.cfg";
$temp="c:\windows\temp\backup\";
$zipfile=$temp &  $day & ".zip" ;
$log="log.txt";

     If WinExists(@ScriptName) Then Exit
     AutoItWinSetTitle(@ScriptName)
     AutoItSetOption("TrayIconHide", 1)

if FileExists($cfgfile) Then
 $copytime=FileReadLine($cfgfile,2);
 $share=FileReadLine($cfgfile,4);
 $login=FileReadLine($cfgfile,6);
 $enpass=FileReadLine($cfgfile,8);
Else
    MsgBox(0,"ERROR","ERROR FILE NOT FOUND");
EndIf


if FileExists("backup.cfg") Then
    _FileReadToArray($backup,$array);

     _Zip_Create($zipfile);
    _Zip_AddFolder($zipfile,$array[1]);
    _Zip_AddFolder($zipfile,$array[2]);
    _Zip_AddFolder($zipfile,$array[3]);
    _Zip_AddFolder($zipfile,$array[4]);
    _Zip_AddFolder($zipfile,$array[5]);
    _Zip_AddFolder($zipfile,$array[6]);
    _Zip_AddFolder($zipfile,$array[7]);
    _Zip_AddFolder($zipfile,$array[8]);
    _Zip_AddFolder($zipfile,$array[9]);
    _Zip_AddFolder($zipfile,$array[10]);

FileCopy($zipfile,$share);
     ;MsgBox(0,"",$zipfile)
FileWriteLine($log,$day & " - " &$time & "- GOOD");
Else
  MsgBox(0,"ERROR","FILE NOT FOUND");
EndIf
 


Как подключится к папке : \\192.168.0.21\backUP\
И залить весь контент в папку
Если
Логин   : backup
ПАроль : backup_123

Буду очень признателен.
Думал как-то подключать сетевой диск заливать и отключать.
Но реализовать не смог !
       
« Последнее редактирование: Сентябрь 25, 2009, 16:50:08 от CreatoR »
Пишу на android, python, c#

Русское сообщество AutoIt

Подключится к шаре (логин+пароль)
« Отправлен: Сентябрь 18, 2009, 12:23:37 »

Оффлайн w3d [?]

  • Новичок
  • *
  • Сообщений: 84
  • Репутация: 3
    • Награды
Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #1, Отправлен: Сентябрь 18, 2009, 15:16:54 »
Использовать команду консоли net use ?

Оффлайн amel27 [?]

  • VIP
  • *
  • Сообщений: 146
  • Репутация: 55
  • Пол: Мужской
    • Награды
Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #2, Отправлен: Сентябрь 18, 2009, 15:21:32 »
ZanMax, хде-то так... хотя проверить код, увы, нет возможности:
Код: AutoIt [Выделить]
#include <Misc.au3>
#include <Zip.au3>
#include <File.au3>
#include <WinNet.au3>

_Singleton(@ScriptName)
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconHide", 1)

$sTime = @HOUR &":"& @MIN &":"& @SEC
$sDay  = @MDAY &"."& @MON &"."& @YEAR

$aCfgFile = ""
$sCfgFile = "config.cfg"
$sBakFile = "backup.cfg"
$sTempDir = "c:\windows\temp\backup\"
$sZipFile = $sTempDir &  $sDay & ".zip"
$sLogFile = "log.txt"

If FileExists($sCfgFile) Then
    $sTimeCopy  = FileReadLine($sCfgFile,2)
    $sShareName = FileReadLine($sCfgFile,4)
    $sLoginName = FileReadLine($sCfgFile,6)
    $sPassword  = FileReadLine($sCfgFile,8)
Else
    MsgBox(16, "ERROR", "ERROR FILE NOT FOUND")
EndIf

If FileExists($sBakFile) Then
    _FileReadToArray($sBakFile, $aCfgFile)
    _Zip_Create($sZipFile)
   
    _Zip_AddFolder($sZipFile,$aCfgFile[1])
    _Zip_AddFolder($sZipFile,$aCfgFile[2])
    _Zip_AddFolder($sZipFile,$aCfgFile[3])
    _Zip_AddFolder($sZipFile,$aCfgFile[4])
    _Zip_AddFolder($sZipFile,$aCfgFile[5])
    _Zip_AddFolder($sZipFile,$aCfgFile[6])
    _Zip_AddFolder($sZipFile,$aCfgFile[7])
    _Zip_AddFolder($sZipFile,$aCfgFile[8])
    _Zip_AddFolder($sZipFile,$aCfgFile[9])
    _Zip_AddFolder($sZipFile,$aCfgFile[10])

    If _WinNet_AddConnection2(0, $sRemoteName, $sLoginName, $sPassword, 0, 0) Then
        FileCopy($sZipFile, $sShareName)
        MsgBox(0,"",$sZipFile)FileWriteLine($sLogFile,$sDay & " - " &$sTime & "- GOOD")
    Else
        MsgBox(16, "ERROR", "Invalid login name, password or network path.")
    EndIf
Else
    MsgBox(16, "ERROR", "FILE NOT FOUND")
EndIf


Русское сообщество AutoIt

Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #2 Отправлен: Сентябрь 18, 2009, 15:21:32 »

Оффлайн ZanMax [?]

  • Новичок
  • *
  • Сообщений: 120

  • Автор темы
  • Репутация: 5
  • Пол: Мужской
  • Тестер
    • Разработка ПО
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #3, Отправлен: Сентябрь 18, 2009, 15:56:57 »
В чом может быть проблема ?
Пишу так :
Код: AutoIt [Выделить]
$sLoginName = "Гость"
$sPassword ="123"
$sRemoteName = "\\192.168.0.21\wara"
$sFile= "file.txt"
    MsgBox(0,"",$sLoginName & $sPassword & $sRemoteName );
    If _WinNet_AddConnection2(0, $sRemoteName, $sLoginName, $sPassword, 0, 0) Then
        FileCopy($sFile, $sRemoteName)
    Else
        MsgBox(16, "ERROR", "Invalid login name, password or network path.")
    EndIf
 


И всеравно :
Invalid login name, password or network path.

Что не делаю одно и тоже :(

Помогите ...

Оффлайн ZanMax [?]

  • Новичок
  • *
  • Сообщений: 120

  • Автор темы
  • Репутация: 5
  • Пол: Мужской
  • Тестер
    • Разработка ПО
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #4, Отправлен: Сентябрь 18, 2009, 16:11:40 »
Розобрался  !!!
нужно так :
Код: AutoIt [Выделить]
If _WinNet_AddConnection2("q:", $sRemoteName, $sLoginName, $sPassword, 0, 0) Then
        FileCopy($sFile, $sRemoteName)
    Else
        MsgBox(16, "ERROR", "Invalid login name, password or network path.")
    EndIf
 


Как теперь отсоединить НАШ диск "Q:" ?
Алгоритм такой прожка в 00:00 создает диск. Заливает все файлы и отключает диск.

КАК ОТКЛЮЧИТЬ ???

Русское сообщество AutoIt

Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #4 Отправлен: Сентябрь 18, 2009, 16:11:40 »

Оффлайн Kaster [?]

  • Бритва, Бритва Оккама
  • Глобальный модератор
  • *
  • Сообщений: 4020
  • Репутация: 622
  • Пол: Мужской
  • Мой Аватар, он лучший самый
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #5, Отправлен: Сентябрь 18, 2009, 16:22:25 »
Код: AutoIt [Выделить]
параметры смотри в хелпе
Конференция посвященная AutoIt на jabber.ru - [email protected]
Как попасть на конференцию читаем тут


Оффлайн amel27 [?]

  • VIP
  • *
  • Сообщений: 146
  • Репутация: 55
  • Пол: Мужской
    • Награды
Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #6, Отправлен: Сентябрь 18, 2009, 17:13:56 »
Розобрался  !!!
нужно так :

КАК ОТКЛЮЧИТЬ ???
угу, в справке по ходу неточность - для подключения без планирования диска нужно вместо 0 указать пустую строку, т.е. "" вместо "q:"

calipso

  • Гость
Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #7, Отправлен: Октябрь 03, 2009, 18:58:25 »
Цитировать
для подключения без планирования диска нужно вместо 0 указать пустую строку, т.е. "" вместо "q:"
Немного оффтопик, но всё всё же. У меня не работает такой код для подключения без явного указания буквы диска:
Код: AutoIt [Выделить]
#Include <WinNet.au3>
If _WinNet_AddConnection2("", "\\192.168.0.1\install", 0, 0, 0, 0) Then
    MsgBox(16, "OK", "OK")
Else
    MsgBox(16, "ERROR", "Invalid login name, password or network path.")
EndIf


Т.е., пишет OK, но диск не появляется  :( В чём может быть причина? При указании диска всё отлично.
« Последнее редактирование: Октябрь 03, 2009, 19:03:32 от Medic84 »

Русское сообщество AutoIt

Re: [Script] Подключится к шаре (логин+пароль)
« Ответ #7 Отправлен: Октябрь 03, 2009, 18:58:25 »

Оффлайн ZanMax [?]

  • Новичок
  • *
  • Сообщений: 120

  • Автор темы
  • Репутация: 5
  • Пол: Мужской
  • Тестер
    • Разработка ПО
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Подключится к шаре (логин+пароль)
« Ответ #8, Отправлен: Октябрь 03, 2009, 19:47:59 »
 ;D Никакого диска и не должно появится.
Он просто копирует в твою папку и все.

Русское сообщество AutoIt

Re: Подключится к шаре (логин+пароль)
« Ответ #8 Отправлен: Октябрь 03, 2009, 19:47:59 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
6 Ответов
7276 Просмотров
Последний ответ Июнь 06, 2010, 07:50:39
от Vendor
3 Ответов
3023 Просмотров
Последний ответ Март 16, 2011, 23:35:49
от CreatoR
3 Ответов
3620 Просмотров
Последний ответ Март 11, 2013, 10:09:33
от kvitnitskiy
3 Ответов
3302 Просмотров
Последний ответ Ноябрь 07, 2013, 23:38:18
от teft3lb
6 Ответов
2422 Просмотров
Последний ответ Ноябрь 04, 2015, 13:33:40
от Medic84
2 Ответов
1101 Просмотров
Последний ответ Июнь 03, 2015, 12:14:00
от WSWR
0 Ответов
1630 Просмотров
Последний ответ Июль 14, 2015, 11:12:18
от Vovsla
14 Ответов
2572 Просмотров
Последний ответ Январь 26, 2018, 15:54:17
от Visors
2 Ответов
1420 Просмотров
Последний ответ Сентябрь 08, 2018, 18:56:32
от Dima1337