Beiträge von gmmg

gmmg

hallo ....

suche eine möglichkeit eine textdatei zeilenweise einzulesen und daraus dann einen string für eine combobox zu erstellen ...

hab das ganze schon mit _FileReadToArray versucht umzusetzten,
aber beim zusammenfügen des strings komme ich nicht weiter ...

wie der string für die combo aussehen muss weiß ich ... habe derzeit eine andere lösung, aber durch viele änderungen in der datei, ist das ganze nicht mehr händelbar ...

benötige nun den string aus array [1] bis array [letzter eintrag]
mit array[1] & array[2] & array [3] usw. komme ich da nicht weiter, weil ich ja nicht weiß wieviele zeilen die datei hat bzw. die anzahl der zeilen sich ändern kann .... um das fest zu coden ....

vielleicht könnt ihr mir helfen ...

Spoiler anzeigen

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

#include <file.au3>

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

$file = ("\\server\PortaleBackofficeTool\portale.txt")
Dim $aRecords
If Not _FileReadToArray($file,$aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
For $x = 1 to $aRecords[0]
Msgbox(0,'Record:' & $x, $aRecords[$x])
Next

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

danke, hoffe auf eure hilfe

gruß gmmg

gmmg

als anhang willst du das wohl nicht versenden?

gruß gmmg

gmmg

hi siggi,

das kenn ich ... vorallem wenn entsprechende software nur als exe datei verfügbar ist!!!

wir machen solche sachen dann immer nachts per remotezugriff! oder wenn die exe standalon fähig ist, werden die files per autoit oder kix scripten entsprechend kopiert und ggf. registryeinträge geschrieben....

oscar und micha he haben ja schon was passendes geschrieben...

gruß gmmg

gmmg

willst den rollout im netzwerk machen?

wenn ja, mal grob erklärt, geht das über den server (domaincontroller)per gruppenrichtlinie -> softwarezuweisung am besten!!

gruß gmmg

gmmg

so in etwa habe ich das auch gemacht!

nur habe ich die _NowTime(4) genommen...
und das ganze noch mit checkbox, weil bei mir die werte in einer inputbox stehen!
ist für unser zeiterfassungstool, welches sich auch über web steuern lässt

Spoiler anzeigen

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

#include <GUIConstants.au3>
#include <GuiEdit.au3>
#Include <Date.au3>
#include <IE.au3>

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

#Region ### START Koda GUI section ### Form=d:\programme_tools\koda_2007.06.09\forms\mtz.kxf
$Form1 = GUICreate("Internet Explorer MTZ 1.1", 246, 161, 359, 376)
GUISetBkColor(0xC0C0B2)
$Button1 = GUICtrlCreateButton("<-- Kommt", 32, 16, 73, 25)
GUICtrlSetBkColor(-1,0x66CC00)
$Button2 = GUICtrlCreateButton("Geht -->", 144, 16, 73, 25)
GUICtrlSetBkColor(-1,0xff4D00)
$t1 = GUICtrlCreateInput("8:00", 88, 64, 49, 21)
$t2 = GUICtrlCreateInput("16:30", 152, 64, 49, 21)
$Label3 = GUICtrlCreateLabel("Pause", 24, 104, 48, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$p1 = GUICtrlCreateInput("12:45", 88, 104, 49, 21)
$p2 = GUICtrlCreateInput("13:15", 152, 104, 49, 21)
$Label4 = GUICtrlCreateLabel("von", 104, 88, 22, 16)
$Label5 = GUICtrlCreateLabel("bis", 168, 88, 17, 16)
$Label1 = GUICtrlCreateLabel("Arbeit", 24, 64, 45, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 216, 64, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox1", 216, 104, 17, 17)
$Label2 = GUICtrlCreateLabel("Timer inaktiv !", 168, 136, 67, 17)
$Label3 = GUICtrlCreateLabel(":-)", 5, 144, 67, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$seite = "http://xxxxxxxxxx/scripts/xxxxxx"
$seite_state = "MTZ4000 Webterminal - Microsoft Internet Explorer"
$user = "xxxx"
$pass = "xxxxxx"
$x = 0

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ; buchen über button "Kommen"

GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)

$oIE = _IECreate ($seite)

Sleep(4000) ; 4 seconds

WinSetState ($seite_state, "", @SW_MAXIMIZE )

Send($user)
Send("{TAB}")
Send($pass)
Send("{ENTER}")

Sleep(4000) ; 4 seconds

WinWaitActive($seite_state)

;~ ; +++++++++++Body der Internetseite auslesen++++++++++++
;~ ;$sHTML = _IEDocReadHTML ($oIE)
;~ ;MsgBox(0, "Document Source", $sHTML)

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

;~ $sText = _IEBodyReadText ($oIE)
;~ ;MsgBox(0, "Body Text", $sText)

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

;~ #include <Array.au3>

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

;~ Dim $avArray
;~ $avArray = _ArrayCreate($sText)

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

;~ _ArrayDisplay( $avArray, "Array created with _ArrayCreate" )
;~
;~ ;++++++++++++ Array durchsuchen +++++++++++
;~
;~ $Input = "Geht";InputBox("ArraySearch Demo", "String To Find?")
;~
;~ If @error Then Exit

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

;~ $Pos = _ArraySearch ($avArray, $Input, 0, 0, 0, True)
;~ Select
;~ Case $Pos = -1
;~ MsgBox(0, "Not Found", "was not found in the array.")
;~ Case Else
;~ MsgBox(0, "Found", "was found in the array at pos " & $Pos & ".")
;~ EndSelect
;~
;~ ;+++++++++++++++Body auslesen ende++++++++++++++++++++++++

;Send("{SPACE}")
MouseClick("left", 206, 279, 1) ; buchen kommt
;MouseClick("left", 235, 407, 1) ; abmelden

Sleep(2000) ; 2 seconds
_IEQuit ($oIE)

Case $Button2 ; buchen über button "Gehen"

GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button1, $GUI_ENABLE)

$oIE = _IECreate ($seite)

Sleep(4000) ; 4 seconds

WinSetState ($seite_state, "", @SW_MAXIMIZE )
Send($user)
Send("{TAB}")
Send($pass)
Send("{ENTER}")

Sleep(4000) ; 4 seconds

WinWaitActive($seite_state)
;Send("{SPACE}")
MouseClick("left", 206, 279, 1) ; buchen geht
;MouseClick("left", 235, 407, 1) ; abmelden

Sleep(2000) ; 2 seconds
_IEQuit ($oIE)

EndSwitch

$kommen = GUICtrlRead($t1)
$gehen = GUICtrlRead($t2)
$pause_kommen = GUICtrlRead($p1)
$pause_gehen = GUICtrlRead($p2)

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

;checkbox1 überprüfen und anhand des rückgabewertes freischalten oder auch nicht
If GUICtrlRead($Checkbox1, $GUI_CHECKED)= $GUI_CHECKED Then
$cb1 = GUICtrlRead($Checkbox1, $GUI_CHECKED)
Else
$cb1 = GUICtrlRead($Checkbox1, $GUI_UNCHECKED)= $GUI_UNCHECKED
EndIf

;MsgBox(0,"",$cb1 & " 1")

IF $cb1 = False Then

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

;MsgBox(0,"cb1",$cb1,1)
;########### beginn zeitgesteuertes Buchen ################

IF $kommen = _NowTime(4) Then
If $x <> 1 Then
$oIE = _IECreate ($seite)
;_IEPropertySet ($oIE, "addressbar", False)
;_IEPropertySet ($oIE, "menubar", False)
;_IEPropertySet ($oIE, "toolbar", False)

Sleep(4000) ; 4 seconds

WinSetState ($seite_state, "", @SW_MAXIMIZE )

Send($user)
Send("{TAB}")
Send($pass)
Send("{ENTER}")

Sleep(4000) ; 4 seconds

WinWaitActive($seite_state)
;Send("{SPACE}")
MouseClick("left", 206, 279, 1) ; buchen kommt
;MouseClick("left", 235, 407, 1) ; abmelden
Sleep(2000) ; 2 seconds
_IEQuit ($oIE)
$x = 1

Run("RunDll32.exe user32.dll,LockWorkStation") ; arbeitsstation sperren

EndIf
;MsgBox(0,"",$kommen)
EndIf

IF $gehen = _NowTime(4) Then
If $x <> 2 Then
$oIE = _IECreate ($seite)
;_IEPropertySet ($oIE, "addressbar", False)
;_IEPropertySet ($oIE, "menubar", False)
;_IEPropertySet ($oIE, "toolbar", False)

Sleep(4000) ; 4 seconds

WinSetState ($seite_state, "", @SW_MAXIMIZE )
Send($user)
Send("{TAB}")
Send($pass)
Send("{ENTER}")

Sleep(4000) ; 4 seconds

WinWaitActive($seite_state)
;Send("{SPACE}")
MouseClick("left", 206, 279, 1) ; buchen geht
;MouseClick("left", 235, 407, 1) ; abmelden

Sleep(2000) ; 2 seconds
_IEQuit ($oIE)
$x = 2

Run("RunDll32.exe user32.dll,LockWorkStation") ; arbeitsstation sperren

Exit
EndIf
;MsgBox(0,"",$kommen)

EndIf

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

Else
;nichts machen
EndIf

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

;checkbox2 überprüfen und anhand des rückgabewertes freischalten oder auch nicht
If GUICtrlRead($Checkbox2, $GUI_CHECKED)= $GUI_CHECKED Then
$cb2 = GUICtrlRead($Checkbox2, $GUI_CHECKED)
Else
$cb2 = GUICtrlRead($Checkbox2, $GUI_UNCHECKED)= $GUI_UNCHECKED
EndIf

;MsgBox(0,"","test"& $cb2)

IF $cb2 = False Then

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

;MsgBox(0,"cb2",$cb2,1)

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

IF $pause_kommen = _NowTime(4) Then
If $x <> 3 Then
$oIE = _IECreate ($seite)
;_IEPropertySet ($oIE, "addressbar", False)
;_IEPropertySet ($oIE, "menubar", False)
;_IEPropertySet ($oIE, "toolbar", False)

Sleep(4000) ; 4 seconds

WinSetState ($seite_state, "", @SW_MAXIMIZE )
Send($user)
Send("{TAB}")
Send($pass)
Send("{ENTER}")

Sleep(4000) ; 4 seconds

WinWaitActive($seite_state)
;Send("{SPACE}")
MouseClick("left", 206, 279, 1) ; buchen geht
;MouseClick("left", 235, 407, 1) ; abmelden

Sleep(2000) ; 2 seconds
_IEQuit ($oIE)
$x = 3
EndIf
;MsgBox(0,"",$kommen)
EndIf

IF $pause_gehen = _NowTime(4) Then
If $x <> 4 Then
$oIE = _IECreate ($seite)
;_IEPropertySet ($oIE, "addressbar", False)
;_IEPropertySet ($oIE, "menubar", False)
;_IEPropertySet ($oIE, "toolbar", False)

Sleep(4000) ; 4 seconds

WinSetState ($seite_state, "", @SW_MAXIMIZE )
Send($user)
Send("{TAB}")
Send($pass)
Send("{ENTER}")

Sleep(4000) ; 4 seconds

WinWaitActive($seite_state)
;Send("{SPACE}")
MouseClick("left", 206, 279, 1) ; buchen geht
;MouseClick("left", 235, 407, 1) ; abmelden

Sleep(2000) ; 2 seconds
_IEQuit ($oIE)
$x = 4
EndIf
;MsgBox(0,"",$kommen)
EndIf
Else
;nichts machen
EndIf

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

;MsgBox(0,"",$cb2,1)

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

IF $cb1 and $cb2 = True Then
_GUICtrlEdit_SetText ($Label2, "Timer inaktiv !")
Else
_GUICtrlEdit_SetText ($Label2, "Timer aktiv !")
EndIf

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

;########### end zeitgesteuertes Buchen ################

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

WEnd

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

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

gruß gmmg

[Blockierte Grafik: http://www.autoit.de/file:///C:/DOKUME~1/MARCEL~1.GRA/LOKALE~1/Temp/moz-screenshot.jpg]

gmmg

hi herra,

zu 1.

ja das geht!

entweder baust du dir den text vorher als variable zumsammen oder direkt bei der variable $as_Body !
beispiel:
$bodyinhalt = "test1" & @CRLF & "text2" (kannst den $bodyinhalt ja z.b auch aus ner textdatei auslesen und in die variable schreiben)
$as_Body = $bodyinhalt
oder
$as_Body = "test1" & @CRLF & "text2"

gruß gmmg

gmmg

hi progandy,

danke erstmal
das ist genau die lösung...

gruß gmmg

gmmg

Hallo,

gibt es eine möglichkeit Eigene Buttons in der Titelleiste hinzuzufügen?
wäre nicht schlecht, wenn der button dann in jeder aktiven titelleiste vorhanden wäre.

gruß gmmg

gmmg

ich hab auch noch was:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.2.0
Author: Mirko Kühne
B.A.S. Verkehrstechnik AG
(freundliche Unterstützung aus dem AutoItforum durch: Bugfix)

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

Script Function:
Überprüfung der Mitgliedschaft zu einer Domänen-Gruppe

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

#ce ----------------------------------------------------------------------------

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

msgbox(0,"Gruppe überprüfen","Status der Gruppenmitgliedschaft (1=ja,0=nein): " & _mkMemberOfgroup("team-it")) ; <gruppen_name> durch den zu prüfenden

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

Func _mkMemberOfGroup($mkGroupName); Beginn der Funktion mit Übergabe der zu überprüfenden Gruppe
$wbemFlagReturnImmediately = 0x10; Variable $wbemFlagReturnImmediately setzen
$wbemFlagForwardOnly = 0x20; Variable $wbemFlagForwardOnly setzen
$colItems = ""; Variable $collItems setzen
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2"); Objekt erstellen
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser", _; Aus dem Objekt $objWMIService eine WMI-Abfrage auf alle Win32_GroupUser ausführen
"WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly); Ergebnis wird als Objekt in der Variablen $collItems gespeichert

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

If IsObj($colItems) then; Falls ein Objekt erstellt wurde
For $objItem In $colItems; Beginn der Schleife
IF StringInStr($objitem.GroupComponent,$mkGroupName) _; Überprüfung, ob GroupComponent den zu überprüfenden Gruppennamen
AND StringInStr($objitem.GroupComponent,@LogonDomain) _; UND GroupComponent die Domäne
AND StringInStr($objitem.PartComponent,@UserName) THEN return 1; UND PartComponent den Benutzernamen (loginname)enthält, DANN Wahrheitswert zurückliefern
Next; Ende der Schleife
return 0; es konnte keine Übereinstimmung gefunden werden, Fehlerwert zurückliefern
Endif; Ende der Bedingung
EndFunc

[/autoit]

bzw. folgendes, da wird geprüft, ob der aktuelle user mitgleid einer bestimmten gruppe ist!

Spoiler anzeigen

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

If IsMemberOf("team-it",@username) = 1then
MsgBox(0, "AD","in der Gruppe")

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

Else
MsgBox(0, "AD","nicht in der Gruppe")
EndIf

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

; IsMemberOf
; Takes the groupname (SamAccountName with or without the leading 'CN=', and the SamAccountName of the user
; Returns 1 if the the user is a member of the group, 0 otherwise

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

Func IsMemberOf($group, $user)
If StringLeft($group, 3) <> "CN=" Then
$group = "CN=" & $group
EndIf
Dim $usergroups[1], $i = 1

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

Dim $objConnection, $oUsr

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

$objConnection = ObjCreate("ADODB.Connection") ; Create COM object to AD
$objConnection.Provider = "ADsDSOObject"
$objConnection.Open ("Active Directory Provider") ; Open connection to AD

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

$objRootDSE = ObjGet("LDAP://RootDSE")
Global $strDNSDomain = $objRootDSE.Get ("defaultNamingContext") ; Retrieve the current AD domain name

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

$strQuery = "<LDAP://" & $strDNSDomain & ">;(sAMAccountName=" & $user & ");ADsPath;subtree"
$objRecordSet = $objConnection.Execute ($strQuery) ; Retrieve the FQDN for the logged on user
$ldap_entry = $objRecordSet.fields (0).value
$oUsr = ObjGet($ldap_entry) ; Retrieve the COM Object for the logged on user
$groups = $oUsr.groups ; Get the list of group objects from the user

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

For $groupname In $groups
If $groupname.name = $group Then Return 1

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

Next
Return 0

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

EndFunc ;==>IsMemberOf

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

in der "adfunctions.au3" sind die funtionen beschrieben....
ich musste aber bei einem bestimmten projekt auf kix zurückgreifen, weil er mir die gruppenmitgliedschaft nicht bei jedem user ordnungsgemäß ausgelesen hat, bzw. es hat zu lange gedauert...

hier mal das kix "user" dazu:

Code

; Gruppenmitgliedschaft prüfen


Team ("team-programmierung")
Team ("team-qualitaet")
Team ("team-it")
Team ("team-buchhaltung")
Team ("team-produkt")
Team ("team-steuerung")
Team ("team-ticket")
Team ("team-schulung")
Team ("team-personal")
Team ("team-gf")




Function Team($Gruppe)
	If ingroup($Gruppe)  
        messagebox("ingroup","Userinfo",0,1)
        Run ("C:\OT-Tools\gtLanMessenger\gtLANMessenger_options_run.exe")
	EndIf


EndFunction

Alles anzeigen

hier der aufruf über autoit:

[autoit]

Run(@ComSpec & " /c \\server\NETLOGON\kix32 \\server\NETLOGON\user.kix", "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

[/autoit]

gruß gmmg

gmmg

hi progandy,

alles per gruppenrichtlinie gesperrt! die user sehen nur netzlaufwerke und ihre programmverknüpfungen
das "Ausführen" ist auch ausgeblendet. wer natürlich bissl mehr ahnung hat, der kann das auch umgehen, aber da würde derjenige was anderes arbeiten....

gruß gmmg

gmmg

hallo,

suche für folgendes vorhaben eine lösung:
info: die derzeitige lösung ist zu statisch

ich habe eine ini datei (beispiel):

Spoiler anzeigen

[A1]
Key03 = ""adresse1@xy.de;adresse3@xy.de;adresse3@xy.de""
Key04 = ""\\pc1\xyz_00.pdf""

[A2]
Key05 = ""adresse1@xy.de;adresse3@xy.de;adresse3@xy.de""
Key06 = ""\\pc1\xyz_01.pdf""

[A3]
Key03 = ""adresse1@xy.de;adresse3@xy.de;adresse3@xy.de""
Key04 = ""\\pc1\xyz_03.pdf""

und kann die felder auch mit iniread auslesen. und den variablen

Spoiler anzeigen

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

$mailto_01 = IniRead("C:\xxx.ini", "A1", "key03", "NotFound")
$path1 = IniRead("C:\xxx.ini", "A1", "key04", "NotFound")

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

;##################################
; Variables
;##################################
$s_SmtpServer = "xx.xx.xx.xx" ; address for the smtp-server to use - REQUIRED
$s_FromName = "xxx.xxx.de" ; name from who the email was sent
$s_FromAddress = "xxx.xxx.de" ; address from where the mail should come
$s_ToAddress = $mailto_01 ; destination address of the email - REQUIRED
$s_Subject = "xxx" ; subject from the email - can be anything you want it to be
$as_Body = ""; the messagebody from the mail - can be left blank but then you get a blank mail
$s_AttachFiles = $path1 ; the file you want to attach- leave blank if not needed
$s_CcAddress = "" ; address for cc - leave blank if not needed
$s_BccAddress = "" ; address for bcc - leave blank if not needed
$s_Username = "xxxx" ; username for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$s_Password = "xxxxxxxxxx" ; password for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

[/autoit]

wie kann ich das ganze in eine schleife packen?

sozusagen soll die schleife erst abschnitt A1 der ini abarbeiten und die mail mit entsprechendem anhang versenden, danach A2 usw.

in der derzeitigen lösung habe ich die funktion einfach umbenannt und nochmals aufgerufen.

danke im voraus

gruß gmmg

gmmg

hi bugfix,

grund warum der sound deaktiviert werden soll --> mitarbeiter schauen sich während der arbeitszeit filme an bzw. spielen übers inet, hören radio, stören somit den geschäftsbetrieb! ohne ton macht das dann weniger spass
habe daher eine schnelle möglichkeit gesucht, ohne jeden pc einzeln anzufassen, weil es über 100 pc's sind
diese sind alle mitglieder einer domäne und die user haben keinen zugriff auf die systemsteuerung, konsole u.a., wurde alles per gruppenrichtlinie gesperrt.
an das dxdiag hab ich garnicht gedacht.

gruß gmmg

gmmg

hallo zusammen,

hier mal meine lösung ......

Spoiler anzeigen

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

; sound deaktivieren und lautsprechersymbol ausblenden

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

Opt('WinWaitDelay')
Run("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,")
WinWait("Eigenschaften von Sounds und Audiogeräte")
WinSetState("Eigenschaften von Sounds und Audiogeräte","",@SW_HIDE)
Opt('WinWaitDelay')

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

Sleep(2000)

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

Global $opt_1 = 6666
Global $opt_2 = 6697
Global $opt_3 = 12321
Global $opt_4 = 1

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

ControlCommand("Eigenschaften von Sounds und Audiogeräte","", $opt_1, "unCheck","")
ControlCommand("Eigenschaften von Sounds und Audiogeräte","", $opt_2, "Check","")

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

Sleep(1000)

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

ControlCommand("Eigenschaften von Sounds und Audiogeräte","", $opt_3, "Check", "")
ControlCommand("Eigenschaften von Sounds und Audiogeräte","", $opt_4, "Check", "")

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

das script funktioniert auch prima per gruppenrichtlinie
falls einer noch eine idee hat, bitte melden....

gruß gmmg

gmmg

hi,

firetiger meint warscheinlich die & verknüpfung von variablen aus bestimmten eingabemasken (textfeldern)
name1 & name2 = emailaddy

gruß gmmg

gmmg

hi,

das weiß ich, das die für laufwerke ist!
hätte ja sein können, das dies schon ansatzweise existiert! ich benötige ja theoretisch nur den teil, der für das gnerieren der gui und das sliden zuständig ist, sozusagen das Grundgerüst! eine programmverknüpfung ist ja kein problem!

gruß gmmg

gmmg

hallo,

gibt es noch eine version der slidebar, wo man sich eigene programmverknüpfungen erstellen kann? so als schnellstart, ähnlich den desktopverknüpfungen?

danke

gruß gmmg

gmmg

auch von mir ein schönes weihnachtsfest und einen guten rutsch ins neue jahr

gruß
gmmg

gmmg

ja,

ich kann ja einen default wert einstellen! habe eine lösung gefunden! er hatte mir immer die einträge nochmal zusätzlich in die combo gelistet!

gruß gmmg

gmmg

hi mega,

funktioniert wunderbar!

weißt du zufällig, wie ich eine combobox, die mit koda erzeugt wurde, bei meinem beispiel nach drücken des buttons mailversand, auf den folgenden wert zurückgesetzt wird ? der wert soll der sein, der beim starten des scriptes auch vorhanden ist!

#Region ### START Koda GUI section ###
$Form1 = GUICreate("Backoffice Tool 1.0 ", 446, 526, 347, 129)
$Combo1 = GUICtrlCreateCombo("", 136, 120, 289, 21)
GUICtrlSetData($Combo1, " |Wert1|Wert2")

gruß gmmg

gmmg

hi mega,

danke erstmal für deine mühe
habe das jetzt so umgebaut, das meine zusammengesetzten variablen auch wieder funktionieren!

Spoiler anzeigen

[autoit]

#include
#include
#include
#Include
#include

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

HotKeySet("^{F4}", "Capture_start") ;Strg-F4

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

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

;-------begin username auflösen----
$user = _ADSamAccountNameToFQDN(@UserName)

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

$user_split = StringSplit($user, ",")
$user_split1 = StringSplit($user_split[1], "=")

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

$username = $user_split1[2]

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

;~ ;MsgBox(0,"","Hallo " & $username & "," &@CRLF & "das Tool wird gestartet!" ,3)
;-------ende username auflösen----

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

;-------------------------------------
;HotKeySet("^{F4}", "Capture_start") ;Strg-F4
;HotKeySet("^{F9}") ;Strg-F9

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

;HotKeySet("{PRINTSCREEN}", "Capture_start")
;HotKeySet("+!d", "Capture_start") ;Shift-Alt-d
;--------------------------------------

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

Global $re_A, $username = @UserName, $mbody, $cba1
;--function dateien in array lesen--

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

Func _getFilePathes($sPath, $sFilter = '(*.*)', $iFlag = 0)
Local $FileList = _FileListToArray($sPath, $sFilter, $iFlag)
If @error Then Return (@error * (-1))
Local $re_A = ''
For $i = 1 To UBound($FileList) - 1
$re_A &= $sPath & '\' & $FileList[$i] & ';'
Next
Return StringTrimRight($re_A, 1)
EndFunc ;==>_getFilePathes

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

$t1 = "----------------------------------------------" & @CRLF

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $sendMail_B

;######################################
; checkbox1 auf wert prüfen
;######################################
If GUICtrlRead($Checkbox1, $GUI_CHECKED) = $GUI_CHECKED Then
$cb1 = GUICtrlRead($Checkbox1, $GUI_CHECKED)
Else
$cb1 = GUICtrlRead($Checkbox1, $GUI_UNCHECKED) = $GUI_UNCHECKED
EndIf

If $cb1 = False Then
$cba1 = GUICtrlRead($Checkbox1, $GUI_CHECKED)
Else
$cba1 = " "
EndIf

;-------------------------------
;inhalt prüfen
;-------------------------------

$i2 = GUICtrlRead($Input2)
$i4 = GUICtrlRead($Input4)
$i5 = GUICtrlRead($Input5)
$cbo1 = GUICtrlRead($Combo1)
$cbo2 = GUICtrlRead($Combo2)
$cbo3 = GUICtrlRead($Combo3)
$cbo4 = GUICtrlRead($Combo4)
$edit = GUICtrlRead($Edit1)
;---------------------------------------
; mailbody
;---------------------------------------
$mbody = ($t1 & "Portal: " & @CRLF & $cbo1 & @CRLF & $t1 & _
"Expedient: " & @CRLF & $i2 & @CRLF & $t1 & "Buchungsquelle: " & _
@CRLF & $cbo3 & @CRLF & $t1 & "E-Mailadresse des KD: " & @CRLF & $i4 & _
@CRLF & $t1 & "Zus. Fax | Tel. des KD: " & @CRLF & $i5 & @CRLF & $t1 & _
"Zahlungsart: " & @CRLF & $cbo2 & @CRLF & $t1 & "Status der Buchung: " & _
@CRLF & $cbo4 & @CRLF & $t1 & "Sonstige Notizen: " & @CRLF & $edit & @CRLF & $t1)
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;--dateien in array lesen
$re = _getFilePathes(@MyDocumentsDir & "\mail_screenshot", '*.jpg')
_ArrayDisplay($re)

;##################################
; Variables
;##################################
$s_SmtpServer = "10.*****" ; address for the smtp-server to use - REQUIRED
$s_FromName = @UserName ;@UserName ; name from who the email was sent
$s_FromAddress = @UserName & "@****.de" ; address from where the mail should come
$s_ToAddress = "test@*****.de" ; destination address of the email - REQUIRED
$s_Subject = "xxxxxx " & $cba1 ; subject from the email - can be anything you want it to be"
$as_Body = $mbody & @CRLF & @CRLF & "MfG" & @CRLF & $username; the messagebody from the mail - can be left blank but then you get a blank mail
;$s_AttachFiles = "C:\Dokumente und Einstellungen\*******Eigene Dateien\screenshot\screenshot_1.jpg;C:\Dokumente und Einstellungen\*********\Eigene Dateien\screenshot\screenshot_2.jpg" ; the file you want to attach- leave blank if not needed
;$s_AttachFiles = $a1&";"&$a2 ; the file you want to attach- leave blank if not needed
$s_CcAddress = "" ; address for cc - leave blank if not needed
$s_BccAddress = " "
$s_Username = "*****" ; username for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$s_Password = "******" ; password for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

;##################################
; Script
;##################################

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $re, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf

;screenshot files löschen
FileDelete(@MyDocumentsDir & "\mail_screenshot\*.*")

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

;GUICtrlSetData($Input2, "")
;GUICtrlSetData($Combo1, "")
;GUICtrlSetData($Combo4, "")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
GUICtrlSetData($Edit1, "")
ControlCommand("", "Dringend", $Checkbox1, "UnCheck", "")
$s_AttachFiles = ""
EndSwitch
WEnd

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

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @LF & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
EndFunc ;==>_INetSmtpMailCom

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

; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

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

; function capture screenshot
Func Capture_start()
; Capture full screen
If FileExists(@MyDocumentsDir & "\mail_screenshot") Then
;MsgBox(4096, "C:\autoexec.bat File", "Exists")
Else
;MsgBox(4096,"C:\autoexec.bat File", "Does NOT exists")
DirCreate(@MyDocumentsDir & "\mail_screenshot")
EndIf
;FileDelete(@MyDocumentsDir & "\Printscreen*.*"
_ScreenCapture_Capture(@MyDocumentsDir & "\mail_screenshot\screenshot_" & @HOUR & @MIN & @SEC & ".jpg")
MsgBox(0, "", "Screenshot erstellt!", 1)

EndFunc ;==>Capture_start

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

Func IsMemberOf($group, $user)
If StringLeft($group, 3) <> "CN=" Then
$group = "CN=" & $group
EndIf
Dim $usergroups[1], $i = 1
Dim $objConnection, $oUsr
$objConnection = ObjCreate("ADODB.Connection") ; Create COM object to AD
$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider") ; Open connection to AD
$objRootDSE = ObjGet("LDAP://RootDSE")
Global $strDNSDomain = $objRootDSE.Get("defaultNamingContext") ; Retrieve the current AD domain name
$strQuery = ";(sAMAccountName=" & $user & ");ADsPath;subtree"
$objRecordSet = $objConnection.Execute($strQuery) ; Retrieve the FQDN for the logged on user
$ldap_entry = $objRecordSet.fields(0).value
$oUsr = ObjGet($ldap_entry) ; Retrieve the COM Object for the logged on user
$groups = $oUsr.groups ; Get the list of group objects from the user

For $groupname In $groups
If $groupname.name = $group Then Return 1
Next
Return 0
EndFunc ;==>IsMemberOf

[/autoit]

habe den fehler, wenn keine datei vorhanden, auch noch nicht beheben können!
wie kann ich nach dem mailversand, das formular zurücksetzen, ausgewählte einträge einer combobox u.a ?

gruß gmmg
</adfunctions.au3></Array.au3></GUIConstants.au3></ScreenCapture.au3></File.au3>

Beiträge von gmmg

Textdatei Zeilenweise einlesen und einen String daraus für eine Combobox erstellen

_INetSmtpMail und lange texte?

msi ausführen?

msi ausführen?

Zeitgesteuert aktion

Email Senden

Eigene Buttons in der Titelleiste anbringen

Eigene Buttons in der Titelleiste anbringen

User und Secutity Groups aus einem AD auslesen?

Sound deaktivieren und Lautsprechersymbol ausblenden

Mailversand über INetSmtpMail

Sound deaktivieren und Lautsprechersymbol ausblenden

Sound deaktivieren und Lautsprechersymbol ausblenden

E-mail versenden?

SB v X.0

SB v X.0

Frohe Weihnachten 2007 und einen guten Rutsch ins Neue Jahr 2008

Screenshot per mail versenden

Screenshot per mail versenden

Screenshot per mail versenden