#NoTrayIcon

#include <GUIConstantsEx.au3>

#include <File.au3>

#include <Date.au3>

#include <Inet.au3>

Global $oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

Global $Basepath="D:\Base\” ;база везде в одном месте, можно хардкодить

;Проверим, не запущена ли 1С.

If ProcessExists("1cv8.exe") or ProcessExists("chdbfl.exe") Then 

    Msgbox(0,"ошибка!", "1c уже запущена, запуск второй невозможен")

Exit

EndIf

;Проверим, не была ли прервана проверка, по наличию временного файла

if FileExists ($Basepath&"_$NEW$_.1CD") Then

MSGbox(0,"ошибка!", "проверка базы была прервана! обратитесь в Отдел ИТ")

Exit

EndIf

;Ну и проверим, на месте ли сам файл базы

If not FileExists ($Basepath&"1Cv8.1CD") Then

Msgbox(0,"ошибка!", "файл БД не обнаружен!")

Exit

EndIf

;Конечно, спросим

$hgui = GUICreate("проверка БД" , 200, 200) 

GUICtrlCreateLabel(" будет запущена проверка базы",2,2)

GUICtrlCreateLabel("что может занять более 30 мин",2,22)

GUICtrlCreateLabel("     уверены?      ",2,42)

$yes = GUICtrlCreateButton("да", 5, 150, 70, 25)

$no= GUICtrlCreateButton("нет", 75, 150, 70, 25)

GUISetState(@SW_SHOW) 

While 1 

$msg = GUIGetMsg() 

 Select 

 Case $msg = $GUI_EVENT_CLOSE 

        GUIDelete()

Exit 

 Case $msg = $yes

 GUIDelete()

 _check ()

ExitLoop 

Case $msg = $no

GUIDelete()

Exit 

 EndSelect

WEnd

;Сама проверка базы

func _check ()

$sTitle="Проверка физической целостности файла БД"

ProgressOn("проверка БД", "выполняется проверка базы данных", "0%",-1,-1,18)

run ("C:\Program Files\1cv81\bin\chdbfl.exe","", @SW_HIDE,7)

WinWait($sTitle)

local $size = filegetsize($Basepath&"1Cv8.1CD")

;Автокликер!

ControlSend($sTitle,"", "V8FormElement9",$Basepath&"1Cv8.1CD")

ControlClick($sTitle,"", "V8FormElement8")

ControlClick($sTitle,"", "V8FormElement7","left",2)

$filename = $Basepath&"\1Cv8.1CD"

local $size1 =0

;Считаем процент размера временного файла и заполняем прогрессбар

While 1

$size1 = filegetsize($Basepath&"_$NEW$_.1CD")

    $perc=round(($size1/$size)*100)

ProgressSet($perc, "пожалуйста, ожидайте. прошло "& $perc & "%")

sleep (1500)

;Проверяем, что проверка еще идет по наличию временного файла

;и заблокированности файла БД

If not FileInUse($filename) and not FileExists ($Basepath&"\_$NEW$_.1CD") Then

        ExitLoop

 EndIf  

WEnd

sleep(5000)

;К сожалению, получить информацию из объектов окна нормально не получилось

;Поэтому - автокликер!

WinSetState ( $sTitle, "", @SW_SHOW )

WinSetOnTop($sTitle, "", 1)

WinActivate($sTitle, "")

WinWaitActive($sTitle)

ControlClick($sTitle,"", "V8FormElement4")

sleep(50)

ControlSend($sTitle,"", "V8FormElement4","^{home}")

sleep(50)

ControlSend($sTitle,"", "V8FormElement4","+^{end}")

sleep(50)

ControlSend($sTitle,"", "V8FormElement4","^{ins}")

sleep(50)

$text = ClipGet()

ControlClick($sTitle,"", "V8FormElement6","left",2)

ProgressSet(100, "100%", "проверка завершена")

sleep (500)

ProgressOff()

;Создаем лог-файл, и пишем туда результат проверки, если он есть.

;И отправляем e-mail

;В организации используется Outlook Express. Берём отправителя из реестра

$sender = RegRead("HKEY_CURRENT_USER\Software\Microsoft\ _

Internet Account Manager\Accounts\00000001","SMTP Email Address")

$sendername = RegRead("HKEY_CURRENT_USER\Software\Microsoft\ _

Internet Account Manager\Accounts\00000001","SMTP Display Name")

If not FileExists($Basepath&"check.Log") then _FileCreate($Basepath&"\check.Log")

FileWrite ($Basepath&"check.Log", _NowCalc()&@CRLF )

If $text <> "" Then

FileWrite ( $Basepath&"check.Log", "база бита:"&@CRLF)

FileWrite ( $Basepath&"check.Log", $text&@CRLF)

FileWrite ( $Basepath&"check.Log", "отправляем имейл.."&@CRLF)

;Проверяем доступность нашего smtp. Да-да, опять хардкод

If Ping("smtp-server") <> 0 then 

  if $sender = "" or $sendername="" Then

     MSGbox(0,"ошибка!", "не настроена почта, обратитесь в отдел ИТ!") 

  Else

  email($sender, $sendername,$text)

EndIf

endif 

;а если все хорошо, то и писать не будем

Else

 FileWrite ( $Basepath&"check.Log", "всё чисто"&@CRLF)  

EndIf

$hgui = GUICreate("проверка БД" , 200, 200) 

GUICtrlCreateLabel("проверка БД завершена",2,2)

$ok = GUICtrlCreateButton("да", 5, 150, 70, 25)

GUISetState(@SW_SHOW) 

While 1 

$msg = GUIGetMsg() 

 Select 

 Case $msg = $GUI_EVENT_CLOSE or $msg=$1

        GUIDelete()

Exit 

EndSelect

WEnd

EndFunc

Func FileInUse($filename)

$handle = FileOpen($filename, 1)

$result = False

if $handle = -1 then $result = True

FileClose($handle)

return $result

 EndFunc

func email($sender, $sendername,$text)

local $array[1]

$array[0]=$text

$t=_INetSmtpMail("smtpserver", $sendername,$sender, "[helpdesk@domain.com](mailto:helpdesk@domain.com)", _

"базка побилась" ,$array,"EHLO " & @ComputerName,-1 )

$error=@error

if $t <> 1 Then

FileWrite ( $Basepath&"check.Log", "ошибка отправки e-mail от "&$sendername& " "&$sender&@CRLF) 

FileWrite ( $Basepath&"check.Log", "ошибка протокола "&$error&@CRLF)

Else

FileWrite ( $Basepath&"check.Log", "email отправлен"&@CRLF)

    EndIf

EndFunc

;----------------------------------------------------------------------------------------------------------

 ; Com Error Handler

 ;----------------------------------------------------------------------------------------------------------

 Func MyErrFunc() 

 Local $HexNumber

 Local $strMsg

 $HexNumber = Hex($oMyError.Number, 8) 

 $strMsg = " " & $HexNumber & @CRLF 

 $strMsg &= "описание " & $oMyError.WinDescription & @CRLF 

 $strMsg &= "строка: " & $oMyError.ScriptLine & @CRLF 

 FileWrite ( $Basepath&"check.Log", "ошибка ком-объекта: "&$strMsg)

     FileWrite ( $Basepath&"check.Log", "e-mail не отправлен"& @CRLF)

 SetError(1)

 Endfunc

;передаем функции имя пользователя в домене, фамилию, имя и отчество

func _1cBuh($username, $surname,$name,$fathername)

FileWriteLine($logfile, "добавляем в 1с 8.3 бухгалтерия "& $Username)

$obj = ObjCreate("v83.comconnector")

$connect=$obj.Connect("Srvr=""servername"";Ref=""basename"";Usr=""login"";Pwd=""password"";")

Local $avArray[1], $i=0

;Спрашиваем про роли в базе

$hgui = GUICreate("вопрос" , 200, 200)

GUICtrlCreateLabel("какие права в бухгалтерии?",2,2)

GUICtrlCreateLabel("полные или пользовательские?",2,22)

$1 = GUICtrlCreateButton("полные", 5, 150, 70, 25)

$2= GUICtrlCreateButton("пользователь", 75, 150, 70, 25)

GUISetState(@SW_SHOW)

While 1

$msg = GUIGetMsg()

Select

Case $msg = $1

GUIDelete()

$rght="ПолныеПрава"

ExitLoop

Case $msg = $2

GUIDelete()

$rght="Бухгалтер"

ExitLoop

 EndSelect

 WEnd

$mt=$connect.Metadata.Roles.find($rght)

;создаем пользователя ИБ

$newuser= $connect.ПользователиИнформационнойБазы.createuser()

$newuser.name = $surname&" "&$name

$newuser.fullname = $surname&" "&$name&" "&$fathername

$newuser.StandardAuthentication = "False"

$newuser.OSAuthentication="True"

$newuser.OSuser="\\DOMAINNAME\"&$Username

$newuser.Roles.add($mt)

$newuser.write()

;создаем пользователя в справочнике

$bject=$connect.NewObject("СправочникМенеджер.Пользователи")

$newuserS=$bject.CreateItem()

$newuserS.code=$surname&" "&$name

$newuserS.Description=$surname&" "&$name&" "&$fathername

$newuserS.write()

;Выбираем группы (юрлица)

$query=$connect.Catalogs.ГруппыПользователей.Выбрать()

while $query.Следующий()

if StringInStr ( $query.Description, "Группа") then

_ArrayAdd($avArray, $query.Description)

$i+=1

endif

wend

$avArray[0]=$i

GUICreate("Группы Бухгалтерии", 200,$i*20+70)

for $i=1 to $avArray[0]

assign ("var"&$i, GUICtrlCreateCheckbox( $avArray[$i], 2, 0+20*$i));, 90, 20))

next

$OK_Btn = GUICtrlCreateButton("добавить", 50,$i*20+20, 60)

GUISetState()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $OK_Btn

For $i=1 to $avArray[0]

if BitAND(GUICtrlRead(eval("var"&$i)), $GUI_CHECKED) = _

$GUI_CHECKED Then

$grp=$connect.Справочники.ГруппыПользователей. _

НайтиПоНаименованию($avArray[$i]).ПолучитьОбъект()

$t=$grp.ПользователиГруппы.add()

$t.Пользователь = $newuserS.ссылка

$grp.write()

endif

next

GUIDelete()

ExitLoop

EndSelect

 WEnd

$connect=""

endfunc

#include <GUIConstantsEx.au3>
local $name
GUICreate("перенос", 200, 180)
GUICtrlCreateLabel("название базы по английки",2,35)
$name1 = GUICtrlCreateInput($name, 2, 50, 300, 20)
$OK_Btn = GUICtrlCreateButton("погнали", 70, 180, 60)
GUISetState()
While 1
  $msg = GUIGetMsg()
  Select
     Case $msg = $GUI_EVENT_CLOSE
         Exit
     Case $msg = $OK_Btn
     $name = GUICtrlRead($name1)
     exitloop
  endselect
WEnd
GUIDelete()
GUICreate("перенос", 200, 180)
GUICtrlCreateLabel("отключаем базу",2,2)
GUISetState()
$constrim="DRIVER={SQL Server};SERVER=старый_сервер;DATABASE=master;uid=sa;pwd=пароль;"
$adCN = ObjCreate ("ADODB.Connection")
$adCN.Open ($constrim)
$sQuery = "sp_detach_db @dbname = N'"&$name&"'"
$adCN.Execute($sQuery)
$adCN.Close
GUICtrlCreateLabel("перемещаем базу",2,15)
$u=FileCopy ("\\старый_сервер\путь к папке с SQL-базами\"&$name&".mdf","\\новый_сервер\путь к папке с SQL-базами\"&$name&".mdf")
if $u = 0 Then
  GUICtrlCreateLabel("ОШИБКА! ПЕРЕМЕЩЕНИЕ НЕУСПЕШНО!!!!",2,15)
  $OK_Btn = GUICtrlCreateButton("закрыть", 336,40, 60)
  GUISetState()
  While 1
     $msg = GUIGetMsg()
     Select
         Case $msg = $GUI_EVENT_CLOSE
            exit
         Case $msg = $OK_Btn
            exit
     endselect
  WEnd
  GUIDelete()
EndIf

$u=FileCopy ("\\старый_сервер\путь к папке с _

SQL-базами\"&$name&".ldf","\\новый_сервер\путь к папке с SQL-базами\"&$name&".ldf")
if $u = 0 Then
  GUICtrlCreateLabel("ОШИБКА! ПЕРЕМЕЩЕНИЕ НЕУСПЕШНО!!!!",2,15)
  $OK_Btn = GUICtrlCreateButton("закрыть", 336,40, 60)
  GUISetState()
  While 1
     $msg = GUIGetMsg()
     Select
         Case $msg = $GUI_EVENT_CLOSE
            exit
         Case $msg = $OK_Btn
            exit
     endselect
  WEnd
  GUIDelete()
EndIf

GUICtrlCreateLabel("создаем скулевую базу "&$name,2,28)
GUISetState()
$constrim="DRIVER={SQL Server};SERVER=новый_сервер;DATABASE=master;uid=sa;pwd=пароль;"
$adCN = ObjCreate ("ADODB.Connection")
$adCN.Open ($constrim)
$sQuery = "CREATE DATABASE "&$name&" ON (FILENAME = 'путь к папке с _

базами\"&$name&".mdf'), (FILENAME = 'путь к папке с базами\"&$name&".ldf') FOR ATTACH"
$adCN.Execute($sQuery)
$adCN.Close
GUICtrlCreateLabel("создаем 1c-ную базу "&$name,2,41)
GUISetState()
run ("""C:\Program Files (x86)\1cv8\common\1cestart.exe"" createinfobase_

""Srvr=localhost;Ref="&$name&";DB="&$name&";DBMS=MSSQLServer;DBSrvr=localhost;DBUID=sa;DBPwd=пароль""")
GUICtrlCreateLabel("закончили, проверяйте ",2,54)
$OK_Btn = GUICtrlCreateButton("закрыть", 336,40, 60)
GUISetState()
While 1
 $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
             exitloop
     Case $msg = $OK_Btn
            exitloop
    endselect
WEnd
GUIDelete()