Beiträge von TOMTOM25m

TOMTOM25m

Hallo Leute,

ich ha da ein Array das mit daten aus einer LDAP verbindung gefüttert wurde

[0]|4
[1]|CN=SophosAdministrator,OU=Users,OU=_Admins,DC=AA,DC=DOM,DC=bb,DC=cc
[2]|CN=Account Operators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc
[3]|CN=Distributed COM Users,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc
[4]|CN=Administrators,CN=Builtin,DC=AA,DC=DOM,DC=bb,DC=cc

so wie schaffe ich es jetzt das ich nur noch den ersten Teil des Datensatzes rausbekomme.

Mir raucht heute schon der Kopf.........

lg
TOM

TOMTOM25m

danke für die Hilfe

TOMTOM25m

Hallo Leute,

also ich muss in meinem Netlogon.EXE Projekt Virtuelle Laufwerke suchen und eliminieren.
in dem ehemaligen logon.bat ist es so gelöst worden:

Code

for /F "usebackq delims=\" %%s in (`subst`) Do subst %%s /d

wie kann ich das in AutoIt umsetzen ohne den DOS befehl subst zu verwenden

lg
TOM

TOMTOM25m

Also wir brauchen:

eine Netlogon.exe (keine VBS,kein Bat, kein cmd)

diese Netlogon.exe soll automatisch alles wichtige aus dem AD auslesen und umsetzen.
Ok das weis ich schon wie es geht.

Was ich aber jetzt brauche ist:

Ich will der Netlogon.exe beibringen das ich per Parameter noch eine "AD-Gruppe" zusätzlich zu den ausgelesenen "AD-Gruppen" hinzufügen kann.

also : USER1 ist in der Finanzabteilung : d.H. er ist in den Gruppen Finanz, Telebanking, ....
dieser USER1 soll jetzt aber kurzfristig stundenweise aber in der Personalabteilung aushelfen also braucht er für die Stunde einen zugang zu der gruppe PERS und Sekretaria.

(es geht z.b: bei den gruppen PERS / Sekretariat um reine LW zuordnungen / NW-Shares)

verstehst du was ich meine ?

Netlogon.EXE [<Parameter><Variable>]

lg
TOM

TOMTOM25m

Hi Leute,
Ich brauch mal eure Hilfe !

wie kann ich einer EXE unterschiedliche Parameter mitgeben
z.B. logon.exe -gGruppe1 -gGruppe2 ...... (die gruppe 1 kann zb. Mitglieder oder Domänen-User oder was auch immer ..... heissen, bei der gruppe xy genauso .....)

mein Ansatz wär so:

Spoiler anzeigen

[autoit]

If $CmdLine[0] > 0 Then
Select
Case $CmdLine[1] = "-g" & $logongroup1 And $CmdLine[2] = "-g" & $logongroup2 And $CmdLine[3] = "-g" & $logongroup3 And $CmdLine[4] = "-g" & $logongroup4
MsgBox(0, '', "Parameter p")
Case $CmdLine[1] = "-g" & $logongroup1 And $CmdLine[2] = "-g" & $logongroup2 And $CmdLine[3] = "-g" & $logongroup3
MsgBox(0, '', "Parameter q")
Case $CmdLine[1] = "-g" & $logongroup1 And $CmdLine[2] = "-g" & $logongroup2
MsgBox(0, '', "Parameter p")
Case $CmdLine[1] = "-g" & $logongroup1
MsgBox(0, '', "Parameter p")
Case Else
MsgBox(0, '', "Falscher Parameter")
EndSelect
Else
MsgBox(0, '', "Kein Parameter")
EndIf

[/autoit]

lieg ich da richtig damit ?

danke für eure hilfe ....

lg
TOM

TOMTOM25m

He Leute !!

danke für die Ideen !!! funzt soweit supa !!! ABER wie mach ich das wenn der Computer abgestürzt oder abgeschaltet (ausgeloggt) wurde ?
da fängt er ja von vorne an zum zählen. Das ist etwas blöd.

der Hintergrund dieses Programmes ist:
Ich muss meinem Sohn eine Zeitgrenze setzen 8h wird er eh nicht spielen dürfen eher 4h am Tag das reicht. (wir sind überzeugt das er kurz vor einer Computersucht steht !!! ) Reden nützt nicht da leider nicht viel da versucht er zu verhandlen und zu diskutieren (er hat nicht 4 stunden gespielt sonder 3,5 und und und). Wenn der Computer von selbst sagt es ist aus dann gibt es keine Diskusion...... der Compi zählt genau genau (na ja 5 mins auf oder ab ist somit kein Problem bei 4 Stunden)

Die ganzen ParentsFriends und so funzen bei mir in der Domain nicht so toll. Somit muss ich was eigenes schreiben.
Was ich schon geschrieben habe ist eine Zeiteinschränkung er darf von 10h bis 21h in diesem Zeitrahmen spielen. Jetzt fehlt nur noch die Einschränkung der Spielezeit (Spiel GW.exe ).
Arbeiten soll er aber ja noch dürfen word,Excel, und co.

danke für eure Hilfe

lg
TOM

TOMTOM25m

Hallo !!
Ich melde mich gleich mit einer neuen Frage zurück.... (Ich war die letzten Monate leider etwas verhindert und nur sporadisch online) leider bin ich wieder etwas eingerostet

Ich muss eine Prozesslaufzeitüberwachung machen.

das heisst: ein Programm wird immer wieder gestartet und wieder gestoppt.(mal 5mins dann 30mins Pause, mal 2h dann 1h pause, mal 30mins, usw.) dies darf aber am Tag für maximal 8 Stunden geschehen.
also ich muss jeden Start kennzeichnen und jeden Stopp. und die summe dieser laufzeiten dürfen nicht die 8 Stunden überschreiten.

wie mach ich das am besten .......

lg
TOM

TOMTOM25m

Zitat von Xenobiologist

Hi,

gibt es einen Grund warum du die SQL UDF nicht verwendest?

Mega

Ja weil ich gespeicherte Prozeduren ( auf dem SQL-Server direkt ) verwende.
Ich kann dort die befehle direkt verwalten und muss nix neu kompilieren

lg

TOMTOM25m

Variablen und SQL Abfragen

VARIABLEN :

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Res_Comment=XXXXXXXXXXXXXXXXXXXXXXXx
#AutoIt3Wrapper_Res_Description=Globale config
#AutoIt3Wrapper_Res_Fileversion=2007.12.18.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=2007 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-d
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sf /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("MustDeclareVars", 1)
;~ #include "Global_XX_CONST.au3"
#include-once
#include
Local Const $LC_CONFIGFILE = @ScriptDir & "\conf\Export.ini"
Local Const $LC_EMPTYVAL = "Keine Pfad konfiguriert"
Local Const $LC_PATH = "PFADE"
Local $s_rootpath = IniRead($LC_CONFIGFILE, $LC_PATH, "root", $LC_EMPTYVAL)
Local $s_clusterrootpath = IniRead($LC_CONFIGFILE, $LC_PATH, "RRROOT", $LC_EMPTYVAL)
Local $s_jackdat = IniRead($LC_CONFIGFILE, $LC_PATH, "JACDAT", $LC_EMPTYVAL)
Local $s_rebuild = IniRead($LC_CONFIGFILE, $LC_PATH, "REBUILD", $LC_EMPTYVAL)
Local $s_generic = IniRead($LC_CONFIGFILE, $LC_PATH, "GENERIC", $LC_EMPTYVAL)
Local $s_jackprog = IniRead($LC_CONFIGFILE, $LC_PATH, "JACPROG", $LC_EMPTYVAL)
Local $s_Jackofc = IniRead($LC_CONFIGFILE, $LC_PATH, "JACOFC", $LC_EMPTYVAL)
Local $s_tansformer = IniRead($LC_CONFIGFILE, $LC_PATH, "TRANS", $LC_EMPTYVAL)
Local $s_cootpath = IniRead($LC_CONFIGFILE, $LC_PATH, "coot", $LC_EMPTYVAL)
Local $s_savepath = IniRead($LC_CONFIGFILE, $LC_PATH, "SAVE", $LC_EMPTYVAL)
Local $s_logbak = IniRead($LC_CONFIGFILE, $LC_PATH, "LOGBAK", $LC_EMPTYVAL)
Local $s_Temp = IniRead($LC_CONFIGFILE, $LC_PATH, "TMP", $LC_EMPTYVAL)
Local Const $LC_FTA = @ScriptDir & "\conf\Feiertage.txt"
Local Const $LC_EMPTYVALSRV = "Faircom"
Local Const $LC_EMPTYVALTIME = @MDAY & "." & @MON & "." & @YEAR
Local Const $LC_SRV = "SRV"
Local Const $LC_MAIL = "MAIL"
Local Const $LC_MAN = "MANDANT"
Local Const $LC_TIME = "TIME"
Local Const $LC_SQLEXP = "SQL"
Local Const $LC_EXP = "EXPORTE"
Local Const $LC_MISEXP = "MIS"
Local Const $LC_BJ = "Buchungsjahr"
Local Const $LC_PW = "PW"
Local Const $LC_SAPEXP = "SAP"
Local Const $LC_FETAJ = "FEIERTAGS_JAHR"
Local Const $LC_LOGPATH = $s_rootpath & "\log"
Local Const $LC_TIMEFILE = @ScriptDir & "\conf\time.stamp"
Local Const $LC_TIMEFILENAME = "time.stamp"
Local Const $LC_ON = "Online"
Local Const $LC_DATE = _NowCalcDate()
Global $found = 0
Local $s_Jackproz = "Jackv30.exe"
Local $s_cluster = IniRead($LC_CONFIGFILE, $LC_SRV, "SERVER", $LC_EMPTYVALSRV)
Local $s_faircom = IniRead($LC_CONFIGFILE, $LC_SRV, "FAIRCOM", $LC_EMPTYVALSRV)
Local $s_SRVfair = IniRead($LC_CONFIGFILE, $LC_SRV, "SRV", $LC_EMPTYVALSRV)
Local $s_fairsrv = IniRead($LC_CONFIGFILE, $LC_SRV, "FAIRCOM", $LC_EMPTYVALSRV)
Local $s_crspath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRS", $LC_EMPTYVAL)
Local $s_sleep = IniRead($LC_CONFIGFILE, $LC_PATH, "SCHLAF", $LC_EMPTYVAL)
Local $s_mandant = IniRead($LC_CONFIGFILE, $LC_MAN, "MAN", $LC_EMPTYVAL)
Local $s_timestart = IniRead($LC_TIMEFILE, $LC_TIME, "beginn", $LC_EMPTYVALTIME)
Local $s_timeend = IniRead($LC_TIMEFILE, $LC_TIME, "ende", $LC_EMPTYVALTIME)
Local $s_BuchungsJahr = IniRead($LC_CONFIGFILE, $LC_BJ, "Jahr", $LC_EMPTYVAL)
Local $s_ctws04log = IniRead($LC_TIMEFILE, $LC_PATH, "CTWS04", $LC_EMPTYVAL)
Local $s_ODBC = IniRead($LC_CONFIGFILE, $LC_PATH, "ODBC", $LC_EMPTYVAL)
Local $s_ODBCx6 = IniRead($LC_CONFIGFILE, $LC_PATH, "ODBCx6", $LC_EMPTYVAL)
Local $s_ODBCx7 = IniRead($LC_CONFIGFILE, $LC_PATH, "ODBCx7", $LC_EMPTYVAL)
Local $s_backup = IniRead($LC_CONFIGFILE, $LC_PATH, "BACKUP", $LC_EMPTYVAL)
Local $s_JODBC = IniRead($LC_CONFIGFILE, $LC_PATH, "JACKODBC", $LC_EMPTYVAL)
Local $s_crsSAPpath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRSW", $LC_EMPTYVAL)
Local $s_crsMISpath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRSM", $LC_EMPTYVAL)
Local $s_crsBSPpath = IniRead($LC_CONFIGFILE, $LC_PATH, "CRSB", $LC_EMPTYVAL)
Local $s_SAPApath = IniRead($LC_CONFIGFILE, $LC_PATH, "SAPA", $LC_EMPTYVAL)
Local $s_MISApath = IniRead($LC_CONFIGFILE, $LC_PATH, "MISA", $LC_EMPTYVAL)
Local $s_BSPApath = IniRead($LC_CONFIGFILE, $LC_PATH, "BSPA", $LC_EMPTYVAL)
Local $s_jahr = IniRead($LC_CONFIGFILE, $LC_FETAJ, "FETA", $LC_EMPTYVAL)
Local $s_exportpfad = IniRead($LC_CONFIGFILE, $LC_PATH, "EXP", $LC_EMPTYVAL)
Local $s_passwort = IniRead($LC_CONFIGFILE, $LC_PW, "pw", $LC_EMPTYVAL)
Local $s_SAPExportpath = IniRead($LC_CONFIGFILE, $LC_SAPEXP, "SAPP", $LC_EMPTYVAL)
Local $s_MISExportpath = IniRead($LC_CONFIGFILE, $LC_MISEXP, "MISP", $LC_EMPTYVAL)
Local $s_SAPDatumVon = IniRead($LC_CONFIGFILE, $LC_SAPEXP, "von", $LC_EMPTYVAL)
Local $s_SAPDatumBis = IniRead($LC_CONFIGFILE, $LC_SAPEXP, "bis", $LC_EMPTYVAL)
Local $s_datenow = _NowCalcDate()
Local $s_date = _DateAdd("D", 1, $s_datenow)
Local $s_Odate = _DateAdd("D", -1, $s_timeend)
Local $s_pos
Local $s_PID
Local $s_PIDf
Local $socket
Local $G_found
Local $s_Pfad, $s_Ist_Groesse, $s_min_groesse, $s_min_groesse_BKP
Local $file, $timer, $size, $diff, $sizeS, $GBS, $GBSa, $GBF, $GB, $VERZ, $varD, $varDS, $sizeD, $GBD
Local $time = 1
Local $s_time
Local $list, $ready, $s_rarfile
Local $time, $t, $Time1, $Date
Local $res_cluster, $line
Local $search, $file
Local $fooB, $lineB
Local $foo, $LC_DATE2, $EDate, $BDate
Local $line, $s_currentfile, $a_filetimem, $s_currentfilem, $h_file, $a_filetime, $s_handle, $s_search, $s_file, $s_ready
Local $s_BeladungslaufIDS, $s_BeladungslaufIDU, $s_BeladungslaufIDB, $s_BELID
Local $f_A, $f_J, $f_B, $f_S, $f_U, $f_K, $f_V, $f_W, $f_M
Local $s_timer, $s_size, $s_sizeS, $s_sizeD, $s_diff, $s_varD
Local $s_rardat = "Jack_" & $s_mandant & "_" & $s_timeend ;& ".rar"
Local $s_rarfiledat
Local $s_logfilename = "Verzeichnisinformationen_Jack_" & $s_mandant & "_vom_" & @MDAY & "." & @MON & "." & StringTrimLeft(@YEAR, 2) & ".txt"
Local $s_mailsender = IniRead($LC_CONFIGFILE, $LC_MAIL, "FROM", "Jack@Mail.at")
Local $s_mailrecipient = IniRead($LC_CONFIGFILE, $LC_MAIL, "TO", "Jack@Mail.at")
Local $s_mailrecipient_BKP = IniRead($LC_CONFIGFILE, $LC_MAIL, "TOBKP", "Jack@Mail.at")
Local $s_mailrecipientNO = IniRead($LC_CONFIGFILE, $LC_MAIL, "TON", "Jack@mail.at")
Local $s_smsrecipientNO = IniRead($LC_CONFIGFILE, $LC_MAIL, "TOSMS", "012345@SMSGATEWAY.lan")
Local $s_smsrecipient = IniRead($LC_CONFIGFILE, $LC_MAIL, "TOMSMS", "06123456@SMSGATEWAY.lan")
Local $s_mailserver = IniRead($LC_CONFIGFILE, $LC_MAIL, "SRV", "172.30.111.111")
Local $s_controll_time = IniRead($LC_CONFIGFILE, $LC_TIME, "CT", $LC_EMPTYVALTIME)
Local $s_controll_time_Import = IniRead($LC_CONFIGFILE, $LC_TIME, "CTI", $LC_EMPTYVALTIME)
Local $s_min_groesse = 10;GB
Local $s_min_groesse_BKP = 3;GB
Local $s_Zeitmessung, $s_Zeitdifferenz,$s_zeitfile,$s_Zeitdifferenzstd,$s_Zeitdifferenzmin

[/autoit] [autoit][/autoit] [autoit]

Local $s_VB_StartZeitpunkt_MIS
Local $s_VB_EndeZeitpunkt_MIS
Local $s_VB_JackVersionsNummer_MIS
Local $s_VB_Aktiv_MIS
Local $s_VB_Fehlerr_MIS
Local $s_VB_ImportDatei_MIS
Local $s_VB_StartZeitpunkt_SAP
Local $s_VB_EndeZeitpunkt_SAP
Local $s_VB_JackVersionsNummer_SAP
Local $s_VB_Aktiv_SAP
Local $s_VB_Fehlerr_SAP
Local $s_VB_ImportDatei_SAP
Local $s_VB_StartZeitpunkt_KND
Local $s_VB_EndeZeitpunkt_KND
Local $s_VB_JackVersionsNummer_KND
Local $s_VB_Aktiv_KND
Local $s_VB_Fehlerr_KND
Local $s_VB_ImportDatei_KND
Local $s_VB_StartZeitpunkt_MIT
Local $s_VB_EndeZeitpunkt_MIT
Local $s_VB_JackVersionsNummer_MIT
Local $s_VB_Aktiv_MIT
Local $s_VB_Fehlerr_MIT
Local $s_VB_ImportDatei_MIT
Local $s_VB_StartZeitpunkt_REP
Local $s_VB_EndeZeitpunkt_REP
Local $s_VB_JackVersionsNummer_REP
Local $s_VB_Aktiv_REP
Local $s_VB_Fehlerr_REP
Local $s_VB_ImportDatei_REP

[/autoit] [autoit][/autoit] [autoit]

Local Const $LC_OKFILE = @ScriptDir & "\OK_MAILSM.txt"
Local Const $LC_OKFILEB = @ScriptDir & "\OK_MAIL.txt"
Local Const $LC_OKFILEI = @ScriptDir & "\OK_MAILI.txt"
Local Const $LC_FAILFILE = @ScriptDir & "\Fail_MAILM.txt"
Local Const $LC_FAILFILEB = @ScriptDir & "\Fail_MAIL.txt"
Local Const $LC_FAILFILEI = @ScriptDir & "\Fail_MAILI.txt"
Local Const $LC_OKSMSFILE = @ScriptDir & "\OK_SMSSM.TXT"
Local Const $LC_OKSMSFILEB = @ScriptDir & "\OK_SMS.TXT"
Local Const $LC_FAILSMSFILE = @ScriptDir & "\Fail_SMSM.TXT"
Local Const $LC_FAILSMSFILEB = @ScriptDir & "\Fail_SMS.TXT"
;Jack01 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant01 = IniRead($LC_CONFIGFILE, $LC_MAN, "M01", $LC_EMPTYVAL)
Local $s_rardat01 = "Jack_" & $s_mandant01 & "_" & $s_timeend ;& ".rar"
Local Const $LC_JACK01 = "JACK01"
Local $s_generic01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "GENERIC01", $LC_EMPTYVAL)
Local $s_rootpath01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "ROOT01", $LC_EMPTYVAL)
Local $s_mandant01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "MAN01", $LC_EMPTYVAL)
Local $s_snr01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "SNR01", $LC_EMPTYVAL)
Local $s_log01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "LOG01", $LC_EMPTYVAL)
Local $s_temp01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "TMP", $LC_EMPTYVAL)
Local $s_configfile01 = IniRead($LC_CONFIGFILE, $LC_JACK01, "INI01", $LC_EMPTYVAL)
Local $s_rarpath = IniRead($LC_CONFIGFILE, $LC_JACK01, "RARPA", $LC_EMPTYVAL)
Local Const $LC_LOGPATH01 = $s_log01
;Jack01 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;Jack09 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant09 = IniRead($LC_CONFIGFILE, $LC_MAN, "M09", $LC_EMPTYVAL)
Local $s_rardat09 = "Jack_" & $s_mandant09 & "_" & $s_timeend ;& ".rar"
;Jack09 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;Jack50 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant50 = IniRead($LC_CONFIGFILE, $LC_MAN, "M50", $LC_EMPTYVAL)
Local $s_rardat50 = "Jack_" & $s_mandant50 & "_" & $s_timeend ;& ".rar"
;Jack50 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;Jack51 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Local $s_mandant51 = IniRead($LC_CONFIGFILE, $LC_MAN, "M51", $LC_EMPTYVAL)
Local $s_rardat51 = "Jack_" & $s_mandant51 & "_" & $s_timeend ;& ".rar"
;Jack51 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;~ #include "\Global_XX_CONST.au3"

[/autoit] [autoit][/autoit] [autoit][/autoit]

</Date.au3>

SQL Funktionen :

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=SQL Verbindung zum SQLSRV für Logverzeichnis
#AutoIt3Wrapper_Res_Fileversion=2007.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=2007 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sfc /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include-once
;;;;;;; #include "XX_SQL.au3"
Local Const $LC_EMPTYVALSRV3 = "SQLSRV1"
Local Const $LC_EMPTYVALSRV1 = "SQLSRV2"
Local Const $LC_EMPTYVALSRV2 = "SQLSRV3"
Local Const $LC_EMPTYVALCAT = "Basisdaten"
Local Const $LC_SQL = "SQL"
Local $s_SQLSRV = IniRead($LC_CONFIGFILE, $LC_SQL, "SQLSRV", $LC_EMPTYVALSRV3)
Local $s_SQLSRV1 = IniRead($LC_CONFIGFILE, $LC_SQL, "SQLSRV1", $LC_EMPTYVALSRV1)
Local $s_SQLSRV2 = IniRead($LC_CONFIGFILE, $LC_SQL, "SQLSRV2", $LC_EMPTYVALSRV2)
Local $s_SQLCAT = IniRead($LC_CONFIGFILE, $LC_SQL, "catalog", $LC_EMPTYVALCAT)
Local $sqlCon
Local $adoRs
Local $rardat
Global $SQL_Projekt
Local $EXPdat
Local $SPFAD
Local $MAN
Local $s_VB_StartZeitpunkt
Local $s_VB_EndeZeitpunkt
Local $s_VB_JackVersionsNummer
Local $s_VB_JackVersionsNummer1
Local $s_VB_ImportDatei
Local $s_VB_Aktiv
Local $s_VB_Fehler
Local $s_VB_Aktive
Local $s_VB_Fehlerr
Local $s_Jahr
Local $s_Mon
Local $s_Tag
Local $s_H
Local $s_min
Local $s_sec
Local $s_BeladungslaufID
Local $BELArVerzGroesse
Local $BELArFileAnz

[/autoit] [autoit][/autoit] [autoit]

Local $objConnection,$objCommand,$objRecordSet,$AD_OU_INFO
;----#include "XX_SQL.au3"
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func EXPDAT_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_EXP_Jack_FileName @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "'", $sqlCon)
Local $s_rarfile = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_rarfile = .Fields("ImportDatei" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_rarfile)
EndFunc ;==>EXPDAT_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Aktiv($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source="&$s_SQLSRV1&";Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_Aktiv = .Fields("Aktiv" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
If $s_VB_Aktiv = False Or $s_VB_Aktiv = 0 Then
$s_VB_Aktive = 0
Else
$s_VB_Aktive = 1
EndIf
Return ($s_VB_Aktive)
EndFunc ;==>Import_ready_Aktiv
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Ende($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_EndeZeitpunkt = .Fields("EndeZeitpunkt" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_Jahr = StringMid($s_VB_EndeZeitpunkt, 1, 4)
$s_Mon = StringMid($s_VB_EndeZeitpunkt, 5, 2)
$s_Tag = StringMid($s_VB_EndeZeitpunkt, 7, 2)
$s_H = StringMid($s_VB_EndeZeitpunkt, 9, 2)
$s_min = StringMid($s_VB_EndeZeitpunkt, 11, 2)
$s_sec = StringMid($s_VB_EndeZeitpunkt, 13, 2)
$s_VB_EndeZeitpunkt = $s_Jahr & "-" & $s_Mon & "-" & $s_Tag & "_" & $s_H & ":" & $s_min & ":" & $s_sec
Return ($s_VB_EndeZeitpunkt)
EndFunc ;==>Import_ready_Ende
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Fehler($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_Fehler = .Fields("Fehler" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
If $s_VB_Fehler = False Or $s_VB_Fehler = 0 Then
$s_VB_Fehlerr = 0
Else
$s_VB_Fehlerr = 1
EndIf
Return ($s_VB_Fehlerr)
EndFunc ;==>Import_ready_Fehler
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_ImportDatei($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_ImportDatei = .Fields("ImportDatei" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_VB_ImportDatei = StringTrimLeft($s_VB_ImportDatei, 34)
Return ($s_VB_ImportDatei)
EndFunc ;==>Import_ready_ImportDatei
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_JackVersion($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_JackVersionsNummer1 = .Fields("JackVersionsNummer" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_VB_JackVersionsNummer = StringLeft($s_VB_JackVersionsNummer1, 7) & " vom " & StringRight($s_VB_JackVersionsNummer1, 18)
Return ($s_VB_JackVersionsNummer)
EndFunc ;==>Import_ready_JackVersion
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Import_ready_Start($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV1 & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open("Provider=SQLOLEDB;Data Source=SQL01V1;Integrated Security=SSPI;Initial Catalog=Basisdaten")
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.prc_Is_MIS_SAP_BOL_Import_ready " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
With $adoRs
If Not .EOF Then
$s_VB_StartZeitpunkt = .Fields("StartZeitpunkt" ).Value
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
$s_Jahr = StringMid($s_VB_StartZeitpunkt, 1, 4)
$s_Mon = StringMid($s_VB_StartZeitpunkt, 5, 2)
$s_Tag = StringMid($s_VB_StartZeitpunkt, 7, 2)
$s_H = StringMid($s_VB_StartZeitpunkt, 9, 2)
$s_min = StringMid($s_VB_StartZeitpunkt, 11, 2)
$s_sec = StringMid($s_VB_StartZeitpunkt, 13, 2)
$s_VB_StartZeitpunkt = $s_Jahr & "-" & $s_Mon & "-" & $s_Tag & "_" & $s_H & ":" & $s_min & ":" & $s_sec
Return ($s_VB_StartZeitpunkt)
EndFunc ;==>Import_ready_Start
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_BEL_($s_BeladungslaufID, $BELArVerzGroesse, $BELArFileAnz, $BELArdir, $BELArdat)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_BEL " & $s_BeladungslaufID & "," & $BELArVerzGroesse & "," & $BELArFileAnz & "," & $BELArdir & ",'" & $BELArdat & "'")
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_BEL_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_END_($s_BeladungslaufID)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_END " & $s_BeladungslaufID)
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_END_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_JD_($s_BeladungslaufID, $JackDatVerzGroesse, $JackDatFileAnz)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_JD " & $s_BeladungslaufID & "," & $JackDatVerzGroesse & "," & $JackDatFileAnz & "")
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_JD_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_LW_($s_BeladungslaufID, $LWGroesse)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_LW " & $s_BeladungslaufID & "," & $LWGroesse)
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_LW_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_START_($SQL_Mandant, $SQL_Projekt)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_Jack_LW_Daten_Start " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_StartJackBeladungslauf @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = "& $rardat&"", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>Jack_LW_Daten_START_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func Jack_LW_Daten_SNR_($s_BeladungslaufID, $SNRVerzGroesse, $SNRFileAnz)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_Jack_LW_Daten_SNR " & $s_BeladungslaufID & ",'" & $SNRVerzGroesse & "','" & $SNRFileAnz & "'")
$sqlCon.Close
EndFunc ;==>Jack_LW_Daten_SNR_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func MISREADY_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV1 & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset") ; osp_JACK_Import_Today
$adoRs.Open("exec dbo.osp_JACK_Import_Today " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
Local $ready = 0
If $adoRs.RecordCount Then $ready = 1
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>MISREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func MISREADYTEST_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.osp_JACK_Import_Today @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "'", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>MISREADYTEST_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func OSQLLOGEND_($s_BeladungslaufID)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Execute("exec dbo.prc_EndJackBeladungslauf @BeladungslaufID = " & $s_BeladungslaufID)
$sqlCon.Close
EndFunc ;==>OSQLLOGEND_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func OSQLLOGREADY_($SQL_Projekt, $SQL_Mandant, $rardat)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = '" & $rardat & "'", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>OSQLLOGREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func OSQLLOGSTART_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
;~ $sqlCon.Open ("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_StartJackBeladungslauf " & $SQL_Mandant & ",'" & $SQL_Projekt & "', '" & $rardat & "'", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>OSQLLOGSTART_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
;===============================================================================
;
; Function Name:OU_read_from_PC
; Description::Liest die Organisations Unit (OU) aus dem Active Directory (AD) eines im AD vorhandenen Computers aus
; Parameter(s): $AD_COMPUTER (Der Computername)
; Requirement(s):-
; Return Value(s): Beim Erfolg: gibt den OU des DomänenComputers aus .
;
; Author(s):TOMTOM25m (Garnreiter (c)2008)
;
;===============================================================================
;

[/autoit] [autoit][/autoit] [autoit]

Func OU_read_from_PC($AD_COMPUTER)

[/autoit] [autoit][/autoit] [autoit]

Const $ADS_SCOPE_SUBTREE = 2

[/autoit] [autoit][/autoit] [autoit]

$objConnection = ObjCreate("ADODB.Connection")
$objCommand = ObjCreate("ADODB.Command")

[/autoit] [autoit][/autoit] [autoit]

$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection

[/autoit] [autoit][/autoit] [autoit]

$objCommand.Properties("Page Size") = 1000
$objCommand.Properties("Searchscope") = $ADS_SCOPE_SUBTREE

[/autoit] [autoit][/autoit] [autoit]

$objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://dc=FIRMA,dc=lan' WHERE objectCategory='computer' AND name='" & $AD_COMPUTER & "'"

[/autoit] [autoit][/autoit] [autoit]

$objRecordSet = $objCommand.Execute

[/autoit] [autoit][/autoit] [autoit]

$objRecordSet.MoveFirst

[/autoit] [autoit][/autoit] [autoit]

Do
$AD_OU_INFO = $objRecordSet.Fields("ADsPath" ).Value
$objRecordSet.MoveNext
Until $objRecordSet.EOF

[/autoit] [autoit][/autoit] [autoit]

$objCommand = 0
$objRecordSet = 0
$AD_OU_INFO = StringSplit($AD_OU_INFO, ",")
$AD_OU_INFO = StringTrimLeft($AD_OU_INFO [3], 3)
Return $AD_OU_INFO
EndFunc ;==>OU_read_from_PC
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLEXPEND_($s_BeladungslaufID, $EXPdat)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
$sqlCon.Execute("exec dbo.prc_End_Jack_EXP_Beladungslauf @BeladungslaufID =" & $s_BeladungslaufID & ",@ImportDatei ='" & $EXPdat & "'")
$sqlCon.Close
EndFunc ;==>SQLEXPEND_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLEXPREADY_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_Is_Jack_EXP_BeladungslaufReady @BeladungslaufID = " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = '" & $rardat & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = " & $SQL_Projekt & ", @ImportDatei =" & $rardat & "", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>SQLEXPREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLEXPSTART_($SQL_Mandant, $SQL_Projekt)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_START_JACK_EXP_Beladungslauf " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_StartJackBeladungslauf @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = "& $rardat&"", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>SQLEXPSTART_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLLOGEND_($s_BeladungslaufID)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$sqlCon.Execute("exec dbo.prc_EndJackBeladungslauf @BeladungslaufID = " & $s_BeladungslaufID)
$sqlCon.Close
EndFunc ;==>SQLLOGEND_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLLOGREADY_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_IsJackBeladungslaufReady " & $SQL_Mandant & ", '" & $SQL_Projekt & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = '" & $rardat & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_IsJackBeladungslaufReady @Mandant = " & $SQL_Mandant & ", @Projekt = " & $SQL_Projekt & ", @ImportDatei =" & $rardat & "", $sqlCon)
Local $ready = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$ready = .Fields("Ready" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($ready)
EndFunc ;==>SQLLOGREADY_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func SQLLOGSTART_($SQL_Projekt, $SQL_Mandant, $rardat = "")
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_StartJackBeladungslauf " & $SQL_Mandant & ",'" & $SQL_Projekt & "', '" & $rardat & "'", $sqlCon)
;~ $adoRs.Open ("exec dbo.prc_StartJackBeladungslauf @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "', @ImportDatei = "& $rardat&"", $sqlCon)
Local $s_BeladungslaufID = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_BeladungslaufID = .Fields("BeladungslaufID" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_BeladungslaufID)
EndFunc ;==>SQLLOGSTART_
;-----------------------------------------------------------------------------------------------------------------------------------------------------;
Func RARDAT_($SQL_Projekt, $SQL_Mandant); $File = RARDAT_($SQL_Projekt, $SQL_Mandant)
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=" & $s_SQLSRV & ";DATABASE=" & $s_SQLCAT & ";uid=SA;pwd=Passwort;")
;~ $sqlCon.Open ("Provider=SQLOLEDB;Data Source=" & $s_SQLSRV & ";Integrated Security=SSPI;Initial Catalog=" & $s_SQLCAT)
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.Open("exec dbo.prc_EndJackFileName @Mandant = " & $SQL_Mandant & ", @Projekt = '" & $SQL_Projekt & "'", $sqlCon)
Local $s_rarfile = 0
With $adoRs
If .RecordCount Then
While Not .EOF
$s_rarfile = .Fields("ImportDatei" ).Value
.MoveNext
WEnd
EndIf
EndWith
$adoRs.Close
$sqlCon.Close
Return ($s_rarfile)
EndFunc ;==>RARDAT_

[/autoit]

</Date.au3>

TOMTOM25m

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=folder_man.ico
#AutoIt3Wrapper_outfile=Export_MIS.exe
#AutoIt3Wrapper_Res_Comment=XXXXXXXXXXXXXXXXXX
#AutoIt3Wrapper_Res_Description=Export MIS
#AutoIt3Wrapper_Res_Fileversion=2007.12.10.3
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=2007 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-d
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sf /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("MustDeclareVars", 1)
#include-once
#include "Global_XX_CONST.au3"
#include "XX_SQL.au3"
#include
#include
If FileExists($s_crsMISpath & "\*.M" & $s_mandant) Then
FileDelete($s_crsMISpath & "\*.M" & $s_mandant)
EndIf
If FileExists($s_MISExportpath & "\*.M" & $s_mandant) Then
FileDelete($s_MISExportpath & "\*.M" & $s_mandant)
EndIf
$s_BeladungslaufID = SQLEXPSTART_($s_mandant, "MISEXP")
If $s_cluster = "KBHSRV" Then
IniWrite($s_tansformer & "\VOEX.INI", "Sonstiges", "PFAD", $s_MISExportpath)
Else
IniWrite($s_jackprog & "\INIs\VOEX.INI", "Sonstiges", "PFAD", $s_MISExportpath)
EndIf
_FileWriteLog($LC_LOGPATH & "\MIS_Export.log", "MIS Export ")
SplashTextOn("", "MIS Daten werden exportiert. bitte warten ..........", "500", "22", "-1", "-1", $DLG_NOTITLE + $DLG_TEXTVCENTER, "Arial Black", "11", "400")
$s_PID = Run($s_Jackofc & "\Jackv30.exe /MIS", $s_jackdat)
ProcessWaitClose($s_PID)
SplashOff()
_FileWriteLog($LC_LOGPATH & "\MIS_Export.log", "MIS Export Ende")
;-Kopieren auf die CRS---------------------------------------------------------------------------;
$search = FileFindFirstFile($s_MISExportpath & "\*.M" & $s_mandant)
$file = FileFindNextFile($search)
RunWait(@ScriptDir & '\ROBOCOPY.EXE "' & $s_MISExportpath & '" "' & $s_crsMISpath & '" ' & $file & ' /LOG+:' & $LC_LOGPATH & '\FileCopy.log', @ScriptDir)
RunWait(@ScriptDir & '\ROBOCOPY.EXE "' & $s_MISExportpath & '" "' & $s_crspath & $s_MISApath & '\' & $s_jahr & '" ' & $file & ' /LOG+:' & $LC_LOGPATH & '\FileCopy.log', @ScriptDir)
SQLEXPEND_($s_BeladungslaufID, $file)
FileClose($search)
_FileWriteLog($s_ctws04log & "\EXP_MIS_" & $s_mandant & ".log", "EXPORT OK")
Exit

[/autoit]

</Constants.au3></file.au3>

Das ist ein Beispiel für den Export der MIS Daten

TOMTOM25m

Das Main Script:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=Key Server.ico
#AutoIt3Wrapper_outfile=Nachtverarbeitung_Export.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=XXXXXXXXXXX
#AutoIt3Wrapper_Res_Description=Startscript der Jack Nachtverarbeitung
#AutoIt3Wrapper_Res_Fileversion=2008.1.16.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=2007 - 2008 (c) Garnreiter
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_AU3Check_Parameters=-d
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/sf /rel /nsdp
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("MustDeclareVars", 1)
#include-once
#include "Global_XX_CONST.au3" ;-------> Alle Variablen .....
#include "XX_SQL.au3" ;-------> alle MS-SQL Abfragen .......
#include
#include
#include
#include
;~ MsgBox(0, "", "Feitertagsdir: " & $LC_FTA)
$s_Zeitmessung = TimerInit()
FileDelete($LC_LOGPATH & "\jack.log")
Dim $A_DATEARRAY
If Not _FileReadToArray($LC_FTA, $A_DATEARRAY) Then
MsgBox(4096, "Error", " Error reading log to Array error:" & @error)
Exit
EndIf
$s_pos = _ArraySearch($A_DATEARRAY, $s_date, 0, 0, 0, True)
Select
Case $s_pos = -1
_FileWriteLog($LC_LOGPATH & "\Jack.log", "------------------------------------------------------------------------")
_FileWriteLog($LC_LOGPATH & "\Jack.log", "START BATCH VERARBEITUNG")
Send("{ESC}")
Case Else
_FileWriteLog($LC_LOGPATH & "\Jack.log", "------------------------------------------------------------------------")
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Heute ist ein Feiertag oder Wochenende: " & $s_datenow)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "------------------------------------------------------------------------")
FileCopy($LC_LOGPATH & "\Jack.log", $LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\BackupServer\jack\jack_log\*.*", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\LOGSPEICHERSERVER\Jack Log\*.*", 1)
FileDelete($LC_LOGPATH & "\jack.log")
Exit
EndSelect
;-CopyJackEnd.bat------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "CopyJackEnd")
FileCopy($s_jackdat & "\Kopie von Jack.end", $s_jackdat & "\Jack.end")
Select
Case $s_cluster = "SERVER1"
_CLUSTERSTOP()
Case $s_cluster = "SERVER2"
_CLUSTERSTOP()
Case Else
_NONCLUSTERSTOP()
EndSelect
;-Alte Files sichern und löschen---------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", " alte Files löschen ")
$s_PID = Run(@ScriptDir & "\FileDelete.exe", @ScriptDir & "")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", " alte Files löschen Ende")
;-Files auf dem CRS löschen (Mandantbezogen) -------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "alte Files löschen remote")
$s_PID = Run(@ScriptDir & "\FileDelete_Remote.exe", @ScriptDir & "")
ProcessWaitClose($s_PID)
FileDelete($s_ctws04log & "\EXP_MIS_" & $s_mandant & ".log")
FileDelete($s_ctws04log & "\EXP_SAP_" & $s_mandant & ".log")
_FileWriteLog($LC_LOGPATH & "\Jack.log", "alte Files löschen remote Ende")
;---------------------------------------------------------------------------------------;
;-DeleteJackEnd.bat----------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "CopyJackEnd")
FileDelete($s_jackdat & "Jack.end")
$s_PID = ProcessExists("Jackv30.exe")
If $s_PID Then ProcessClose($s_PID)
Sleep(3000)
$s_PID = Run(@ScriptDir & "\Rebuild_F14.exe", $s_jackdat)
ProcessWaitClose($s_PID)
;---------------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SNR Beginn")
$s_PID = Run(@ScriptDir & "\Save_NACH_Rebuild.exe", $s_jackdat)
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SNR ENDE")
Sleep(500)
;---------------------------------------------------------------------------------------;
RunWait(@ComSpec & " /c " & @ScriptDir & "\Säuberung v JackDat.bat")
;-MIS-Übernahme OHNE FAIRCOMS - Datenbank-----------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "MIS Export")
$s_PID = Run(@ScriptDir & "\Export_MIS.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "MIS Export Ende")
Sleep(500)
;-Aufruf SAP-Export---------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SAP Mandant")
$s_PID = Run(@ScriptDir & "\Export_SAP.exe")
ProcessWaitClose($s_PID)
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "SAP Mandant Ende")
;---------------------------------------------------------------------------------------;
;Jack SNRRAR 2 Backup---------------------------------------------------------------------;
Run(@ScriptDir & "\Backup_copy.exe", @ScriptDir)
;---------------------------------------------------------------------------------------;
$s_PID = Run(@ScriptDir & "\Rebuild_F14.exe", $s_jackdat)
ProcessWaitClose($s_PID)
;-Files kopieren -----------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\progwarn.tmp", "Mail versand OK")
_FileWriteLog($LC_LOGPATH & "\Mail.tmp", "Mail versand OK")
;---------------------------------------------------------------------------------------;
;-tägliches Saldenerneuern und Komplettrebuild -----------------------------------------;
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Salden erneuern")
$s_PID = Run(@ScriptDir & "\Saldenerneuerung.exe", $s_jackdat)
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Salden erneuern Ende")
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "rebuild Start")
$s_PID = Run(@ScriptDir & "\Rebuild_ohne_BSP.exe", $s_jackdat)
ProcessWaitClose($s_PID)
;~ If @MDAY = 20 Then RunWait($s_rebuild & "\REBUILD.EXE /BSPABR", $s_jackdat)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Rebuild ende")
Sleep(500)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom before UP")
Select
Case $s_cluster = "SERVER2"
$s_PID = Run(@ScriptDir & "\Cluster_Faircom_Starten.exe", @ScriptDir)
ProcessWaitClose($s_PID)
Case $s_cluster = "SERVER1"
$s_PID = Run(@ScriptDir & "\Cluster_Faircom_Starten.exe", @ScriptDir)
ProcessWaitClose($s_PID)
Case Else
RunWait(@ComSpec & " /c " & $s_jackdat & '\ctntinst.exe -start', $s_jackdat)
EndSelect
If Not ProcessExists("Faircom_Online_Status.exe") Then
Run(@ScriptDir & "\Faircom_Online_Status.exe", @ScriptDir)
EndIf
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom now UP")
;---------------------------------------------------------------------------------------;
;-Export Mitarbeiter-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", " Export Mitarbeiter")
$s_PID = Run(@ScriptDir & "\Export_Mitarbeiter.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", " Export Mitarbeiter ENDE")
Sleep(500)
;-Export Kunden-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Kundenaenderung")
$s_PID = Run(@ScriptDir & "\Export_Kunden.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Kundenaenderung ENDE")
Sleep(500)
;-Export Journal-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Journal ")
$s_PID = Run(@ScriptDir & "\Export_Journal.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Journal ENDE")
Sleep(500)
;-Export Preise-------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Vorgangsgesamtpreisliste")
$s_PID = Run(@ScriptDir & "\Export_VOGESPR.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Vorgangsgesamtpreisliste ENDE")
Sleep(500)
;-Export Veranstalter -------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Veranstalter")
$s_PID = Run(@ScriptDir & "\Export_Veranstalter.exe")
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Veranstalter Ende")
Sleep(500)
While 1
Sleep(1000)
$ready = SQLLOGREADY_("VERAN", $s_mandant)
If $ready = 1 Then
ExitLoop
EndIf
WEnd
;-Import Fremdwärungen -----------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Währungsimport")
$s_PID = Run(@ScriptDir & "\Import_FremdWaehrung.exe", $s_jackdat)
ProcessWaitClose($s_PID)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Währungimport Ende ")
Sleep(500)
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Transformer starten ")
$s_ready = SQLLOGREADY_("TRANSOFF", $s_mandant)
If $s_ready = 1 Then Run($s_tansformer & "\Crstrans.exe", $s_tansformer)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Mail Versand")
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
$s_Zeitdifferenz = TimerDiff($s_Zeitmessung)
$s_Zeitdifferenzstd = Round($s_Zeitdifferenz / 1000 / 60 / 60, 2)
$s_Zeitdifferenzmin = Round($s_Zeitdifferenz / 1000 / 60, 2)
$file = FileOpen($LC_LOGPATH & "\Verarbeitungszeit.tmp", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file, "Die Nachtverarbeitung hat in Stunden " & $s_Zeitdifferenzstd & " gedauert" & @CRLF)
FileWrite($file, "Die Nachtverarbeitung hat in Minuten " & $s_Zeitdifferenzmin & " gedauert" & @CRLF)
FileClose($file)
;---------------------------------------------------------------------------------------;
;---------------------------------------------------------------------------------------;
If FileExists($LC_LOGPATH & "\Mail.tmp") Then

Run(@ScriptDir & '\DIR Set.exe', @ScriptDir)
FileDelete($LC_LOGPATH & "\Mail.tmp")
Else
Run(@ScriptDir & '\PROBWARN.exe', @ScriptDir)
EndIf
Run(@ScriptDir & '\Speicher_Warnung.exe', @ScriptDir)
;---------------------------------------------------------------------------------------;
_FileWriteLog($LC_LOGPATH & "\Jack.log", "ENDE BATCH VERARBEITUNG")
FileCopy($LC_LOGPATH & "\Jack.log", $LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\BackupSERVER\jack_log\*.*", 1)
FileCopy($LC_LOGPATH & "\Jack_" & $s_mandant & "_" & $s_timeend & ".log", "\\LOGSERVER\Jack Log\*.*", 1)
FileDelete($LC_LOGPATH & "\jack.log")
Exit
Func _CLUSTERSTOP()
$res_cluster = Run(@ComSpec & " /c " & 'CLUSTER /CLUSTER:' & $s_cluster & ' RES ctreeServer /STAT', @WindowsDir, @SW_HIDE, $STDOUT_CHILD)
While 1
$line = StdoutRead($res_cluster)
If @error Then ExitLoop
If StringInStr($line, $LC_ON) Then $found = 1
WEnd
If $found Then
SplashTextOn("Bitte warten...", @CRLF & " Jack User werden hinauskomplimentiert ..." & @CRLF & @CRLF & " Dies kann einige Minuten in Anspruch nehmen !", 350, 100, -1, -1, 4, "Arial", 12)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom not down")
$list = ProcessList("Jackv30.exe")
For $i = 1 To $list[0][0]
Sleep(100)
ProcessClose($list[$i][1])
Next
Sleep($s_sleep)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom not down")
$s_PIDf = Run(@ScriptDir & "\Cluster_Faircom_Stoppen.exe", @ScriptDir)
ProcessWaitClose($s_PIDf)
$s_time = 0
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom now down")
FileDelete($s_jackdat & "\Jack.end")
SplashOff()
Else
$s_time = 1
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom is down")
FileDelete($s_jackdat & "\Jack.end")
EndIf

If ProcessExists($s_Jackproz) Then ;~ ;FairCom runterfahren falls sie online ist
$list = ProcessList($s_Jackproz)
For $i = 1 To $list[0][0]
Sleep(100)
ProcessClose($list[$i][0])
Next
EndIf
Return $s_time
EndFunc ;==>_CLUSTERSTOP
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
Func _NONCLUSTERSTOP()
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
If $s_cluster = "SERVER4" Then Run(@ScriptDir & "\Transformer_Stop.exe")
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;
Global $text
Global $command = "RUNNING"
Global $stream
Global $textline
$stream = Run(@ComSpec & ' /c ' & $s_jackdat & '\ctntinst.exe -status', '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While 1
$textline = StdoutRead($stream)
$text = $text & @CRLF & $textline
If @error Then ExitLoop

WEnd
If StringInStr($text, $command) Then
SplashTextOn("Bitte warten...", @CRLF & " Jack User werden hinauskomplimentiert ..." & @CRLF & @CRLF & " Dies kann einige Minuten in Anspruch nehmen !", 350, 100, -1, -1, 4, "Arial", 12)
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom not down")
Sleep($s_sleep)
Run(@ComSpec & " /c " & $s_jackdat & '\ctntinst -stop', @WindowsDir, @SW_HIDE)
$s_time = 0
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom now down")
FileDelete($s_jackdat & "\Jack.end")
SplashOff()
Else
$s_time = 1
_FileWriteLog($LC_LOGPATH & "\Jack.log", "Faircom is down")
FileDelete($s_jackdat & "\Jack.end")
EndIf

If ProcessExists($s_Jackproz) Then ;
$list = ProcessList($s_Jackproz)
For $i = 1 To $list[0][0]
Sleep(100)
ProcessClose($list[$i][0])
Next
EndIf
Return $s_time
EndFunc ;==>_NONCLUSTERSTOP

[/autoit]

</Constants.au3></Date.au3></file.au3></Array.au3>

das ist das Main Script !!!!!!

dieses steuert alle anderen scripte (Jede Aktion hat ein eigenes Script)

TOMTOM25m

Hallo,
ich möchte gerne mein Werk vorstellen ........

ein Nachtverarbeitungsscript das einen Reisebüroverwaltungsprogramm-Server down fährt, sichert den und einen Export anstößt und die gewonnen Daten zum nächsten Server (zur Weiterverarbeitung) weiter verteilt.Anschließend wird der Server wieder gestartet.

Das ganze wird über eine INI Datei gesteuert.

Spoiler anzeigen

[PFADE]
root=E:
RRROOT=\\SERVER1\F$
JACDAT=\\SERVER1\Dat
JACOFC=E:\OFC
GENERIC=E:\Generic
JACPROG=E:\JackProg
REBUILD=E:\REBUILD
ODBC=E:\ODBC
EXP=E:\Schnittstelle\Exporte
SAVE=E:\Save_nach_rebuild
TMP=C:\TEMP
CTWS04LOG=\\ctws04\c$\log
JACKODBC=\\ODBCSERVER
CRSW=\\CRSSERVER\Schnittstelle\Work\SAP
CRSM=\\CRSSERVER\Schnittstelle\Work\MIS
CRSB=\\CRSSERVER\Schnittstelle\Work\BSP
CRS=\\CRSSERVER\E$
CRSPFADW=\Schnittstelle\Work
CRSPFADA=\Schnittstelle\Archiv\Jack2007
SAPA=\Schnittstelle\Archiv\Jack2007\SAP
MISA=\Schnittstelle\Archiv\Jack2007\MIS
BSPA=\Schnittstelle\Archiv\Jack2007\BSP
WBJ=\\BUCHHALTUNGSSERVER\Jack_Journal
BACKUP=\\SICHERUNGSSERVER\taegliche_Sicherung_JackDAT
LOGBAK=\\DATENSERVER\Netzwerk\Faircom_Info
SCHLAF=600000

[SAP]
von=
bis=
pfad=E:\Schnittstelle\work\SAP
SAPP=E:\Schnittstelle\WORK\SAP
[MIS]
pfad=E:\Schnittstelle\work\MIS
MISP=E:\Schnittstelle\WORK\MIS

[SQL]
SQLSRV=SQLSRV1
SQLSRV1=SQLSRV2
SQLSRV2=SQLSRV3
catalog=basisdaten

[MAIL]
FROM=VB_@Mail.at
FROMCRS=VB_CRS@Mail.at
TO=Verteiler.verarbeitung@Mail.at
TOBKP=BKP.Warn@Mail.at
TON=Verteiler.J_Gut@Mail.at
SRV=IP-Adresse

[SRV]
SERVER=SERVER1
FAIRCOM="FRC1"
SRV=FAIRCOMS@SERVER1
BEWOSRV=ctree=FAIRCOMS@IP-ADRESSE

[MANDANT]
MAN=01
M01=01

[PW]
pw=Passwort

[Buchungsjahr]
Jahr=2006

[FEIERTAGS_JAHR]
FETA=2008

[RENR]
Beginn=1
Ende=180000

[TIME]
CT=06:00:00
CTI=06:20:00

----> ----->

TOMTOM25m

Hatte letztens auch eine geile Fehlermeldung :

Eine unbekannte Datei konnte durch einen unbekannten Fehler nicht gestartet werden

letzfetz

TOMTOM25m

Hallo willkommen im Forum

da ich sowas ähnliches schon programmiert habe wollt ich dich fragen wie du das mit den Feiertagen und Wochenenden machst ?
läuft da dein script durch ? oder möchtest du an Feitertagen/Wochenenden aussetzen.

wenn du Infos haben willst melde dich

lg
TOM aus Wien

TOMTOM25m

Zitat von Oscar

Äh...wozu?

Der Fokus ist da, wo etwas eingegeben wird. Das ist doch richtig.

Ich will das Passwort eingeben und auf ENTER drücken damit das Programm startet.

TOMTOM25m

Hallo,
Ich hatte ähnliche Probleme.

ich habs dann so gelöst das ich den Befehl RUNWAIT() benutzt habe.

(um Probleme zu vermeiden hab ich dann alle BAT Dateien in Autoit umgeschrieben...... warum 2 sprachen verwenden)

liebe grüße aus wien

TOMTOM25m

ja soweit funktioniert es, ausser wenn ich mit der Maus in das PW-Input-Feld klicke, leider bleibt dann der Fokus auf dem Input-Feld.

Es sollte aber auf den START-Button fokusiert sein, auch wenn ich in das PW-Input-Feld geklickt habe und das PW eingegeben habe. :pinch:

lg

TOMTOM25m

Hi,

ich hab da eine GUI wo ich einen Usernamen und ein Passwort eingeben kann. Diese GUI hat auch einen "START" Button.

So meine Frage ist:

wie kann ich, nach dem ich den USER und das Passwort eingegeben habe, durch das drücken der ENTER-Taste den START-Button fokusieren und ausführen ? (der Fokus liegt ja durch die PW-Eingabe ja auf dem Inputfeld)

Hier mein kleines GUI

Spoiler anzeigen

[autoit]

$AWS_START = GUICreate("V93130AWS Starter", 240, 187, 1181, 512, BitOR($WS_CAPTION, $WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS), 0, $CT_Terminal)
GUISetBkColor(0x0000FF)
$Start = GUICtrlCreateButton("Start", 65, 125, 101, 26)
$AWS_USER = GUICtrlCreateInput(@LogonDomain & "\" & @UserName, 15, 29, 200, 21)
$AWS_PW = GUICtrlCreateInput("", 15, 89, 200, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$AWSUSR = GUICtrlCreateLabel("Username Eingeben", 15, 5, 100, 17)
$AWSP = GUICtrlCreateLabel("Passwort Eingeben", 17, 64, 95, 17)

[/autoit]

Danke für eure Hilfe

lg aus Wien
TOMTOM

TOMTOM25m

Hi,

hier ein kleine LDAP funktion von mir

an diesem hab ich seeeeeehhhrrrr lange gesessen

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Function Name: OU_read_from_PC
; Description:: Liest die Organisations Unit (OU) aus dem Active Directory (AD) eines im AD vorhandenen Computers aus
; Parameter(s): $AD_COMPUTER (Der Computername)
; Requirement(s): -
; Return Value(s): Beim Erfolg: gibt den OU des DomänenComputers aus .
;
; Author(s): TOMTOM25m (Garnreiter (c)2008)
;
;===============================================================================
;

[/autoit] [autoit][/autoit] [autoit]

Func OU_read_from_PC($AD_COMPUTER)

Const $ADS_SCOPE_SUBTREE = 2

[/autoit] [autoit][/autoit] [autoit]

$objConnection = ObjCreate("ADODB.Connection")
$objCommand = ObjCreate("ADODB.Command")

[/autoit] [autoit][/autoit] [autoit]

$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection

$objCommand.Properties("Page Size") = 1000
$objCommand.Properties("Searchscope") = $ADS_SCOPE_SUBTREE

$objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://dc=domain,dc=lan' WHERE objectCategory='computer' AND name='" & $AD_COMPUTER & "'"

$objRecordSet = $objCommand.Execute

$objRecordSet.MoveFirst

Do
$AD_OU_INFO = $objRecordSet.Fields("ADsPath" ).Value
$objRecordSet.MoveNext
Until $objRecordSet.EOF

$objCommand = 0
$objRecordSet = 0
$AD_OU_INFO = StringSplit($AD_OU_INFO, ",")
$AD_OU_INFO = StringTrimLeft($AD_OU_INFO [3], 3)
Return $AD_OU_INFO
EndFunc ;==>OU_read_from_PC

[/autoit] [autoit][/autoit] [autoit][/autoit]

lg aus Wien
TOMTOM

TOMTOM25m

Hi
richtig das ist Delphi! (hab ich auch mittlerweile rausgefunden)

so ich würde gerne den Delphi-code in einem AutoIt Script implementieren (damit nur noch eine EXE habe)

das ganze gibt es auch als Python-code (evtl. geht das leichter zu implementieren??)

Spoiler anzeigen

Code

import win32crypt
 import binascii
 pwdHash = win32crypt.CryptProtectData(u"MYPASSWORD",u'psw',None,None,None,0)
print binascii.hexlify(pwdHash)

danke für die Hilfe

Beiträge von TOMTOM25m

Daten in einem Array kürzen

Virtuelles Laufwerk suchen und löschen

Virtuelles Laufwerk suchen und löschen

Command Line Parameters - übergabe von Variablen

Command Line Parameters - übergabe von Variablen

Prozesslaufzeitüberwachung

Prozesslaufzeitüberwachung

Nachtverarbeitungs Script ( Exportscript zum anstoßen eines Exportes aus einem Reisebüro Verwaltungs Programmes)

Nachtverarbeitungs Script ( Exportscript zum anstoßen eines Exportes aus einem Reisebüro Verwaltungs Programmes)

Nachtverarbeitungs Script ( Exportscript zum anstoßen eines Exportes aus einem Reisebüro Verwaltungs Programmes)

Nachtverarbeitungs Script ( Exportscript zum anstoßen eines Exportes aus einem Reisebüro Verwaltungs Programmes)

Nachtverarbeitungs Script ( Exportscript zum anstoßen eines Exportes aus einem Reisebüro Verwaltungs Programmes)

Lustige Fehlermeldungen

erste Gehversuche - ini & GUI

nach eingabe in einer GUICtrlCreateInput () , nach Enter drücken soll ein button fokusiert und ausgeführt werden

Auf aufgerufenes Programm warten?

nach eingabe in einer GUICtrlCreateInput () , nach Enter drücken soll ein button fokusiert und ausgeführt werden

nach eingabe in einer GUICtrlCreateInput () , nach Enter drücken soll ein button fokusiert und ausgeführt werden

UDF Sammlung

VB Script Funktion in AutoIt integrieren