Что нового

Подключится к шаре (логин+пароль)

ZanMax

Тестер
Сообщения
120
Репутация
5
Возникла проблемка :
Пишу програму для бекапа пользовательских даных.
Вот код :
Код:
#include <zip.au3>
#include <file.au3>

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

[email protected] & ":" & @MIN & ":" & @SEC;
[email protected] & "." & @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

Буду очень признателен.
Думал как-то подключать сетевой диск заливать и отключать.
Но реализовать не смог !
 

w3d

Чайник
Сообщения
84
Репутация
3
Re: [Script] Подключится к шаре (логин+пароль)

Использовать команду консоли net use ?
 

amel27

Продвинутый
Сообщения
146
Репутация
55
Re: [Script] Подключится к шаре (логин+пароль)

ZanMax, хде-то так... хотя проверить код, увы, нет возможности:
Код:
#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
 
Автор
Z

ZanMax

Тестер
Сообщения
120
Репутация
5
Re: [Script] Подключится к шаре (логин+пароль)

В чом может быть проблема ?
Пишу так :
Код:
$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.
Что не делаю одно и тоже :(

Помогите ...
 
Автор
Z

ZanMax

Тестер
Сообщения
120
Репутация
5
Re: [Script] Подключится к шаре (логин+пароль)

Розобрался !!!
нужно так :
Код:
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 создает диск. Заливает все файлы и отключает диск.

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

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: [Script] Подключится к шаре (логин+пароль)

Код:
_WinNet_CancelConnection2()

параметры смотри в хелпе
 

amel27

Продвинутый
Сообщения
146
Репутация
55
Re: [Script] Подключится к шаре (логин+пароль)

ZanMax сказал(а):
Розобрался !!!
нужно так :

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

calipso

Гость
Re: [Script] Подключится к шаре (логин+пароль)

для подключения без планирования диска нужно вместо 0 указать пустую строку, т.е. "" вместо "q:"
Немного оффтопик, но всё всё же. У меня не работает такой код для подключения без явного указания буквы диска:
Код:
#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, но диск не появляется :( В чём может быть причина? При указании диска всё отлично.
 
Автор
Z

ZanMax

Тестер
Сообщения
120
Репутация
5
;D Никакого диска и не должно появится.
Он просто копирует в твою папку и все.
 
Верх