Beiträge von chip

**chip**

Nenn mir einen fähigen Netzwerkadmin der GoogleApps in einer Domain einsetzt ;). Richtig es gibt keinen.

**chip**

Zitat von Thanatos

Ich hoffe ihr macht keine Scherze mit mir, wenn ihr zu meiner (leicht verständlichen) Frage einen HTML Quellcode mit Tabelle haben möchtet.

Wenn es so leicht ist, warum fragst du dann?

OK damit sind wir schonmal ein Stück weiter, also kein javascript sonder ganz klassisch. Hat die Tabelle die du Suchst immer immer die gleiche ID oder ändert sich das auch?

Wenn sie gleich bleibt, dann warst du fast richtig:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <IE.au3>
$oIE = _IE_Example("table")
$oTable = _IEGetObjById($oIE,"tableTwo")
$wert = _IETableWriteToArray ($oTable,0)
_ArrayDisplay($wert)

[/autoit]

**chip**

Also Beispiel 2 geht bei mir. Beispiel eins bringt zwar keine Fehler aber er zeigt auch kein Icon an, auch nicht bei direkter Pfad Angabe zu einem Bild.

**chip**

Zum Beispiel so:

Spoiler anzeigen

[autoit]

#include <Constants.au3>
#include <String.au3>

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

Local $PID = Run(@ComSpec & " /c nslookup -type=MX domain,com", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
Local $line

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

While 1
$line = StdoutRead($PID)
If @error Then ExitLoop
ConsoleWrite($line)
If $line <> "" Then
$smtp = _StringBetween($line, "mail exchanger = ", @CRLF)
MsgBox(0, "", $smtp[0])
EndIf
WEnd

[/autoit]

**chip**

Hier nurmal für die ersten sechs Werte, keine Lust für alle zu schreiben ;).

Ungetestet:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
$Form1_1 = GUICreate("AVP Installationsmenü", 451, 525, 287, 194)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ; deklariert das beim klicken des X die Funktion "Closeclicked" geschehen soll
$Group1 = GUICtrlCreateGroup("Elsa Installation", 24, 48, 194, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Checkbox[26], $nMsg
$Checkbox[1] = GUICtrlCreateCheckbox("BK.bat starten", 248, 344, 160, 17)
$Checkbox[2] = GUICtrlCreateCheckbox("Elsa installieren", 32, 72, 160, 17)
$Checkbox[3] = GUICtrlCreateCheckbox("Elsa Anpassungen", 32, 96, 160, 17)
$Checkbox[4] = GUICtrlCreateCheckbox("SVGView installieren", 32, 120, 160, 17)
$Checkbox[5] = GUICtrlCreateCheckbox("Benutzer einrichten", 248, 72, 160, 17)
$Checkbox[6] = GUICtrlCreateCheckbox("BS-Hintergrund rot", 248, 96, 160, 17)
$Checkbox[7] = GUICtrlCreateCheckbox("Kaspersky installieren", 248, 392, 160, 17)
$Checkbox[8] = GUICtrlCreateCheckbox("BS-Hintergrund klassisch", 248, 120, 160, 17)
$Checkbox[9] = GUICtrlCreateCheckbox("BGInfo starten", 248, 368, 160, 17)
$Checkbox[10] = GUICtrlCreateCheckbox("IE SSL 2.0", 32, 352, 160, 17)
$Checkbox[11] = GUICtrlCreateCheckbox("Java Update deaktivieren", 248, 168, 160, 17)
$Checkbox[12] = GUICtrlCreateCheckbox("FF Profil-Installation", 32, 304, 160, 17)
$Checkbox[13] = GUICtrlCreateCheckbox("Popup-Blocker Archiv", 32, 328, 160, 17)
$Checkbox[14] = GUICtrlCreateCheckbox("IE SSL 2.0 + Proxy Kennwort", 32, 376, 184, 17)
$Checkbox[15] = GUICtrlCreateCheckbox("Flash-Player IE installieren", 32, 400, 160, 17)
$Checkbox[16] = GUICtrlCreateCheckbox("€-Währungstool deaktivieren", 248, 144, 160, 17)
$Checkbox[17] = GUICtrlCreateCheckbox("Citrix-Einrichtung", 248, 192, 160, 17)
$Checkbox[18] = GUICtrlCreateCheckbox("Opticlient Fehler beheben", 248, 216, 160, 17)
$Checkbox[19] = GUICtrlCreateCheckbox("Druckwarteschl. neustarten", 248, 464, 160, 17)
$Checkbox[20] = GUICtrlCreateCheckbox("SAP Buchhaltung installieren", 32, 200, 160, 17)
$Checkbox[21] = GUICtrlCreateCheckbox("SAP Logon einrichten", 32, 224, 160, 17)
$Checkbox[22] = GUICtrlCreateCheckbox("Hardcopy registrieren", 248, 240, 160, 17)
$Checkbox[23] = GUICtrlCreateCheckbox("Outlook einrichten", 248, 264, 160, 17)
$Checkbox[24] = GUICtrlCreateCheckbox("TKP Client inst. in DEG", 248, 416, 160, 17)
$Checkbox[25] = GUICtrlCreateCheckbox("TKP Client inst. im Standort", 248, 440, 160, 17)

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

$Group2 = GUICtrlCreateGroup("SAP Installation", 24, 176, 194, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Browser Installation", 24, 280, 194, 153)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Benutzer-Profil", 240, 48, 194, 249)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Sonstiges", 240, 320, 194, 177)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Button3 = GUICtrlCreateButton("Zurücksetzen", 24, 485, 90, 25)
$Button2 = GUICtrlCreateButton("Beenden", 128, 485, 90, 25)
$Button1 = GUICtrlCreateButton("Start", 24, 450, 194, 25)

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

$Label1 = GUICtrlCreateLabel("Welche Installationen sollen durchgeführt werden?", 32, 16, 243, 17)

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

GUISetState(@SW_SHOW, $Form1_1)

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

GUICtrlSetOnEvent($Button1, "startbutton") ;deklariert das die Funktion "startbutton" geschehen soll wenn der Button gedrückt wird.
GUICtrlSetOnEvent($Button2, "endebutton") ;deklariert das die Funktion "endebutton" geschehen soll wenn der Button gedrückt wird.
GUICtrlSetOnEvent($Button3, "resetbutton") ;deklariert das die Funktion "resetbutton" geschehen soll wenn der Button gedrückt wird.
HotKeySet("^!x", "endebutton") ; Notfall-Exit per STRG + ALT + X

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

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 399, 44, 192, 134)
$Progress1 = GUICtrlCreateProgress(8, 16, 358, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
Sleep(1000) ; Im Leerlauf bummeln
WEnd

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

Func CLOSEClicked() ;schliesst beim klicken des X das Fenster
Exit
EndFunc ;==>CLOSEClicked

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

Func startbutton() ; startet den Ablauf der Installationen nach Prüfung ob die Checkboxen ausgewählt wurden
MsgBox(48, "Installationsstart", "Die ausgewählten Installationen starten nun!" & @CR & @CR & "Ein Abbruch ist über STRG + ALT + X möglich!")

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

Global $Benutzer_1, $Domaene
Global $Benutzer_2, $Kennwort_2
Global $Benutzer_3, $Kennwort_3, $Alias_3

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

If BitAND(GUICtrlRead($Checkbox[5]), $GUI_CHECKED) And BitAND(GUICtrlRead($Checkbox[17]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
MsgBox(16, "Fehler bei der Auswahl", "Die Punkte Benutzer einrichten und Citrix-Einrichtung" & @CR & "können nicht zusammen ausgewählt werden." & @CR & @CR & "Der Ablauf wird abgebrochen!")
Return 0
EndIf

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

If BitAND(GUICtrlRead($Checkbox[6]), $GUI_CHECKED) And BitAND(GUICtrlRead($Checkbox[8]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
MsgBox(16, "Fehler bei der Auswahl", "Die Punkte BS-Hintergrund rot und BS-Hintergrund klassisch" & @CR & "können nicht zusammen ausgewählt werden." & @CR & @CR & "Der Ablauf wird abgebrochen!")
Return 0
EndIf

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

If BitAND(GUICtrlRead($Checkbox[24]), $GUI_CHECKED) And BitAND(GUICtrlRead($Checkbox[25]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
MsgBox(16, "Fehler bei der Auswahl", "Eine TKP Installation in DEG und im auswärtigen Standort" & @CR & "ist nicht plausibel!" & @CR & @CR & "Der Ablauf wird abgebrochen!")
Return 0
EndIf

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

$augewaehlt = 0
For $i = 1 To UBound($Checkbox) - 1
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$augewaehlt = $augewaehlt + 1
EndIf
Next

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

$prozentwert = 100 / $augewaehlt
$prozentpos = 0

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

If BitAND(GUICtrlRead($Checkbox[5]), $GUI_CHECKED) Then check5_1() ; Variablen mit Benutzerdaten für lokale Installation als Administrator füllen
If BitAND(GUICtrlRead($Checkbox[17]), $GUI_CHECKED) Then check17_1() ; Variablen mit Benutzerdaten für Citrix-Installation füllen
If BitAND(GUICtrlRead($Checkbox[23]), $GUI_CHECKED) Then check23_1() ; Variablen mit Benutzerdaten für Outlook-Einrichtung füllen

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

If BitAND(GUICtrlRead($Checkbox[1]), $GUI_CHECKED) Then
check1()
$prozentpos = $prozentpos + $prozentpos
GUICtrlSetData($Progress1, $prozentpos)
EndIf
If BitAND(GUICtrlRead($Checkbox[2]), $GUI_CHECKED) Then
check2()
$prozentpos = $prozentpos + $prozentpos
GUICtrlSetData($Progress1, $prozentpos)
EndIf
If BitAND(GUICtrlRead($Checkbox[3]), $GUI_CHECKED) Then
check3() ;Elsa-Anpassungen vornehmen
$prozentpos = $prozentpos + $prozentpos
GUICtrlSetData($Progress1, $prozentpos)
EndIf
If BitAND(GUICtrlRead($Checkbox[4]), $GUI_CHECKED) Then
check4()
$prozentpos = $prozentpos + $prozentpos
GUICtrlSetData($Progress1, $prozentpos)
EndIf
If BitAND(GUICtrlRead($Checkbox[5]), $GUI_CHECKED) Then
check5() ; Benutzer lokal als Administrator einrichten (Verwendet Variablen von weiter oben!)
$prozentpos = $prozentpos + $prozentpos
GUICtrlSetData($Progress1, $prozentpos)
EndIf
If BitAND(GUICtrlRead($Checkbox[6]), $GUI_CHECKED) Then
check6() ;Bildschirmhintergrund rot
$prozentpos = $prozentpos + $prozentpos
GUICtrlSetData($Progress1, $prozentpos)
EndIf
If BitAND(GUICtrlRead($Checkbox[7]), $GUI_CHECKED) Then check7()
If BitAND(GUICtrlRead($Checkbox[8]), $GUI_CHECKED) Then check8() ;Bildschirmhintergrund Klassisch
If BitAND(GUICtrlRead($Checkbox[9]), $GUI_CHECKED) Then check9()
If BitAND(GUICtrlRead($Checkbox[10]), $GUI_CHECKED) Then check10() ; SSl 2.0 im IE aktivieren
If BitAND(GUICtrlRead($Checkbox[11]), $GUI_CHECKED) Then check11() ; Java-Update deaktivieren Java-Version 6.0.1 bis 6.0.27 + 6.0.29
If BitAND(GUICtrlRead($Checkbox[12]), $GUI_CHECKED) Then check12() ;Firefox-Profilinstallation
If BitAND(GUICtrlRead($Checkbox[13]), $GUI_CHECKED) Then check13() ;Firefox Popup-Blocker für 10.58.60.72 deaktivieren
If BitAND(GUICtrlRead($Checkbox[14]), $GUI_CHECKED) Then check14() ; iproxy prüfen und SSl 2.0 im IE aktivieren
If BitAND(GUICtrlRead($Checkbox[15]), $GUI_CHECKED) Then check15()
If BitAND(GUICtrlRead($Checkbox[16]), $GUI_CHECKED) Then check16() ; Excel Eurowährungstool deaktivieren
If BitAND(GUICtrlRead($Checkbox[17]), $GUI_CHECKED) Then check17() ; Citrix-Einrichtung
If BitAND(GUICtrlRead($Checkbox[18]), $GUI_CHECKED) Then check18()
If BitAND(GUICtrlRead($Checkbox[19]), $GUI_CHECKED) Then check19() ; Druckwarteschlange neu starten
If BitAND(GUICtrlRead($Checkbox[20]), $GUI_CHECKED) Then check20()
If BitAND(GUICtrlRead($Checkbox[21]), $GUI_CHECKED) Then check21()
If BitAND(GUICtrlRead($Checkbox[22]), $GUI_CHECKED) Then check22() ; Hardcopy Registrierung
If BitAND(GUICtrlRead($Checkbox[24]), $GUI_CHECKED) Then check24()
If BitAND(GUICtrlRead($Checkbox[25]), $GUI_CHECKED) Then check25()
If BitAND(GUICtrlRead($Checkbox[23]), $GUI_CHECKED) Then check23() ; Outlook-Einrichtung

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

$reset = MsgBox(4, "Zurücksetzen der Auswahl", "Soll die Auswahl zurückgesetzt werden?") ; Möglichkeit die Auswahl zurück zu setzen nach den Installationen
If $reset = 6 Then ; wenn JA dann
For $i = 1 To 25
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
Next
EndIf
EndFunc ;==>startbutton

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

Func check1()
RunWait("\\vwserver\netlogon\bk.bat")
Sleep(1000)
EndFunc ;==>check1

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

Func check2()
RunWait("\\vwserver\apps\ElsaWin\client\SETUP.EXE -s")
Sleep(1000)
EndFunc ;==>check2

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

Func check3()
RunWait(@ComSpec & " /c " & 'sc config sharedaccess start= auto', "", @SW_HIDE);sc config sharedaccess start= auto
RunWait(@ComSpec & " /c " & 'sc start sharedaccess', "", @SW_HIDE) ;sc start sharedaccess
RunWait("c:\Programme\elsawin\bin\enable_elsa_xpsp2_DEU.bat")
RunWait(@ComSpec & " /c " & 'sc stop sharedaccess', "", @SW_HIDE);sc stop sharedaccess
RunWait(@ComSpec & " /c " & 'sc config sharedaccess start= disabled', "", @SW_HIDE);sc config sharedaccess start= disabled
Sleep(1000)
EndFunc ;==>check3

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

Func check4()
RunWait("C:\Programme\elsawin\bin\SVGView.exe")
Sleep(1000)
EndFunc ;==>check4

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

Func check5()
If @OSVersion = "WIN_7" Then
RunWait(@ComSpec & " /c " & 'RunDll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl', "", @SW_HIDE) ;Benutzerkontenverwaltung öffnen Windows 7
WinWaitActive("Benutzerkonten")
Send("{tab}")
Sleep(200)
Send("{tab}")
Sleep(200)
Send("{space}")
WinWaitActive("Benutzerkonten", "Verwenden Sie die unten stehende Liste")
Send("{ALTDOWN}H{ALTUP}")
Send($Benutzer_1)
Sleep(200)
Send("{tab}")
Sleep(200)
Send($Domaene)
Sleep(200)
Send("{enter}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{enter}")
Sleep(200)
Send("{enter}")
Sleep(500)
Send("{ALTDOWN}{F4}{ALTUP}")
Sleep(1000)
EndIf

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

If @OSVersion = "WIN_XP" Then
RunWait(@ComSpec & " /c " & 'nusrmgr.cpl', "", @SW_HIDE) ;Benutzerkontenverwaltung öffnen Windows XP
WinWaitActive("Benutzerkonten")
ControlClick("Benutzerkonten", "Benutzer dieses Computers", "Button2")
Sleep(200)
Send($Benutzer_1)
Sleep(200)
Send("{tab}")
Sleep(200)
Send($Domaene)
Sleep(200)
Send("{enter}")
Sleep(200)
Send("{down 2}")
Sleep(200)
Send("{tab}{up 9}")
Sleep(200)
Send("{enter}")
Sleep(200)
ControlClick("Benutzerkonten", "Benutzer dieses Computers", "Button7")
Sleep(1000)
EndIf
EndFunc ;==>check5

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

Func check5_1()
$Benutzer_1 = InputBox("Benutzereinrichtung Windows", "Bitte geben Sie den Benutzernamen ein:", "", "", 300, 100)
$Domaene = InputBox("Benutzereinrichtung Windows", "Bitte geben Sie die Domäne ein:", "", "", 300, 100)
Return
EndFunc ;==>check5_1

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

Func check6()
If @OSVersion = "WIN_7" Then
ShellExecute(@WindowsDir & '\Resources\Ease of Access Themes\classic.theme') ;2000er-Style Windows 7 öffnen
Sleep(1000)
WinWait("Anpassung")
Send("{tab}")
Sleep(200)
Send("{space}")
WinWait("Desktophintergrund")
Send("{tab}")
Sleep(200)
Send("{space}")
WinWait("Farbe")
Send("{down}")
Sleep(200)
Send("{space}")
Sleep(200)
Send("{enter}")
Sleep(200)
Send("{tab}")
Sleep(200)
Send("{space}")
WinWait("Anpassung")
Send("{ALTDOWN}{F4}{ALTUP}")
Sleep(1000)
EndIf

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

If @OSVersion = "WIN_XP" Then
ShellExecute(@WindowsDir & '\Resources\Themes\Windows Classic.theme') ;2000er-Style Windows XP öffnen
Sleep(200)
Send("{tab 5}")
Sleep(200)
Send("{RIGHT}")
Sleep(200)
WinWait("Eigenschaften von Anzeige", "List Of backgrounds")
WinWait("Eigenschaften von Anzeige", "List Of backgrounds")
Sleep(200)
ControlClick("Eigenschaften von Anzeige", "List Of backgrounds", "Button2")
Sleep(200)
Send("{TAB}")
Sleep(200)
Send("{space}")
Sleep(200)
Send("{DOWN}")
Sleep(200)
Send("{space}")
Sleep(200)
Send("{ENTER}")
Sleep(200)
ControlClick("Eigenschaften von Anzeige", "List Of backgrounds", "Button6")
Sleep(200)
ControlClick("Eigenschaften von Anzeige", "List Of backgrounds", "Button4")
Sleep(1000)
EndIf
EndFunc ;==>check6

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

Func check7()
RunWait("\\10.57.196.130\groups\Admin\Software\Kaspersky\setup_WKS_MP4.exe /s")
Sleep(1000)
EndFunc ;==>check7

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

Func check8()
If @OSVersion = "WIN_7" Then
ShellExecute(@WindowsDir & '\Resources\Ease of Access Themes\classic.theme') ;2000er-Style Windows 7 öffnen
Sleep(1000)
Send("{ALTDOWN}{F4}{ALTUP}")
Sleep(1000)
EndIf

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

If @OSVersion = "WIN_XP" Then
ShellExecute(@WindowsDir & '\Resources\Themes\Windows Classic.theme') ;2000er-Style
WinWait('Eigenschaften von Anzeige')
ControlClick('Eigenschaften von Anzeige', '', 'Button3')
Sleep(1000)
EndIf
EndFunc ;==>check8

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

Func check9()
RunWait("c:\Programme\Bginfo\Bginfo.exe /timer:0 /NOLICPROMPT c:\Programme\Bginfo\sysdata2.bgi")
Sleep(1000)
EndFunc ;==>check9

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

Func check10()
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWait("Volkswagen AG Internationales Händlerportal - Windows Internet Explorer")
Send("{ALTDOWN}x{ALTUP}")
Sleep(200)
Send("o")
WinWait("Internetoptionen")
Send("+{tab}")
Send("{up}")
Send("{right 2}")
Send("{tab}")
Send("{down 100}")
Send("{up 10}")
Sleep(1000)
Send("{space}")
Send("{enter}")
WinWait("Volkswagen AG Internationales Händlerportal - Windows Internet Explorer")
Send("{ALTDOWN}D{ALTUP}")
Sleep(200)
Send("e")
Sleep(200)
If WinGetHandle("Internet Explorer") Then
Send("{enter}")
EndIf
Sleep(1000)
EndFunc ;==>check10

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

Func check11()
$java = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment", "Java6FamilyVersion") ; Prüfung der Java-Version
MsgBox(64, "Java-Version", "Java-Version ist:" & $java, 5)
If $java = "" Then Return 0 & MsgBox(16, "Java-Version", "Keine gültige Java-Version! (Betriebssystem 64-Bit?)", 5)

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

If $java = "1.6.0_29" Then
RunWait(@ProgramFilesDir & "\Java\jre6\bin\javacpl.exe")
WinWaitActive("Java Control Panel")
Send("{right}")
Sleep(200)
Send("{right}")
Sleep(200)
Send("{right}")
Sleep(200)
Send("{tab}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{right}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{down}")
Sleep(200)
Send("{space}")
Sleep(200)
Send("{enter}")
Sleep(1000)
Else
If $java = "1.6.0_1" Or "1.6.0_2" Or "1.6.0_3" Or "1.6.0_4" Or "1.6.0_5" Or "1.6.0_6" Or "1.6.0_7" Or "1.6.0_8" Or "1.6.0_9" _
Or "1.6.0_10" Or "1.6.0_11" Or "1.6.0_12" Or "1.6.0_13" Or "1.6.0_14" Or "1.6.0_15" Or "1.6.0_16" Or "1.6.0_17" Or "1.6.0_18" _
Or "1.6.0_19" Or "1.6.0_20" Or "1.6.0_21" Or "1.6.0_22" Or "1.6.0_23" Or "1.6.0_24" Or "1.6.0_25" Or "1.6.0_26" Or "1.6.0_27" Then
RunWait(@ProgramFilesDir & "\Java\jre6\bin\javacpl.exe")
WinWaitActive("Java Control Panel")
Sleep(200)
Send("{right}")
Sleep(200)
Send("{tab 2}")
Sleep(200)
Send("{space}")
Sleep(200)
Send("{tab}")
Sleep(200)
Send("{enter}")
Sleep(200)
Send("{enter}")
Sleep(1000)
EndIf
EndIf
EndFunc ;==>check11

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

Func check12()
Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
Sleep(2000)
$sProzess = "firefox.exe"
RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
Sleep(2000)
$sProzess = "firefox.exe"
RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
Sleep(5000)
RunWait("\\vwserver\netlogon\firefox_install.exe")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWaitActive("Nachrichtendienst")
Send("{enter}")
Sleep(1000)
EndFunc ;==>check12

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

Func check13()
Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
Sleep(2000)
$sProzess = "firefox.exe"
RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
Sleep(2000)
Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
AutoItSetOption(Opt("WinTitleMatchMode", 2))
WinWaitActive("Mozilla")
Send("{ALTDOWN}x{ALTUP}ee{enter}")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWaitActive("Einstellungen")
Send("{right}{right}")
Sleep(200)
Send("{ALTDOWN}a{ALTUP}")
WinWaitActive("Berechtigte Websites - Pop-ups")
Send("10.58.60.72{enter}")
Send("{ALTDOWN}c{ALTUP}")
Send("{tab}{enter}")
AutoItSetOption(Opt("WinTitleMatchMode", 2))
WinWaitActive("Mozilla")
Send("{ALTDOWN}d{ALTUP}b")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
Sleep(1000)
EndFunc ;==>check13

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

Func check14()
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWait("Volkswagen AG Internationales Händlerportal - Windows Internet Explorer")
Send("{ALTDOWN}d{ALTUP}f")
Sleep(200)
Send("www.ebay.de{enter}")
Sleep(5000)
If WinGetHandle("Verbindung herstellen mit 10.112.254.71") Then
Send("DE470070.000")
Send("{tab}")
Send("avp-net")
Send("{tab}")
Send("{space}")
Send("{enter}")
Else
Send("{ALTDOWN}x{ALTUP}o")
WinWait("Internetoptionen")
Send("+{tab}")
Send("{up}")
ControlClick('Internetoptionen', 'Klicken Sie auf "Einrichten", um eine', 'Button10')
Send("{ALTDOWN}s{ALTUP}")
Sleep(200)
Send("{ALTDOWN}a{ALTUP}")
Send("http://iproxy:8080/")
Sleep(200)
Send("{tab 2}{enter}")
WinWait("Internetoptionen")
ControlClick('Internetoptionen', 'Klicken Sie auf "Einrichten", um eine', 'Button11')
Sleep(500)
Send("{ALTDOWN}d{ALTUP}f")
Sleep(200)
Send("www.ebay.de{enter}")
Sleep(5000)
If WinGetHandle("Verbindung herstellen mit 10.112.254.71") Then
Send("DE470070.000")
Send("{tab}")
Send("avp-net")
Send("{tab}")
Send("{space}")
Send("{enter}")
Sleep(2000)
EndIf
EndIf
Send("{ALTDOWN}x{ALTUP}")
Sleep(200)
Send("o")
WinWait("Internetoptionen")
Send("+{tab}")
Send("{up}")
Send("{right 2}")
Send("{tab}")
Send("{down 100}")
Send("{up 10}")
Sleep(1000)
Send("{space}")
Send("{enter}")
Sleep(500)
Send("{ALTDOWN}D{ALTUP}")
Sleep(200)
Send("e")
Sleep(200)
AutoItSetOption(Opt("WinTitleMatchMode", 1))
If WinGetHandle("Internet Explorer") Then
Send("{enter}")
EndIf
Sleep(1000)
EndFunc ;==>check14

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

Func check15()
RunWait("\\10.57.196.130\groups\Admin\Software\flashplayer_10_0_45_2_ie.exe /s")
Sleep(1000)
EndFunc ;==>check15

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

Func check16()
AutoItSetOption(Opt("WinTitleMatchMode", 2))
Run(@ProgramFilesDir & "\Microsoft Office\OFFICE11\excel.exe")
Sleep(15000) ; 15 Sekunden warten dann prüfen ob Fenster "Benutzername" aktiv ist.
If WinGetHandle("Benutzername") Then
Send("{tab}{DEL}{enter}")
EndIf
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWait("Microsoft Excel - Mappe1")
Send("{ALTDOWN}x{ALTUP}i")
WinWait("Add-Ins")
Send("{space}")
Send("{tab}")
Send("{enter}")
WinWait("Microsoft Excel - Mappe1")
Send("{ALTDOWN}d{ALTUP}b")
Sleep(1000)
EndFunc ;==>check16

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

Func check17()
Run(@ProgramFilesDir & "\Citrix\ICA Client\pn.exe")
AutoItSetOption(Opt("WinTitleMatchMode", 2))
WinWaitActive("Citrix")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
If WinGetHandle("AVP Deggendorf") Then
Sleep(500)
Send($Benutzer_2)
Send("{tab}")
Sleep(500)
Send($Kennwort_2)
Send("{tab}DE47007X")
Sleep(500)
Send("{tab}{Space}")
Sleep(500)
Send("{enter}")
Sleep(500)
WinWaitActive("Citrix Program Neighborhood - AVP Deggendorf")
Send("{ALTDOWN}d{ALTUP}s")
Else
Send("{ALTDOWN}a{ALTUP}b")
Sleep(500)
Send("{enter}")
Sleep(500)
Send("{down}{enter}")
Sleep(500)
Send("AVP Deggendorf")
Sleep(500)
Send("{tab}")
Sleep(500)
Send("AVP Deggendorf")
Sleep(500)
Send("{enter}")
Sleep(500)
Send("{ALTDOWN}w{ALTUP}")
Sleep(500)
Send("{enter}")
Sleep(500)
Send("{enter}")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
Sleep(5000)
WinWaitActive("AVP Deggendorf FEHLER")
Send("{enter}")
Sleep(500)
WinWaitActive("Citrix Program Neighborhood - AVP Deggendorf")
Send("{ALTDOWN}d{ALTUP}n")
Sleep(500)
WinWaitActive("AVP Deggendorf")
Send("{enter}")
Sleep(500)
Send("{ALTDOWN}a{ALTUP}a")
Sleep(700)
WinWaitActive("AVP Deggendorf")
Send($Benutzer_2)
Sleep(700)
Send("{tab}")
Sleep(700)
Send($Kennwort_2)
Sleep(700)
Send("{tab}")
Sleep(700)
Send("DE47007X")
Sleep(700)
Send("{tab}{Space}")
Sleep(500)
Send("{enter}")
Sleep(500)
WinWaitActive("Citrix Program Neighborhood - AVP Deggendorf")
Send("{ALTDOWN}d{ALTUP}s")
Sleep(1000)
If WinGetHandle("Benutzername") Then
Send("{tab}{DEL}{enter}")
EndIf
Sleep(1000)
EndIf
EndFunc ;==>check17

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

Func check17_1()
$Benutzer_2 = InputBox("Benutzereinrichtung Citrix", "Bitte geben Sie den Benutzernamen ein:", "", "", 300, 100)
$Kennwort_2 = InputBox("Benutzereinrichtung Citrix", "Bitte geben Sie das Kennwort ein:", "", "*", 300, 100)
Return
EndFunc ;==>check17_1

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

Func check18()
RunWait("\\10.57.196.130\groups\Admin\Software\Autohotkey\opticlient_fehler.exe")
Sleep(1000)
EndFunc ;==>check18

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

Func check19()
RunWait(@ComSpec & " /c " & 'net stop TCP/IP-Druckserver', "", @SW_HIDE);net stop TCP/IP-Druckserver
RunWait(@ComSpec & " /c " & 'net stop Druckwarteschlange', "", @SW_HIDE);net stop Druckwarteschlange
RunWait(@ComSpec & " /c " & 'net start TCP/IP-Druckserver', "", @SW_HIDE);net start TCP/IP-Druckserver
RunWait(@ComSpec & " /c " & 'net start Druckwarteschlange', "", @SW_HIDE);net start Druckwarteschlange
Sleep(1000)
EndFunc ;==>check19

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

Func check20()
RunWait("\\10.57.196.250\SAPGui\SAPGui_710_AVP_Standard.bat")
Sleep(1000)
EndFunc ;==>check20

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

Func check21()
FileCopy("\\10.57.196.250\SAPGui\saplogon.ini", "C:\Windows\", 1);SAP Logon kopieren
Sleep(1000)
EndFunc ;==>check21

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

Func check22()
$sProzess = "hardcopy.exe"
RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
Sleep(2000)
Run(@ProgramFilesDir & "\Hardcopy\hardcopy.exe")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWaitActive("Hardcopy Registrierung")
Send("2011")
Sleep(200)
Send("{tab}")
Sleep(200)
Send("12131415")
Sleep(200)
Send("{enter}")
Sleep(200)
Send("{enter}")
Sleep(1000)
EndFunc ;==>check22

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

Func check23()
Run(@ProgramFilesDir & "\Microsoft Office\OFFICE11\outlook.exe")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWaitActive("Outlook 2003-Start")
Send("{enter}")
Sleep(200)
Send("{ALTDOWN}j{ALTUP}")
Sleep(200)
Send("{ALTDOWN}w{ALTUP}")
Sleep(200)
WinWaitActive("E-Mail-Konten")
Send("{ALTDOWN}m{ALTUP}")
Sleep(200)
Send("{ALTDOWN}w{ALTUP}")
Sleep(200)
;WinWaitActive( "E-Mail-Konten" , "Exchange Server-Einstellungen" )
Send("10.58.60.124")
Sleep(200)
Send("{tab}")
Sleep(200)
Send("{space}")
Sleep(200)
Send("{tab}")
Sleep(200)
Send($Alias_3)
Sleep(200)
Send("{ALTDOWN}w{ALTUP}")
Sleep(500)
;WinWaitActive( "E-Mail-Konten" , "Kontoeinrichtung abgeschlossen!" )
Send("{enter}")
Sleep(200)
AutoItSetOption(Opt("WinTitleMatchMode", 2))
WinWaitActive("Verbindung")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
Send("DE470070\")
Sleep(200)
Send($Benutzer_3)
Sleep(200)
Send("{tab}")
Sleep(200)
Send($Kennwort_3)
Sleep(200)
Send("{enter}")
Sleep(1000)
EndFunc ;==>check23

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

Func check23_1()
$Benutzer_3 = InputBox("Benutzereinrichtung Outlook", "Bitte geben Sie den Benutzernamen ein:", "", "", 300, 100)
$Kennwort_3 = InputBox("Benutzereinrichtung Outlook", "Bitte geben Sie das Kennwort ein:", "", "*", 300, 100)
$Alias_3 = InputBox("Benutzereinrichtung Outlook", "Bitte geben Sie die Alias der E-Mail-Adresse (Vorname.Nachname) ein:", "", "", 300, 125)
Return
EndFunc ;==>check23_1

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

Func check24()
DriveMapDel("Z:")
DriveMapAdd("Z:", "\\192.168.0.2\inst", 0, "domaene\administrator", "admin_pwd")
Run("Z:\TKP_7.12\soft-nrg.client.installer.3.1.11(VW).exe")
WinWaitActive("Choose Destination Location")
Send("{enter}")
Sleep(1000)
Send("{enter}")
WinWaitActive("Shortcutname")
Send("{enter}")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWaitActive("Finished")
Send("{enter}")
DriveMapDel("Z:")
EndFunc ;==>check24

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

Func check25()
Run("\\vwserver\vwinst\TKP_7.12\soft-nrg.client.installer.3.1.11(VW).exe")
WinWaitActive("Choose Destination Location")
Send("{enter}")
Sleep(1000)
Send("{enter}")
WinWaitActive("Shortcutname")
Send("{enter}")
AutoItSetOption(Opt("WinTitleMatchMode", 1))
WinWaitActive("Finished")
Send("{enter}")
EndFunc ;==>check25

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

Func resetbutton() ; prüft ob die Checkboxen ausgewählt sind und setzt die ausgewählten zurück.
For $i = 1 To 25
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
Next
EndFunc ;==>resetbutton

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

Func endebutton() ; beendet das Installationsmenü
Exit
EndFunc ;==>endebutton

[/autoit]

**chip**

Wüsste nichts fertiges.

**chip**

Ja der SMTP muss nicht unbedingt auch smtp. irgendwas heißen.

**chip**

du erhällst sowas in der Art zurück:

domain.de MX preference = 9, mail exchanger = smtp.domain.de
domain.de namseserver = xx.domain.de
domain.de namseserver = xx.domain.de
domain.de namseserver = xx.domain.de
smtp.domain.de internet adress = xxx.xxx.xxx.xxx
xx.domain.de internet adress = xxx.xxx.xxx.xxx
xx.domain.de internet adress = xxx.xxx.xxx.xxx
xx.domain.de internet adress = xxx.xxx.xxx.xxx

Wenn du etwas anderes angezeigt bekommen hast dann hast wohl nur nslookup gemacht und danch nicht "set type=mx" und "domain.de". Google ist kein netzinterner SMTP. Du solltest dir klar darüber werden was du haben willst ;).

**chip**

Also innerhalb eines Netzwerkes kannst du so den smtp Server ermitteln wenn du den MX Eintag hast:

1. CMD öffnen
2. nslookup
3. set type=mx
4. deineDomain.de

Dann erhällst du eine Liste von Infos unter anderem den smtp.

**chip**

Alles Gute nachträglich auch von mir :).

**chip**

Zitat von Thanatos

bist ja scheinbar der einzige in meinem Post.

Was dran liegt, dass man dir so pauschal da nicht helfen kann ;).

**chip**

Man kann halt ohne die Seite zu kennen nicht viel dazu sagen. Du könntest höchstens mal den kompletten Quelltext der entsprechenden Seite kopieren und bei http://pastebin.com/ hochladen. Evtl. kann man darauß dann schon was ableiten.

**chip**

Du willst also eine fertiges Script haben oder wie?

**chip**

Sag mal die Seite, sonst kann man recht wenig dazu sagen. Vor allem da die Sache "sich die Position der Tabelle mit anderen Tabellen der Seite ändern kann" sich stark ja Javascript anhört.

**chip**

Und was ist nun genau deine Frage?

**chip**

Danke

**chip**

In der Hilfe von Autoit meine ich hier auf Run klicken:

[autoit]

Run

[/autoit]

Und dort findest du dann:

Zitat

@SW_HIDE = verstecktes Fenster (alternative Eingabe: default).

**chip**

Dann schau dir mal in der Hilfe den Parameter 3 bei Run an ;).

**chip**

Das ist auch noch falsch:

"wgasetup.exe /autoauto /passive /norestart"

das muss so heißen:

"wgasetup.exe /autoauto /quiet /norestart"

Also im Grunde so:

Code

cd C:\Dokumente und Einstellungen\Administrator\Desktop\
"WindowsXP-KB905474-ENU-x86.exe" /extract:"%cd%" /quiet
wgasetup.exe /autoauto /quiet /norestart
    DEL wganotifypackageinner.exe
    DEL wgasetup.exe
    DEL wga_eula.txt
    SCHTASKS /Delete /TN WGASetup /F
    POPD

**chip**

Du schreibst es auch falsch ;). Es heißt nicht "wgasetup.exe /auto auto" sondern "wgasetup.exe /autoauto"

Beiträge von chip

SMTP in der Domain ermitteln

HTML Tabellen-ID ermitteln

_WinAPI_SetWindowTitleIcon() v0.96 Build 2012-06-03 Beta

SMTP in der Domain ermitteln

Checkboxen abgleich über Progressbar

SMTP in der Domain ermitteln

SMTP in der Domain ermitteln

SMTP in der Domain ermitteln

SMTP in der Domain ermitteln

Happy Birthday pee, funkey und Co.

HTML Tabellen-ID ermitteln

HTML Tabellen-ID ermitteln

Wort um Cursor auslesen

HTML Tabellen-ID ermitteln

Anfänger fragen, benötige Hilfe

Ini-Upload im Forum erlauben

Verstecken einer Installation

Verstecken einer Installation

Verstecken einer Installation

Verstecken einer Installation