Advertisement
Guest User

Untitled

a guest
Dec 1st, 2017
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 5.56 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. #include <WindowsConstants.au3>
  3. #include <ListBoxConstants.au3>
  4. #include <EditConstants.au3>
  5.  
  6. $SrvHost = "fs-zvk"
  7. $etc = @ScriptDir & "\etc\"
  8. $Client = $etc & "Client.exe"
  9. $psexec= $etc & "psexec.exe"
  10. Local $Font = "Comic Sans MS", $Mylist
  11. Const $Title= "Remote Assistance"
  12. $UserName = "Администратор"
  13. $Window = GUICreate($Title, 290, 440) ;Создаем окно
  14. GUISetState(@SW_SHOW) ; показывает созданное окно
  15. GUISetBkColor(0xE0FFFF)
  16.  
  17. GUICtrlCreateGroup("Введите имя компьютера или IP: ", 40, 5, 210, 60)
  18.  
  19. $InputHost = GUICtrlCreateInput('', 45, 28, 200, 22, $WS_BORDER)
  20.  
  21. GUICtrlCreateGroup("Введите логин и пароль Администратора: ", 30, 85, 230, 135)
  22.  
  23. GUICtrlCreateLabel ("Введите логин", 35, 107, 75)
  24. GUICtrlCreateLabel ("Введите пароль", 35, 159, 81)
  25. $InputLogin = GUICtrlCreateInput('', 35, 130, 220, 22, $WS_BORDER)
  26. $InputPass = GUICtrlCreateInput('', 35, 180, 220, 22, BitOR($ES_PASSWORD, $WS_BORDER))
  27.  
  28. $OKButton = GUICtrlCreateButton("Запустить",40, 300, 70) ;Создание кнопок
  29. $EXITButton = GUICtrlCreateButton("Выход", 180, 300, 70)
  30.  
  31. $DWButtonInstall = GUICtrlCreateCheckbox("Установка/Запуск службы DameWare", 40, 240, 210, 16)
  32.  
  33. $UVNCButtonInstall = GUICtrlCreateCheckbox("Установка/Запуск сервера UltraVNC", 40, 270, 210, 16)
  34.  
  35. $Mylist = GUICtrlCreateList("", 7, 343, 275, 80, $WS_BORDER+$WS_VSCROLL+$LBS_NOINTEGRALHEIGHT)
  36.  
  37. GUICtrlSetState($OKButton, $GUI_DISABLE)
  38.  
  39. Func SetButtonState()
  40.    If GUICtrlRead($DWButtonInstall) = $GUI_CHECKED _
  41.       or GUICtrlRead($UVNCButtonInstall) = $GUI_CHECKED _
  42.    Then
  43.       GUICtrlSetState($OKButton, $GUI_ENABLE)
  44.    Else
  45.       GUICtrlSetState($OKButton, $GUI_DISABLE)
  46.    EndIf
  47. EndFunc
  48.  
  49. ; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто
  50. While 1
  51.    Switch GUIGetMsg()
  52.       Case $GUI_EVENT_CLOSE
  53.          ExitLoop
  54.       Case $DWButtonInstall
  55.          SetButtonState()
  56.       Case $UVNCButtonInstall
  57.          SetButtonState()
  58.       Case $OKButton
  59.          $Host=GUICtrlRead($InputHost)
  60.          $Login=GUICtrlRead($InputLogin)
  61.          $Pass=GUICtrlRead($InputPass)
  62.          Start()
  63.       Case $EXITButton
  64.          Exit
  65.    EndSwitch
  66. WEnd
  67.  
  68. Func Start()
  69.          If $Host <> "" Then
  70.             GUICtrlSetData($Mylist, "Компьютер: " & $Host)
  71.             if $Login <> "" And $Pass <> "" Then
  72.                MsgBox(0,"","Не пустые")
  73.                Do
  74.                   $Auth=RunWait($psexec & "\\" & $Host & " -u " & $Login & " -p " & $Pass & " cmd.exe /c ping 127.0.0.1 -n 1")
  75.                   msgbox(0,"",$Auth)
  76.                   If $Auth <> 0 Then
  77.                     MsgBox(0,$Title,"Вы ввели не правильный логин или пароль" &@CRLF&"Попробуйте еще раз.")
  78.                   EndIf
  79.                Until $Auth = 0
  80.                $Ping=Ping($Host,1)
  81.                $Ping2=Ping($SrvHost,1)
  82.                If ($Ping <> 0) Then
  83.                If ($Ping2 <> 0) Then
  84.                   GUICtrlSetData($Mylist, "Компьютер: " & $Host & " доступен )")
  85.                   GUICtrlSetData($Mylist, "Компьютер: " & $SrvHost & " доступен )")
  86.                   If GUICtrlRead ($DWButtonInstall) = $GUI_CHECKED Then
  87.                      DWInstall()
  88.                   EndIf
  89.                   If GUICtrlRead ($UVNCButtonInstall) = $GUI_CHECKED Then
  90.                      UVNCInstall()
  91.                   EndIf
  92.                Else
  93.                   GUICtrlSetData($Mylist, "Компьютер: " & $Host & " не отвечает (")
  94.                   GUICtrlSetData($Mylist, "Компьютер: " & $SrvHost & " не отвечает (")
  95.                   GUICtrlSetData($Mylist, "Выход... ")
  96.                   Sleep(2000)
  97.                   Exit
  98.                EndIf
  99.                EndIf
  100.             Else
  101.                MsgBox(48,$Title,"Введите логин и пароль!")
  102.             EndIf
  103.          Else
  104.             MsgBox(48,$Title,"Введите имя компьютера или IP!")
  105.          EndIf
  106.       EndFunc
  107.  
  108. Func DWInstall()
  109.    ;MsgBox(0,"",$Connect)
  110.    $Connect=RunWait($psexec & " -c -f "& "\\" & $Host & " -u " & $Login & " -p " & $Pass &" "& $Client & " dw")
  111.    If $Connect=0 Then
  112.       GUICtrlSetData($Mylist, "Служба успешно установлена на компьютере: "& $Host)
  113.       sleep(2000)
  114.       if FileExists("C:\Program Files (x86)\SolarWinds\DameWare Remote Support\DWRCC.EXE") or FileExists("C:\Program Files (x86)\SolarWinds\DameWare Remote Support\DWRCC.EXE") Then
  115.          GUICtrlSetData($Mylist, "Подключаюсь к: "& $Host)
  116.          Run("C:\Program Files (x86)\SolarWinds\DameWare Remote Support\DWRCC.EXE -c: -x: -h: -m:" & $Host & " -u:" & $Login & " -p:" & $Pass & " -a:2")
  117.       Else
  118.          MsgBox(48,$Title,"Dameware не айдена на вашем компьютере")
  119.          Exit
  120.       EndIf
  121.    ElseIf $Connect=4 Then
  122.       MsgBox(16,$Title,"Произошла ошибка! " & "Код выхода: " & $Connect)
  123.       Exit
  124.    ElseIf $Connect=5 Then
  125.       MsgBox(16,$Title,"Перезапуск службы не удался")
  126.       Exit
  127.    EndIf
  128. EndFunc
  129.  
  130. Func UVNCInstall()
  131.    ;MsgBox(0,"",$Connect)
  132.    $Connect=RunWait($psexec & " -c -f "& "\\" & $Host & " -u " & $Login & " -p " & $Pass &" "& $Client & " vnc")
  133.    If $Connect=0 Then
  134.        GUICtrlSetData($Mylist, "Служба успешно установлена на компьютере: "& $Host)
  135.        sleep(2000)
  136.        GUICtrlSetData($Mylist, "Подключаюсь к: "& $Host)
  137.       Run($etc & "vncviewer.exe " & $Host &" /password 123456")
  138.    ElseIf $Connect=4 Then
  139.       MsgBox(16,$Title,"Произошла ошибка! " & "Код выхода: " & $Connect)
  140.       Exit
  141.    ElseIf $Connect=5 Then
  142.       MsgBox(16,$Title,"Перезапуск службы не удался")
  143.       Exit
  144.    EndIf
  145. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement