Beiträge von gmmg

-- schreiben in die Registry funktioniert, aber die Werte sind nicht korrekt ---

$putty_file = @ScriptDir & '\bin\putty.reg.txt'

$RegArray = IniReadSectionNames($putty_file)
;_ArrayDisplay($RegArray)

For $i = 1 To UBound($RegArray) -1

    $RegArrayaSec = IniReadSection($putty_file, $RegArray[$i])
    _ArrayDisplay($RegArrayaSec)

    For $a = 1 To UBound($RegArrayaSec) -1

        $dword = StringSplit($RegArrayaSec[$a][1],"dword:",1)

        If $dword[0] = 1 Then
            RegWrite(StringReplace($RegArray[$i],'"',''), StringReplace($RegArrayaSec[$a][0],'"',''), 'REG_SZ', StringReplace($RegArrayaSec[$a][1],'"',''))
        EndIf
        If $dword[0] = 2 Then
            RegWrite(StringReplace($RegArray[$i],'"',''), StringReplace($RegArrayaSec[$a][0],'"',''), 'REG_DWORD', StringReplace(StringReplace($RegArrayaSec[$a][1],"dword:",""),'"',''))
        EndIf
    Next

Next

$s_Row_txt_1 = "1" 
$s_Row_txt_2 = "testuser"
$s_Row_txt_3 = "ok"


Local $sQuery = "INSERT INTO tabelle (`nr`,`user`,`status`) " & _
                "VALUES ('" & $s_Row_txt_1 & "',"& _
                "'" & $s_Row_txt_2 & "',"& _
                "'" & $s_Row_txt_3 & "')"& _
                " ON DUPLICATE KEY UPDATE "& _
                "`Insert_Error` = NOW()"

;_MySQL_Real_Query($MysqlConn, $sQuery)
If _MySQL_Real_Query($MysqlConn, $sQuery) Then ; Fehler
    MsgBox(0,"","Fehlernummer: " & _MySQL_Errno($MySQLConn) & @CRLF & _MySQL_Error($MysqlConn))
EndIf
If @error <> 0 Then MsgBox(0,"",$x & " / " & $sQuery)

#include <array.au3>
#include <mysql.au3>

; db verbindungsvariablen
$ipadd = "db_server"
$sname = "db_user"
$spasswort = "db_Kennwort"
$db = "datenbank

_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, "Fehler", "libmysql.dll nicht gefunden")

$MysqlConn = _MySQL_Init()

$connected = _MySQL_Real_Connect($MysqlConn,$ipadd,$sname,$spasswort,$db)

If $connected = 0 Then
    $errno = _MySQL_errno($MysqlConn)
    MsgBox(0,"Fehler","Login Server ist nicht Erreichbar")
    Exit
Endif

Local $sQuery = "SELECT * FROM `DBTabelle`"
;MsgBox(0,"",$sQuery)

_MySQL_Real_Query($MysqlConn, $sQuery)

$res = _MySQL_Store_Result($MysqlConn)
$array = _MySQL_Fetch_Result_StringArray($res)
_MySQL_Free_Result($res)

_ArrayDisplay($array)



;Test 2
Local $sQuery1 = 'SELECT * FROM DBTabelle where User="' & @UserName & '"'

_MySQL_Real_Query($MysqlConn, $sQuery1)

$res1 = _MySQL_Store_Result($MysqlConn)
$array1 = _MySQL_Fetch_Result_StringArray($res1)
_MySQL_Free_Result($res1)

_ArrayDisplay($array1)


; Verbindung beenden
_MySQL_Close($MysqlConn)
; MYSQL beenden
_MySQL_EndLibrary()

#Include <Date.au3>
Global $Hour = StringSplit(_NowTime(4), ':')[1]

;MsgBox(0,"",$Hour)
;$Hour += 1

While 1
    If $Hour = 24 Then $Hour = 0
    If BatchRun($Hour) Then $Hour += 1
    sleep(100)
WEnd

Func BatchRun($Time)
    ;MsgBox(0,"",$Time)
    If StringLen($Time) = 1 then $Time = '0' & $Time
    $Time = $Time & ':19'
    ConsoleWrite($Time)

    If _NowTime(4) = $Time Then
        MsgBox(0,"","test",1)
        ;ShellExecute("D:\AWK\Schnittstelle\Auftraege\PTV_Import.bat")
        sleep(1000) ;Sicherstellen das das Skript nur 1 mal ausgeführt wird!
        Return True
    Else
        Return False
    EndIf
EndFunc

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Program Files (x86)\AutoIt3\_ICOS\924.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <file.au3>
#include <AD.au3>
#include <GuiConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>

_AD_ErrorNotify(2)

;Global $hUserName, $hPassword, $sUserName, $sPassword
$gui = GUICreate("Authenticate", 120, 170)
GUICtrlCreateLabel("Username:", 10, 10, 50, 20)
$hUserName = GUICtrlCreateInput("", 10, 35, 100, 20)
GUICtrlCreateLabel("Password:", 10, 70, 50, 20)
$hPassword = GUICtrlCreateInput("", 10, 95, 100, 20, $ES_PASSWORD)
$go = GUICtrlCreateButton("OK", 10, 130, 50, 25, $BS_DEFPUSHBUTTON)
$cancel = GUICtrlCreateButton("Cancel", 60, 130, 50, 25)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $go
            $sUserName = GUICtrlRead($hUserName)
            $sPassword = GUICtrlRead($hPassword)
            _AD_Open($sUserName, $sPassword)
            If @error Then
                MsgBox(64, "Fehler", "User oder Passwort falsch!")
                Exit
            Else

                $start = 0
                _isIngroup()

                IF  $start = 1 Then

                    ; Output Username to log file with date and time
                    _FileWriteLog(@Scriptdir & "\Username.log", $sUserName)
                    ShellExecute("notepad.exe")
                    Exit
                Else
                    MsgBox(0,"Info","Not member " & @crlf & "Close Program")
                    Exit
                EndIf
            EndIf

        Case $cancel, $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
GUIDelete($gui)

Func _isIngroup()

    Dim $member[3]

    $member[0] = "Maschine1_admin"
    $member[1] = "Maschine1_Wartung"
    $member[2] = "IT-Systems-and-Services"

    _AD_Open()

    For $i = 0 To 2
        $is_member = _AD_IsMemberOf($member[$i], $sUserName)
        If $is_member = 1 Then
            MsgBox(0,"",$is_member & $member[$i])
            $start = 1
            ExitLoop
        EndIf
    Next

    _AD_Close()

EndFunc

$not_start = 0
    ;---------------------------------------
    Dim $member[12]

    $member[0] = "Verteiler/Gruppe1"
    $member[1] = "Verteiler/Gruppe2"
    $member[2] = "Verteiler/Gruppe3"
    $member[3] = "Verteiler/Gruppe4"
    $member[4] = "Verteiler/Gruppe5"
    $member[5] = "Verteiler/Gruppe6"
    $member[6] = "Verteiler/Gruppe7"
    $member[7] = "Verteiler/Gruppe8"
    $member[8] = "Verteiler/Gruppe9"
    $member[9] = "Verteiler/Gruppe10"
    $member[10] = "Verteiler/Gruppe11"
    $member[11] = "Verteiler/Gruppe12"

    _AD_Open()

    For $i = 0 To 11
        $is_member = _AD_IsMemberOf($member[$i], @UserName)
        If $is_member = 1 Then
            ;MsgBox(0,"",$is_member & $member[$i])
            $not_start = 1
            ExitLoop
        EndIf
    Next

    _AD_Close()

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Create application object
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpenText Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Local $sTextFile = "d:\zusammen_test.csv"
;Local $sTextFile = "d:\Import_satisfaction_Test.csv"
_Excel_BookOpenText($oExcel, $sTextFile)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpenText Example 1", "Error opening '" & $sTextFile & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpenText Example 1", "Workbook '" & $sTextFile & "' has been opened successfully.")