Beiträge von Prekuz

Prekuz

Huhu Community,

ich steh wahrscheinlich wieder auf dem Schlauch und übersehe eine Kleinigkeit, aber ich find denn Fehler einfach nicht.

Zum Programm:
Es soll ein Tool sein um uns denn Support zu erleichtern

Jetzt haben wir es um eine Mail Variante erweitert. Das Klappt auch alles ganz gut nur das er denn Anhang nicht verschicken will (Klappt bei anderen Scripts aber)

C

;##################################
; Includes
;#################################


#include <GUIConstants.au3>
#include <_INetSmtpMailCom.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>




;##################################
; GUI Global Variables
;##################################


Global $TVIDW32 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version5.1","ClientID") 				;ließt die Teamviewer ID aus der Registry 32bit(getestet Version 5.1 unter Windows 7 Pro)
Global $TVIDW64 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version5.1","ClientID") 	;ließt die Teamviewer ID aus der Registry 64bit(getestet Version 5.1 unter Windows 8.1 Pro)
Global $LO = @UserName											;Anmeldename
Global $PC = @ComputerName										;PC Name
Global $IP = @IPAddress1										;IP Adresse
Global $OS = @OSVersion											;Betriebssystem
Global $AR = @OSArch											;32bit oder 64 Bit Betriebssystem
Global $SP = @OSServicePack										;Service Pack vom Betriebssystem
Global $LS = @LogonServer										;Domain Controller
Global $PO = @DesktopCommonDir									;Profilpfad
Global $TL = @LogonDNSDomain									;Domain Name und Top Level Domain
Global $DO = @LogonDomain										;Realer Domain name


;##################################
; Inhalte für TXT
;##################################


$NewName = $PC																																																						;Vari. für Umbenennung der TXT
$wrtxt = "Username:        " & $LO & @CRLF & "Hostname:        " & $PC & @CRLF & "IP:              " & $IP & @CRLF & "Betriebssystem:  " & $OS & @CRLF & "Archi:           " & $AR & @CRLF & "ServicePack:     "  & $SP & @CRLF & "Domain:          "  & $DO & @CRLF & "Profilpfad:      "  & $PO & @CRLF	;Inhalt TXT




;##################################
; Mail Variables
;##################################


$SmtpServer = "mail.gmx.net" 												; SMPT Server vom Provider (Ist Erforderlich)
$FromName = "Support Anfrage" & $PC		 									; Von wem kommt die Mail
$FromAddress = "Absender@Adsender.de" 										; Email Adresse von (Ist Erforderlich)
$ToAddress = "EMPFÄNGER@EMPFÄNGERl.de" 									; Email Adresse an (Ist Erforderlich)
$Subject = "Support Anfrage  " & " " & $PC 									; Hier wird der Betreff vergeben (Kann Variabel vergeben werden)
$Body = "Bitte um Rückruf:  " & $LO & $TL		 							; Hier wird der eigentliche Textinhalt vergeben (kann auch leer bleiben)
$AttachFiles = "C:\Support\Konfig\" & $PC & ".txt" 							; Anhang Datei inkl. Pfad hier einfügen; leer lassen wenn es nicht benötigt wird
$CcAddress = "" 															; Adresse für cc - leer lassen wenn es nicht benötigt wird
$BccAddress = "" 															; Adresse für bcc - leer lassen wenn es nicht benötigt wird
$Importance = "High"  														; Priorität der Email: "High", "Normal", "Low"
$Username = "Absender@Absender.de" 											; Loginname der Email Adresse (Ist Erforderlich)
$Password = "Passwort" 													; Passwort der Email Adresse (Ist Erforderlich)
$IPPort = 465 																; Genutzter Port(Ist Erforderlich)
$ssl = 1 																	; SSL an (1) oder aus (0)(Ist Erforderlich)




;##################################
; Teamviewer Auslesen
;##################################


if $AR="x64" Then									;Auslesen der Teamviewer ID inkl. Abfrage 64Bit oder 32Bit Betriebsystem
   $tv = $TVIDW64
Else
   $tv = $TVIDW32
EndIf




;##################################
; GUI
;##################################


#Region ### Start GUI section ### PCInfo								;Create GUI Start
$GUI = GUICreate("PCInfo", 550, 500, 750, 250)
GUISetCursor (2)
GUISetFont(16, 400, 0, "Century Schoolbook")
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Start Teamviewer", 10, 460, 200, 30, 0) ;Button 1 TeamViewer 5.1 Staten
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button2 = GUICtrlCreateButton("Ende", 440, 460, 100, 30, 0)			;Button 2 Programm beenden mit Verabschiedungs Fenster
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("Support Anfrage", 225, 460, 200, 30, 0)	;Button 3 Druckerverwaltung öffnen
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Anmeldename:", 15, 16, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label11 = GUICtrlCreateLabel($LO, 190, 16, 160, 29)					;Zeigt denn Anmeldenamen an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label2 = GUICtrlCreateLabel("PC Name:", 15, 56, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label21 = GUICtrlCreateLabel($PC, 190, 56, 160, 29)					;Zeigt denn Hostname an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label3 = GUICtrlCreateLabel("IP Adresse:", 15, 96, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label31 = GUICtrlCreateLabel($IP, 190, 96, 160, 29)					;Zeigt die erste IP Adresse an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label4 = GUICtrlCreateLabel("Betriebssystem:", 15, 136, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label41 = GUICtrlCreateLabel($OS, 190, 136, 160, 29)					;Zeigt das Installierte Betriebssysteman an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label4 = GUICtrlCreateLabel("Architektur:", 15, 176, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label4 = GUICtrlCreateLabel($AR, 190, 176, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label5 = GUICtrlCreateLabel("TeamviewerID:", 15, 216, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label51 = GUICtrlCreateLabel($tv, 190, 216, 160, 29)					;Zeigt die TeamviewerID an für Windows 7(nur mit Version 5.1 getestet)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label5 = GUICtrlCreateLabel("Angemeldet an:", 15, 256, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label51 = GUICtrlCreateLabel($ls, 190, 256, 160, 29)					;Zeigt die TeamviewerID an für Windows 7(nur mit Version 5.1 getestet)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
$Label5 = GUICtrlCreateLabel("Domain\TLD:", 15, 296, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label51 = GUICtrlCreateLabel($TL, 190, 296, 180, 29)					;Zeigt die TeamviewerID an für Windows 7(nur mit Version 5.1 getestet)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
$Label5 = GUICtrlCreateLabel("Domainname:", 15, 336, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label51 = GUICtrlCreateLabel($DO, 190, 336, 160, 29)					;Zeigt die TeamviewerID an für Windows 7(nur mit Version 5.1 getestet)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)


#EndRegion ### END GUI section ###										;Create GUI End




While 1																	;Funktionserstellung bzw. -bennennung Buttons
	$1MSGB = GUIGetMsg()
	Switch $1MSGB
    	Case $GUI_EVENT_CLOSE
        	Exit
    	Case $Button1
        	_TVStart ()
    	Case $Button2
        	_Ende ()
		 Case $Button3
        	_Support ()
	EndSwitch
WEnd




Func	_TVStart ()														;Funktionsdefinition für denn linken Button (1)
MsgBox(0, "Danke", "Teamviewer wird nun gestartet")
Run("C:\Program Files\TeamViewer\Version5\Teamviewer.exe") 				;startet Teamviewer unter Windows 32bit(nur mit Version 5.1 getestet)
Run("C:\Program Files (x86)\TeamViewer\Version5\Teamviewer.exe")		;startet Teamviewer unter Windows 64bit(nur mit Version 5.1 getestet)
Exit
EndFunc


Func	_Support ()														;Funktionsdefinition für denn mittleren Button (3)
MsgBox(0, "Danke", "outlook")
If FileExists ("C:\Support\Konfig\*.txt") Then FileDelete ("C:\Support\Konfig\*.txt")		;löscht alle beststehenden Text dateien im Ordner
If Not FileExists("C:\Support\Konfig") Then DirCreate("C:\Support\Konfig")					;Falls Ordner nicht vorhanden ist wird dieser Erstellt
FileWrite("C:\Support\Konfig\" & $NewName & ".txt", $wrtxt)
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
Exit
EndFunc


Func	_Ende ()														;Funktionsdefinition für denn rechten Button (2)
MsgBox(0, "Vielen Dank", "Wir wünschen Ihnen einen schönen Tag")
Exit
EndFunc

Alles anzeigen

Wenn ich nun denn Script Ausführe kommt eine Meldung:

Zitat von AutoIT

@@ Debug(62) : $S_Files2Attach " & $x &": = C:\Support\Konfig\PC2101N.txt

Die <_INetSmtpMailCom.au3> hab ich mal als Dateianhang dazu gepackt.

Ich vermute das es an dem Befüllen der Variablen liegt aber ich komm gerade nicht weiter.

LG

Pre

Prekuz

DANKE DANKE

Ich würde mir gerade gerne selbst ein Facepalm geben.

Da stand ich mal wieder auf dem Schlauch.

achja Danke nochmal

jetzt mach ich mich mal an den Mailversand

Prekuz

ich bekomm dann immer eine Windows Meldung das der Pfad nicht verfügbar ist:

\\@logonserver\\netlogon\druckert\dr.Ink steht nicht zur Verfügung

ich stell mir vor, dass er dann durch einen Befehl wie halt @logonserver denn Servernamen Auflöst und dann in das passende Verzeichnis geht.

Bespiel (funktioniert so nicht hab ich probiert):

Am Standort1 heißt der Domain Controller

dc1

Befehle Autoit:
Shellexecute ("\\@logonserver\\netlogon\druckert\dr.Ink")

Aufgerufener Pfad:
\\dc1\\netlogon\druckert\dr.Ink

Am Standort2 heißt der Domain Controller

dc2

Befehle Autoit:
Shellexecute ("\\@logonserver\\netlogon\druckert\dr.Ink")

Aufgerufener Pfad:
\\dc2\\netlogon\druckert\dr.Ink

Am Standort3 heißt der Domain Controller

dc3

Befehle Autoit:
Shellexecute ("\\@logonserver\\netlogon\druckert\dr.Ink")

Aufgerufener Pfad:
\\dc3\\netlogon\druckert\dr.Ink

etc.

Bin wahrscheinlich einfach nur so doof den Fehler zu sehen.

Prekuz

Hej Hej,

ich habe mal wieder ein Problem.

Ich habe ein kleines Tool gemacht was mir beim Support hilft, in dem es dem Anwender gewisse Daten zeigt die er mir am Telefon durchsagen kann. Wenn nun doch eine Fernwartung nötig ist kann er denn Teamviewer starten über einen Button oder das Programm beenden. Nun ist gewünscht das ein anderes Tool eingebunden werden soll (Druckerverwaltung.exe) über einen weiteren Button. Gesagt getan. Klappt auch alles soweit. Nun möchte ich nicht für jeden Standort eine eigene .exe machen sondern mit mehr Variablen arbeiten.

Das Programm Druckerverwalten liegt im Netlogon und ist bis auf dem Namen des Domain Controllers identisch.

Code

#include <GUIConstants.au3>


;##################################
; Variables
;##################################


$TVIDW32 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version5.1","ClientID") 				;ließt die Teamviewer ID aus der Registry 32bit(getestet Version 5.1 unter Windows 7 Pro)
$TVIDW64 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version5.1","ClientID") 	;ließt die Teamviewer ID aus der Registry 64bit(getestet Version 5.1 unter Windows 8.1 Pro)
$Login = @UserName										;Anmeldename
$Hostname = @LogonDomain								;PC Name
$IP = @IPAddress1										;IP Adresse
$OS = @OSVersion										;Betriebssystem
$AR = @OSArch											;32bit oder 64 Bit Betriebssystem
$SP = @OSServicePack									;Service Pack vom Betriebssystem
$LS = @LogonServer										;Domain Controller


; Inhalte für TXT
$NewName = $hostname																																																						;Vari. für Umbenennung der TXT
$wrtxt = "Username:        " & $Login & @CRLF & "Hostname:        " & $Hostname & @CRLF & "IP:              " & $IP & @CRLF & "Betriebssystem:  " & $OS & @CRLF & "Archi:           " & $AR & @CRLF & "ServicePack:     "  & $SP & @CRLF 	;Inhalt TXT


if $AR="x64" Then									;Auslesen der Teamviewer ID inkl. Abfrage 64Bit oder 32Bit Betriebsystem
   $tv = $TVIDW64
Else
   $tv = $TVIDW32
EndIf






#Region ### Start GUI section ### PCInfo								;Create GUI Start
$GUI = GUICreate("PCInfo", 550, 500, 750, 250)
GUISetCursor (2)
GUISetFont(16, 400, 0, "Century Schoolbook")
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Start Teamviewer", 10, 460, 200, 30, 0) ;Button 1 TeamViewer 5.1 Staten
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button2 = GUICtrlCreateButton("Ende", 440, 460, 100, 30, 0)			;Button 2 Programm beenden mit Verabschiedungs Fenster
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("Drucker Zuordnen", 225, 460, 200, 30, 0);Button 3 Druckerverwaltung öffnen
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Anmeldename:", 15, 16, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label11 = GUICtrlCreateLabel($Login, 190, 16, 160, 29)					;Zeigt denn Anmeldenamen an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label2 = GUICtrlCreateLabel("PC Name:", 15, 56, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label21 = GUICtrlCreateLabel($Hostname, 190, 56, 160, 29)				;Zeigt denn Hostname an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label3 = GUICtrlCreateLabel("IP Adresse:", 15, 96, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label31 = GUICtrlCreateLabel($IP, 190, 96, 160, 29)					;Zeigt die erste IP Adresse an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label4 = GUICtrlCreateLabel("Betriebssystem:", 15, 136, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label41 = GUICtrlCreateLabel($os, 190, 136, 160, 29)					;Zeigt das Installierte Betriebssysteman an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label5 = GUICtrlCreateLabel("TeamviewerID:", 15, 176, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label51 = GUICtrlCreateLabel($tv, 190, 176, 160, 29)					;Zeigt die TeamviewerID an für Windows 7(nur mit Version 5.1 getestet)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label5 = GUICtrlCreateLabel("Angemeldet an:", 15, 216, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label51 = GUICtrlCreateLabel($ls, 190, 216, 160, 29)					;Zeigt die TeamviewerID an für Windows 7(nur mit Version 5.1 getestet)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)


#EndRegion ### END GUI section ###										;Create GUI End




While 1																	;Funktionserstellung bzw. -bennennung Buttons
	$1MSGB = GUIGetMsg()
	Switch $1MSGB
    	Case $GUI_EVENT_CLOSE
        	Exit
    	Case $Button1
        	_TVStart ()
    	Case $Button2
        	_Ende ()
			Case $Button3
        	_Printertool ()
	EndSwitch
WEnd




Func	_TVStart ()														;Funktionsdefinition für denn linken Button (1)
MsgBox(0, "Danke", "Teamviewer wird nun gestartet")
Run("C:\Program Files\TeamViewer\Version5\Teamviewer.exe") 				;startet Teamviewer unter Windows 32bit(nur mit Version 5.1 getestet)
Run("C:\Program Files (x86)\TeamViewer\Version5\Teamviewer.exe")		;startet Teamviewer unter Windows 64bit(nur mit Version 5.1 getestet)
Exit
EndFunc


Func	_Printertool ()													;Funktionsdefinition für denn mittleren Button (3)
MsgBox(0, "Danke", "DR Start")
ShellExecute ("\\dc1\NETLOGON\Druckert\dr.lnk")
Exit
EndFunc


Func	_Ende ()														;Funktionsdefinition für denn rechten Button (2)
MsgBox(0, "Vielen Dank", "Wir wünschen Ihnen einen schönen Tag")
If FileExists ("C:\Support\Konfig\*.txt") Then FileDelete ("C:\Support\Konfig\*.txt")		;löscht alle beststehenden Text dateien im Ordner
If Not FileExists("C:\Support\Konfig") Then DirCreate("C:\Support\Konfig")					;Falls Ordner nicht vorhanden ist wird dieser Erstellt
FileWrite("C:\Support\Konfig\" & $NewName & ".txt", $wrtxt)
Exit
EndFunc

Alles anzeigen

jetzt geht es speziel um Zeile 111 hier würde ich gerne das Programm mit aus einen Variablen Pfad aufrufen, Sinngemäß: Shellexecute ("@LogonServer\netlogon\druckert\dr.Ink") nur geht das nicht wie ich mir das Vorstelle. Warum ich das machen möchte. Die Strucktur in den Standorten ist Identisch nur nicht der Servername doch ist es da halt der Einzige logonserver.

Ein einem weiterem Schritt sollen später darüber aus Mails an das Ticketsystem geschickt werden daher wird auch jetzt schon eine TXT generiert (falls es jemanden aufgefallen ist).

Ich danke schon mal für die Hilfe

LG

Pre

Prekuz

Huhu,

danke für die Hilfe.
@Andy hier gehts es darum zu schauen ob Server da wenn nein dann mail an mich. Damit ich nicht erst reagieren kann wenn ich einen Anruf vom Anwender bekomme.
@bernd670 danke die fehlenden Parameter haben es gerichtet.

Die Dienstabfrage wird anderes geregelt intern mit einem anderen Script.

Vielen Dank für die Hilfe

Prekuz

Huhu,

ich hab mal wieder ein Problem. Was ich möchte ist das ich alle ca. 3 Minuten einen Ping auf meine Server mache und wenn diese/r nicht verfügbar ist eine Mail rausgeschickt wird.
Im Prinzip funktioniert der Mail versand ohne Probleme (Andere Scripte laufen sehr gut z.B. Backupbenachrichtigungen etc.)

C

#include <MsgBoxConstants.au3>


;##################################
; Global Variablen
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $pc = @ComputerName												; Auslesen des PC Namen
Global $Domain = @LogonDNSDomain										; Auselesen der Domain
Global $IPDC = "192.168.2.1"											; IP Adresse vom Domain Controller
Global $IPWSM = "192.168.3.1	"										; IP Adresse vom WSM Server
Global $NameDC = "DC"													; IP Adresse vom Domain Controller
Global $NameWSM = "WSM"




#include <_INetSmtpMailCom.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>




;##################################
; Variablen
;##################################
$SmtpServer = "mail.gmx.net" 												; SMPT Server vom Provider (Ist Erforderlich)
$FromName = "Überwachung Ping Server" & $Domain			 					; Von wem kommt die Mail
$FromAddress = "mail@absender.de" 										; Email Adresse von (Ist Erforderlich)
$ToAddress = "mail@empfänger.de" 									; Email Adresse an (Ist Erforderlich)
;$Subject = "Server nicht Verfügbar in der  " & " " & $Domain 				; Betreff für die Email (Kann Variabel vergeben werden)
$Body = "Server nicht erreichbar in der:  " & $Domain 						; WIRD HIER IN DER SCHLEIFE VERGEBEN Text inhalt (kann auch leer bleiben)
$Importance = "Hight" ; 													; Priorität der Email: "High", "Normal", "Low"
$Username = "Benutzer" 											; Loginname der Email Adresse (Ist Erforderlich)
$Password = "Passwort" 													; Passwort der Email Adresse (Ist Erforderlich)
$IPPort = 465 																; Genutzter Port(Ist Erforderlich)
$ssl = 1 																	; SSL an (1) oder aus (0)(Ist Erforderlich)






While True
Sleep(180000)
																				 ; Warte 3 min bis zum erneuten Ausführen


; 1. Abfrage Domain Controler


       Local $PingDc = Ping($IPDC, 250) 										 ; Ping auf Server max Antwortzeit toleranz 250 ms


    If $PingDC Then 															 ; Wenn ein Ping erfolgreich ist tue nichts

		; wenn PING innerhalb von 250 ms gehe zur 2. Abfrage
		; MsgBox($MB_SYSTEMMODAL, "", "Antwortzeit von   " & $IPDC & ":   "& $PingDC & " ms" & "  Alles OK  ")


	Else																		 ; Wenn ein Ping nicht erfolgreich ist sende mail


		 ; wenn Ping nicht innerhalb von 250 ms dann verschicke Email
        $Subject = "Server nicht Verfügbar in der:  " & $Domain & " " & $NameDc  ; Betreff für die Email, muss hier gesetzt werden da der Servername gesetzt werden muss
		$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $Importance, $Username, $Password, $IPPort, $ssl)


		 ;MsgBox($MB_SYSTEMMODAL, "", "Ein Fehler ist aufgetretten bei  " & $IPDC)


	 EndIf




; 2. Abfrage WSM Server


	 Local $PingWSM = Ping($IPWSM, 250) 										  ; Ping auf Server max Antwortzeit toleranz 250 ms


    If $PingWSM Then 


																				  ; Wenn ein Ping erfolgreich ist tue nichts


		 ; wenn PING innerhalb von 250 ms gehe zum Anfang der Schleife
		 ;MsgBox($MB_SYSTEMMODAL, "", "Antwortzeit von   " & $IPWSM & ":   "& $PingWSM & " ms" & "  Alles OK  ")


	 Else																		  ; Wenn ein Ping nicht erfolgreich ist sende mail


		 ; wenn Ping nicht innerhalb von 250 ms dann verschicke Email

		$Subject = "Server nicht Verfügbar in der:  " & $Domain & " " & $NameWSM  ; Betreff für die Email, muss hier gesetzt werden da der Servername gesetzt werden muss
		$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $Importance, $Username, $Password, $IPPort, $ssl)


		 ;MsgBox($MB_SYSTEMMODAL, "", "Ein Fehler ist aufgetretten bei  " & $IPWSM)


	 EndIf
WEnd

Alles anzeigen

IP Adressen und Benutzer daten sind im Orginal Script richtig.

Jetzt steh ich da und finde keine Lösung. Mit denn MSGBoxen klappt es aber der Versand der Mail nicht. Habt ihr eine Idee? Von mir aus auch was ganz anderes. Danke schon mal im Voraus.

LG
Pre

Prekuz

So Nasevoll gehabt. Mit GMX klappt es. WEB.de scheint da echt ne Macke zu haben.

[autoit][/autoit][autoit]

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $pc = @ComputerName
#include <_INetSmtpMailCom.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>
;##################################
; Variables
;##################################
$SmtpServer = "mail.gmx.net"
$FromName = "Versand Detail.txt"
$FromAddress = "Absender@gmx.de"
$ToAddress = "Empfänger@Firma.de"
$Subject = "Detail.txt von " & " " & $pc
$Body = "Anlage bitte speichern unter: xxxxxxxxx" & " "
$AttachFiles = @ScriptDir & "\Detail" & $pc & ".txt"
$CcAddress = ""
$BccAddress = ""
$Importance = "Hight"
$Username = "Absender@gmx.de"
$Password = "Password"
$IPPort = 465
$ssl = 1
; Datei umbenennen
FileMove(@ScriptDir & "\Detail.txt" , @ScriptDir & "\Detail" & $pc & ".txt")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
exit
else
FileMove(@ScriptDir & "\Detail" & $pc & ".txt" , @ScriptDir & "\Detail" & $pc & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & ".txt")
EndIf

[autoit]

[/autoit]

Danke für eure Hilfe.

LG

Pre[/autoit]

Prekuz

Huhu,

ich hab das jetzt mal Probiert alles leider ohne Erfolg. Ich werd heute noch mal einwenig was Probieren, das Problem ist halt das ich das nicht über outlook etc lösen kann.

Prekuz

Danke für die schnelle Antwort. Habs ausprobiert geht leider auch nciht.

Laut WEB.de soll das bei denn aber 587 sein: https://hilfe.web.de/sicherheit/ssl.html

oder seh ich das gerade völlig falsch bzw. hab da einen grundlegeden Fehler drinn?

Prekuz

Huhu zusammen,

mein Problem zur Zeit ist das WEB nun alles auf SSL umgestellt hab und mein Mailversand nicht mehr funktioniert.

Ich hab mir dazu einiges Durchgelesen und rumprobiert leider ohne erfolg. Kann mir dabei jemand helfen?

[autoit]

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $pc = @ComputerName

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

#include <_INetSmtpMailCom.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FileConstants.au3>

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

;##################################
; Variables
;##################################
$SmtpServer = "smtp.web.de"
$FromName = "Versand Detail.txt"
$FromAddress = "Absender@web.de"
$ToAddress = "Empfänger@Firma.de"
$Subject = "Detail.txt von " & " " & $pc
$Body = "Anlage bitte speichern unter: xxxxxxxxx" & " "
$AttachFiles = @ScriptDir & "\Detail" & $pc & ".txt"
$CcAddress = ""
$BccAddress = ""
$Importance = "Hight"
$Username = "Absender@web.de"
$Password = "Password"
$IPPort = 587
$ssl = 1

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

; Datei umbenennen

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

FileMove(@ScriptDir & "\Detail.txt" , @ScriptDir & "\Detail" & $pc & ".txt")

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

$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

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

If @error Then
exit
else
FileMove(@ScriptDir & "\Detail" & $pc & ".txt" , @ScriptDir & "\Detail" & $pc & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & ".txt")
EndIf

[/autoit]

Ziel ist es wieder ein Datei namens Detail.txt zu versenden. Ich bin da etwas ratlos.

LG
Pre

Prekuz

@ AspirinJunkie

Musst mich nicht verstehen tu ich meist selber nicht .

Hab denn ganzen Code nochmal neu geschrieben. War iwie der Wurf drin. jetzt klappt auch deine Variante 1

Code

if @OSArch="X64" Then
    $tv = $TVIDW64
Else
    $tv = $TVIDW32
EndIf

Danke nochmal war ne schnelle und tolle Hilfe

Prekuz

Danke. Die alternative hat geklappt. Die andere Syntax bekomm ich nicht als Variable hin, aber egal solange es läuft.

Vielen Dank nochmal

Prekuz

Huhu,

ich habe ein Problem und könnte eure Hilfe brauchen.

Bei der Variablen $tv (Zeile13) sollen die variab. in Zeile 6 und 7 ab gefragt werden je dem ob es sich um ein 64 Bit oder 32 Bit System handelt und am Ende einer GUI ausgegeben werden siehe Zeile 56. So mein Problem: Es geht nicht. Nehme ich die Varia. $tv raus klappt es. Was mache ich falsch.

Code

include <GUIConstants.au3>


;##################################
; Variables
;##################################
$TVIDW32 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version5.1","ClientID")     ;ließt die Teamviewer ID aus der Registry 32bit(getestet Version 5.1 unter Windows 7 Pro)
$TVIDW64 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\TeamViewer\Version5.1","ClientID")  ;ließt die Teamviewer ID aus der Registry 64bit(getestet Version 5.1 unter Windows 8.1 Pro)
$Login = @UserName          ;Anmeldename
$Hostname = @ComputerName        ;PC Name
$ip = @IPAddress1          ;IP Adresse
$OS = @OSVersion          ;Betriebssystem
$AR = @OSArch           ;32bit oder 64 Bit Betriebssystem
$tv = if $AR="64" Then $TVIDW64 Else $TVIDW32 EndIf  ;Teamviewer ID


;Create GUI
#Region ### Start GUI section ### PCInfo
$GUI = GUICreate("PCInfo", 400, 300, 750, 250)
GUISetCursor (2)
GUISetFont(16, 400, 0, "Century Schoolbook")
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Start Teamviewer", 10, 260, 200, 30, 0) ;Button 1 TeamViewer 5.1 Staten
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button2 = GUICtrlCreateButton("Ende", 290, 260, 100, 30, 0)   ;Button 2 Programm beenden mit Verabschiedungs Fenster
GUICtrlSetFont(-1, 16, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Anmeldename:", 15, 16, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label11 = GUICtrlCreateLabel($Login, 190, 16, 160, 29)     ;Zeigt denn Anmeldenamen an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label2 = GUICtrlCreateLabel("PC Name:", 15, 56, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label21 = GUICtrlCreateLabel($Hostname, 190, 56, 160, 29)    ;Zeigt denn Hostname an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label3 = GUICtrlCreateLabel("IP Adresse:", 15, 96, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label31 = GUICtrlCreateLabel($IP, 190, 96, 160, 29)     ;Zeigt die erste IP Adresse an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label4 = GUICtrlCreateLabel("Betriebssystem:", 15, 136, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label41 = GUICtrlCreateLabel($os, 190, 136, 160, 29)     ;Zeigt das Installierte Betriebssysteman an
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label5 = GUICtrlCreateLabel("TeamviewerID:", 15, 176, 160, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
$Label51 = GUICtrlCreateLabel($tv, 190, 176, 160, 29)     ;Zeigt die TeamviewerID an für Windows 7(nur mit Version 5.1 getestet)
GUICtrlSetFont(-1, 16, 400, 0, "Century Schoolbook")
GUICtrlSetColor(-1, 0x3399FF)
GUISetState(@SW_SHOW)
#EndRegion ### END GUI section ###


;Funktionserstellung bzw. -bennennung Buttons


While 1
 $1MSGB = GUIGetMsg()
 Switch $1MSGB
     Case $GUI_EVENT_CLOSE
         Exit
     Case $Button1
         _TVStart ()
     Case $Button2
         _Ende ()
 EndSwitch
WEnd


;Funktionsdefinition für denn linken Button (1)


Func _TVStart ()
MsgBox(0, "Danke", "Teamviewer wird nun gestartet")
Run("C:\Program Files\TeamViewer\Version5\Teamviewer.exe")     ;startet Teamviewer unter Windows 32bit(nur mit Version 5.1 getestet)
Run("C:\Program Files (x86)\TeamViewer\Version5\Teamviewer.exe")  ;startet Teamviewer unter Windows 64bit(nur mit Version 5.1 getestet)
Exit
EndFunc


;Funktionsdefinition für denn rechten Button (2)
Func _Ende ()
MsgBox(0, "Vielen Dank", "Wir wünschen Ihnen einen schönen Tag")
Exit
EndFunc

Alles anzeigen

Vielen Dank schon mal

LG

Prekus

Prekuz

Ok habs doch selber rausbekommen.

Code

$TVID = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TeamViewer\Version5.1","ClientID")


MsgBox (32, "PC Info:", "Anmeldename:    " & @UserName & @CRLF & "Computername:  " & @ComputerName & @CRLF & "IP Adresse:            " & @IPAddress1 & @CRLF & "Betriebssystem:    " & @OSVersion & @CRLF & "TeamviewerID:     " & $TVID)

Prekuz

Hallo,

ich brauch mal wieder Hilfe. Ich hab ein kleines Tool gemacht um die wichtigsten Angaben für denn Support auf einen Blick zu haben, damit die Kollegen nicht immer mit der CMD Konsole und unter Anleitung mir diese geben können.
Da kam mit Auto IT gerade recht.

So nun mein Problem. Ich möchte auch noch die Teamviewer ID auslesen und mit in die MSG Box bringen.

Ich hab hier im Forum schon zwei Einträge dazu gefunden aber das klappt bei mir irgendwie nicht.

Code

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


 AutoIt Version: 3.3.12.0
 Author: 


 Script Function:
 
#ce ----------------------------------------------------------------------------


MsgBox (32, "PC Info:", "Anmeldename:    " & @UserName & @CRLF & "Computername:  " & @ComputerName & @CRLF & "IP Adresse:            " & @IPAddress1 & @CRLF & "Betriebssystem:    " & @OSVersion)

Alles anzeigen

Was ich nun erreichen möchte ist das ich in dieser MSG Box auch die Teamviewer ID habe in Dezimalform.

Folgendes hab ich dazu hier im Forum gelesen. TeamViewer aulesen und https://autoit.de/index.php/Thread/?postID=79578#post79578&page=Thread&postID=79578&highlight=teamviewer

Vielen Dank schon mal.

LG

Pre

Prekuz

Supi danke funktioniert.

Prekuz

Huhu,

mich lässt das runas einfach nicht inruhe

Diesmal soll folgendes gemacht werden:
ein Programm in Verschiedenen Domains als Admin ausführen. Soweit auch alles gut das Programm läuft(wenn ich es mit einer Batch, Admin und da denn Parameter S übergebe) jetzt soll aber keine Batch das eigentliche Programm ausführen sondern eine andere exe damit die Anwender nicht das Admin PW sehen können, Parameter s hinter der exe benötige ich damit das Programm auch das tut was es soll.

Code

Runas ("Administrator", @LogonDomain, "Password", 0, @ScriptDir & "Tafelauswerten.exe s")

Könnt ihr mir noch mal helfen bitte.

Gruß
Pre

Prekuz

Huhu,

danke für die Hilfe. Leider liegt es eher am PC. Auf dem Notebook (gleiche Domäne, " Virenscanner, etc.) klappt es ohne Probleme.

Danke nochmal.

LG

Pre

Prekuz

Mh leider nicht hast du noch ein Tipp?

Prekuz

Huhu,

könnt ihr einem neuling helfen. Folgendes steht in der "programm starten.au3":

Code

Runas ("Benutzername", "Domäne", "Kennwort", 0, "C:\Program Files\WinRAR\WinRAR.exe")

Nicht mehr (Ja die Daten wie Benutzernamen etc. sind richtig ausgefüllt)

So nun mein Problem:

Drücke ich im Editor F5 geht alles. nachdem ich Compile Script mache und diesen in eine .exe umwandel kommt beim Ausführen der .exe die Fehlermeldung: "Unable to open the script file" gleiches passiert auch bei anderen Scripts.

Grunddaten:
Windows 7 32 bit
AutoIt Version SciTE-Lite
Version 3.4.1

Vielen Dank schon mal im Voraus.

LG

Pre

Beiträge von Prekuz

Anhang wird nicht versendet

Programm aus einen Variablen Pfad starten

Programm aus einen Variablen Pfad starten

Programm aus einen Variablen Pfad starten

PING mit Mailversand (Server Überwachen)

PING mit Mailversand (Server Überwachen)

Mailversand mit ssl

Mailversand mit ssl

Mailversand mit ssl

Mailversand mit ssl

Variabeln Auslesen

Variabeln Auslesen

Variabeln Auslesen

TeamViewer ID auslesen und in MSG Box ausgeben

TeamViewer ID auslesen und in MSG Box ausgeben

Runas Befehl mit Parametern Übergeben

Runas Befehl mit Parametern Übergeben

Exe nicht richtig ausführbar.Unable to open the script file.

Exe nicht richtig ausführbar.Unable to open the script file.

Exe nicht richtig ausführbar.Unable to open the script file.