Ich bekomme errorcode 50
ich denke auch das deine Daten falsch sind.
bei mir hat es immer geklappt.
nur ich hatte halt immer 20 bis 40 sec lade zeit bis die Mail verschickt wird und das ist halt nicht schön.
Beiträge von xXIVXx
-
-
##### Nachtrag #####
es hat keine eile
-
könnte jemand bitte mein Skript testen.
Es funktioniert zwar aber, das senden dauert schon so 30 sec und das ist mir recht lang.
Jetzt will ich wissen ob es an der Funktion liegt oder an meinem Server.schon mal danke euch allen, habt ein erholsames Wochenende.
C
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <Inet.au3> Global Const $iAnzahl_Zeilen = 10 Global $s_ToAddress Global $s_Subject Global $as_Body Global $betreff Global $msg GUI_Mailfenster() Func GUI_Mailfenster() #Region ### START Koda GUI section ### Form= $Mail = GUICreate("Email senden", 482, 451, 192, 124) $Fname = GUICtrlCreateLabel("Geben Sie hier bitte Ihren Namen ein", 32, 24, 179, 17) $name = GUICtrlCreateInput("", 32, 48, 177, 21) $femail = GUICtrlCreateLabel("Geben Sie hier bitte Ihre Email Adresse ein", 248, 24, 205, 17) $sAddress = GUICtrlCreateInput("", 248, 48, 201, 21) $fbetreff = GUICtrlCreateLabel("Bitte geben Sie hier den Betreff ein", 32, 104, 169, 17) $betreff = GUICtrlCreateInput("", 32, 128, 417, 21) $fnachricht = GUICtrlCreateLabel("Geben Sie hier die Nachricht ein", 32, 168, 154, 17) ;$msg = GUICtrlCreateInput("", 32, 192, 417, 200,$ES_MULTILINE ) $msg = GUICtrlCreateEdit("", 32, 192, 417, 200, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN)) $Senden = GUICtrlCreateButton("Senden", 160, 408, 153, 25) GUICtrlSetTip($Senden, "kann bis zu 40 sec dauern, bitte haben Sie geduld", "Info") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Local $s_SmtpServer = "" ;Smtp Server Local $s_ToAddress = "" ;Empfänger Local $s_Subject = "" ;Betreff Local $as_Body[$iAnzahl_Zeilen] While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Senden $as_Body[0] = "" $as_Body[1] = GUICtrlRead($betreff, $GUI_READ_DEFAULT) $as_Body[2] = GUICtrlRead($msg, $GUI_READ_DEFAULT) ;_ArrayDisplay($as_Body) $iResponse = _INetSmtpMail($s_SmtpServer, GUICtrlRead($name), GUICtrlRead($sAddress), $s_ToAddress, $s_Subject, $as_Body, @ComputerName, -1) Global $iErr = @error If $iResponse = 1 Then MsgBox($MB_SYSTEMMODAL, "Success!", "Mail wurde erfolgreich versendet") Else MsgBox($MB_SYSTEMMODAL, "Error!", "Mail konnte nicht verschickt werden" & @CRLF & @CRLF & "Error Code" & $iErr) EndIf Exit EndSwitch WEnd EndFunc ;==>GUI_Mailfenster -
-
Aber meine Vermutung ist dennoch richtig, du registrierst die falsche Funktion.
Du führst regelmäßig (alle 250ms was ein bisschen Overkill ist) die Funktion zum holen der Daten aus aber du speicherst diese Daten nicht und du zeigst sie auch nicht an.Registriere eine neue Funktion welches den Rückgabewert von Win32NetworkAdapter holt und dann in die GUI einträgt jedes Mal wenn diese von Adlib aufgerufen wird.
jap deine Vermutung stimmt habe es grade gesehen
-
Du führst regelmäßig (alle 250ms was ein bisschen Overkill ist) die Funktion zum holen der Daten aus aber du speicherst diese Daten nicht und du zeigst sie auch nicht an.
ich wollte sie alle 15000 ms aktualisieren nur dann bekomme ich eine Fehlermeldung
-----aber es klappt jetzt mit den 15000ms
-
Hier die au3 ...sry sie ist noch unübersichtlich
habe jetzt die includes dazu gepackt
jetzt müsste alles drin sein
-
wenn du auf alle aktiven Adapter gehst dann sollte sich die gui aber doch aktualisieren (Gui2) --> es ist nämlich ein listview
wenn das geht mache ich aus allen anderen eine Funktion -
Hier die au3 ...sry sie ist noch unübersichtlich
-
Danke dir erstmal
Die Funkion ist das was ich gesucht habe, aber aus bestimmten Gründen
übernimmt er die aktualisierten Ergebnisse nicht in die GUI 
-
Ich möchte gewisse Funktionen alle 15 sec Neustarten damit die Ergebnisse aktualisiert werden. Nur leider fehlt mir das wissen wie ich das mache.
- Es soll nicht die ganze GUI neugestartet werden sondern nur Funktionen. (Wäre ja nicht grade Optimal wen das Script alle 15 sec neu startet, und sich das fester immer weider schließt und öffnet)
Ich bedanke mich schon mal im voraus für eure Hilfe
-
hab ich selbst gemerkt war jetzt 1 Monat weg und habe heute selbst nicht mehr alles gecheckt
danke dir
-
wäre es möglich ein Button einzubauen der dann ein neues fester öffnet wo einfach alle Adapter angezeigt werden ?
-
Du parst die Daten auch falsch heraus. Du gehst alle Infos durch und trennst sie nicht.Beispiel wäre der Teil mit der IP-Adresse (Z153 ff.)
Du gehst die ganzen Elemente durch und packst sie in einen String statt sie in ein Array zu speichern und auf Dubletten bzw. auf Leerstrings zu überprüfen.
Am besten wäre es wenn du eine Combo erstellst wo du den Adapter auswählen kannst und dann nur die Infos angezeigt werden.
Oder ein TabControl mit Infos für jeden Adapter pro Tab, ist aber ein bisschen schwieriger.Danke dir erstmal
Das mit dem Tab habe ich auch schon als schwierig eingestuft, glaube ich bin dafür noch zu unerfahren.
Wäre halt glaub ich die schönste Lösung, das automatisch für jeden Adapter ein tab erstellt wird.
mal gucken ich muss einfach probieren.
Das mit dem auslesen ist ein gute Idee aber mit Arrays hapert es bei mir auch.Aber Danke dir
ich werde es mal ausprobieren -
ich habe jetzt bei manchen labels einfach die größe geändert, so das z.b nur die Ip adresse vom ersten Adapter angezeigt wird
ich aber keine lösung
-
Meine Frage / Mein Problem
Bei der Netzwerkinformation im rechten oberen Bereich wird alles korrekt angezeigt, solange nur eine Internetverbindung mit einem Adapter besteht.
Ist zum BSP jetzt ein Rechner mit Lan und Wlan verbunden damit er mit 2 Netzten verbunden ist sieht es nicht mehr ordentlich aus.
was würdet ihr mir empfehlen
wäre es möglich da noch ein tab in der fertigen GUI einzubauen oder ähnliches?
Damit die Infos für jeden Adapter einzelt angezeigt werden -
Meine Frage / Mein Problem
Bei der Netzwerkinformation im rechten oberen Bereich wird alles korrekt angezeigt, solange nur eine Internetverbindung mit einem Adapter besteht.
Ist zum BSP jetzt ein Rechner mit Lan und Wlan verbunden damit er mit 2 Netzten verbunden ist sieht es nicht mehr ordentlich aus.
was würdet ihr mir empfehlen
möglich wäre ein tab oder ähnliches ich lasse mich überraschenC
Alles anzeigen#cs################################################################################################################################################################### ################################################################################################################################################################## ################################################################################################################################################################## ####### ####### ####### Author: Thomas Zickert ####### ####### Script Funktion: ####### ####### Netzwerkinfo + Zugriff Diagnose ####### ####### ####### ####### 26.06.17 ####### ####### ####### ################################################################################################################################################################## ################################################################################################################################################################## #ce################################################################################################################################################################### #include <Array.au3> $iTimer = TimerInit() ;$aAdapter = _Win32NetworkAdapter() #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #cs######################################################################################################### ############################################################################################################ ### ### ### Funktionen ### ### ### ############################################################################################################ #ce######################################################################################################### #CS##### Mac Ermittlung ##### #ce############################## ausgabe = $strmac $strComputer = "." $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $colAdapters = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") $strmac = '' For $objAdapter In $colAdapters $strmac &= $objAdapter.MACAddress & @LF Next ;MsgBox(512 + 1 +4096 + 64 + 8192 + 65536,"Netzwerkinfo",$strmac) #CS##### Verbindungsart ##### #ce############################## ;ausgabe = $stradapter $strComputer = "." $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30) $stradapter = '' $strlan = '' $strwlan = '' For $objItem In $colItems $stradapter &= $objItem.NetConnectionID If StringRegExp($stradapter, "^WLANEthernet$", 0) Then $strwlan = "Verbunden" $strlan = "Verbunden" Else If StringRegExp($stradapter, "^Ethernet$", 0) Then $strlan = "Verbunden" Else $strlan = "nicht Verbunden" EndIf If StringRegExp($stradapter, "^WLAN$", 0) Then $strwlan = "Verbunden" Else $strwlan = "nicht Verbunden" EndIf EndIf Next ConsoleWrite($stradapter) ;MsgBox(512 + 1 + 4096 + 64 + 8192 + 65536, "Netzwerkinfo", $stradapter) #CS##### DHCP Server IP ##### #ce############################## ;ausgabe = $strdhcpserver $strComputer = "." $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) $strdhcpserver = '' For $objItem2 In $colItems2 $strdhcpserver &= $objItem2.DHCPServer Next ;MsgBox(0,"Netzwerkinfo",$strdhcpserver) #CS##### DHCP Server konfiguration ##### #ce######################################### ;ausgabe = $srtdhcpstatus $strComputer = "." $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) $strComputer = "." $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30) $srtdhcpstatus = '' For $objItem In $colItems For $objItem2 In $colItems2 If $objItem.Caption = $objItem2.Caption Then If $objItem2.IPEnabled = -1 Then If $objItem2.DHCPEnabled = -1 Then $srtdhcpstatus &= 'von DHCP zugewiesen' Else $srtdhcpstatus &= 'Manuell konfiguriert' EndIf EndIf EndIf Next Next ; MsgBox(0,"Netzwerkinfo",$srtdhcpstatus) #CS##### IP Gateway ######### #ce############################## ;ausgabe = $strgateway $strComputer = "." $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) $strgateway = '' For $objItem2 In $colItems2 $strgateway &= $objItem2.DefaultIPGateway(0) Next ;MsgBox(0,"Netzwerkinfo",$strgateway) #CS##### IP Adresse ######### #ce############################## ;ausgabe = $strip $strComputer = "." $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) $strip = '' For $objItem2 In $colItems2 $strip &= $objItem2.IPAddress(0) Next ;MsgBox(0,"Netzwerkinfo",$strip) #CS##### DC1 Erreichbar? ##### #ce############################### Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.1" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortdc1 = "Erreichbar" Else $srtantwortdc1 = "nicht Erreichbar" EndIf ;MsgBox (0," ", $srtantwortdc1) #CS##### DC2 Erreichbar? ##### #ce############################### Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.2" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortdc2 = "Erreichbar" Else $srtantwortdc2 = "nicht Erreichbar" EndIf #CS##### xserve Erreichbar? ##### #ce################################## Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.100" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortxserve = "Erreichbar" Else $srtantwortxserve = "nicht Erreichbar" EndIf #CS##### Datev-Server Erreichbar? ##### #ce################################## Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.150" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortdatev = "Erreichbar" Else $srtantwortdatev = "nicht Erreichbar" EndIf #CS##### ZEUS-Server Erreichbar? ##### #ce####################################### Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.46" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortzeus = "Erreichbar" Else $srtantwortzeus = "nicht Erreichbar" EndIf #CS##### Easylog-Server Erreichbar? ##### #ce########################################## Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.50" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortelog = "Erreichbar" Else $srtantwortelog = "nicht Erreichbar" EndIf #CS##### Haupt-DNS-Server Erreichbar? ##### #ce########################################## Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.1" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortdns1 = "Erreichbar" Else $srtantwortdns1 = "nicht Erreichbar" EndIf #CS##### GBD Chat Erreichbar? ##### #ce#################################### Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "192.168.100.14" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortchat = "Erreichbar" Else $srtantwortchat = "nicht Erreichbar" EndIf #CS##### Google Erreichbar? ##### #ce################################## Opt("TCPTimeout", 3000) TCPStartup() $szIPADDRESS = "8.8.8.8" $pingzeit = Ping($szIPADDRESS, 1000) If $pingzeit <> 0 Then ;wenn Rechner per ping erreichbar, dann $srtantwortgoogle = "Erreichbar" Else $srtantwortgoogle = "nicht Erreichbar" EndIf #Region ### START Koda GUI section ### Form=c:\users\zickert.thomas\documents\diagnose.kxf $Fenster = GUICreate("Netzwerk Diagnose", 1306, 938, 808, 240) GUISetFont(14, 400, 0, "Arial") $Gereateinfo = GUICtrlCreateGroup("Geräte Info", 24, 24, 425, 169) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $Rechnernamefrage = GUICtrlCreateLabel("Rechnername:", 40, 80, 182, 36) $Rechnernameant = GUICtrlCreateLabel(@ComputerName, 210, 80, 85, 36) $Windowsver = GUICtrlCreateLabel("Windows Version:", 40, 136, 223, 36) $winverantwort = GUICtrlCreateLabel(@OSVersion, 210, 136, 85, 36) ;tab2 $Adapterinfo = GUICtrlCreateGroup("Adapter Info", 24, 224, 425, 193) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $Lan = GUICtrlCreateLabel("LAN:", 40, 288, 64, 36) $LA = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\lan_icon.ico", -1, 112, 280, 49, 49) $lanantwort = GUICtrlCreateLabel($strlan, 208, 288, 135, 36) $Wlanfrage = GUICtrlCreateLabel("WLAN:", 40, 344, 92, 36) $Wlan = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\wlan-icon-6.ico", -1, 136, 336, 49, 49) $wlanantwort = GUICtrlCreateLabel($strwlan, 208, 344, 205, 36) ;tab3 $Netzwekinfo = GUICtrlCreateGroup("Netzwerkinfo", 504, 24, 777, 393) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $ipadresse = GUICtrlCreateLabel("IP Adresse:", 520, 80, 145, 36) $macadresse = GUICtrlCreateLabel("MAC Adresse:", 520, 136, 181, 36) $adresstyp = GUICtrlCreateLabel("Adresstyp:", 520, 192, 134, 36) $dhcpserver = GUICtrlCreateLabel("DHCP-Server:", 520, 248, 177, 36) $standardgateway = GUICtrlCreateLabel("DHCP-Server IP:", 520, 304, 223, 36) $SSID = GUICtrlCreateLabel("Standardgateway:", 520, 360, 476, 36) $ipantwort = GUICtrlCreateLabel($strip, 765, 79, 145, 36) $macantwort = GUICtrlCreateLabel($strmac, 765, 135, 944, 56) $Adapterantwort = GUICtrlCreateLabel($srtdhcpstatus, 765, 191, 445, 36) $dhcpantwort = GUICtrlCreateLabel(@LogonDNSDomain & @LogonServer, 765, 247, 545, 36) $standardgatewa = GUICtrlCreateLabel($strdhcpserver, 765, 303, 116, 1036) $ssidantwort = GUICtrlCreateLabel($strgateway, 765, 359, 116, 36) ;tab4 $serverdiagnose = GUICtrlCreateGroup("Server", 24, 496, 577, 393, -1, $WS_EX_TRANSPARENT) GUICtrlSetFont($serverdiagnose, 20, 400, 0, "Arial") $DC1 = GUICtrlCreateLabel("Domain Controller 1:", 40, 552, 254, 36) $DC2 = GUICtrlCreateLabel("Domain Controller 2:", 40, 608, 254, 36) $Xserve = GUICtrlCreateLabel("XSERVE:", 40, 664, 120, 36) $Datev = GUICtrlCreateLabel("Datev Server:", 40, 720, 170, 36) $Zeus = GUICtrlCreateLabel("Zeus Server:", 40, 776, 160, 36) $Easylog = GUICtrlCreateLabel("Easylog Server:", 40, 832, 196, 36) $Dc1antwort = GUICtrlCreateLabel($srtantwortdc1, 316, 552, 126, 36) $dc2antwort = GUICtrlCreateLabel($srtantwortdc2, 316, 608, 126, 36) $xserveantwort = GUICtrlCreateLabel($srtantwortxserve, 316, 664, 126, 36) $datevantwort = GUICtrlCreateLabel($srtantwortdatev, 316, 720, 126, 36) $zeusantwort = GUICtrlCreateLabel($srtantwortzeus, 316, 776, 192, 36) $easylogantwort = GUICtrlCreateLabel($srtantwortelog, 316, 832, 126, 36) $Netwerkdiagnose = GUICtrlCreateLabel("Netzwerk Diagnose", 480, 448, 239, 36) ;tab5 $DNS = GUICtrlCreateGroup("DNS", 664, 496, 617, 393) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $hauptdns = GUICtrlCreateLabel("Haupt DNS Server:", 680, 552, 236, 36) $GBDCHAT = GUICtrlCreateLabel("GBD Chat:", 680, 608, 137, 36) $Goofle = GUICtrlCreateLabel("Google:", 680, 664, 99, 36) $Label1 = GUICtrlCreateLabel($srtantwortdns1, 944, 552, 161, 36) $gbdhactantwort = GUICtrlCreateLabel($srtantwortchat, 944, 608, 236, 36) $googleantwort = GUICtrlCreateLabel($srtantwortgoogle, 944, 664, 236, 36) ;tab6 $INFO = GUICtrlCreateGroup("", 24, 888, 1257, 41) $Label2 = GUICtrlCreateLabel("Autor: Thomas Zickert | © 2017 ", 48, 904, 447, 21) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Label3 = GUICtrlCreateLabel("Version 1.4", 1176, 904, 84, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd #cs #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 1115, 167, 192, 124) $ListView1 = GUICtrlCreateListView("Hersteller |Name|Adapter-Typ|Kennung|MAC Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100) For $i = 1 To UBound($aAdapter) - 1 $sString = "" For $j = 0 To UBound($aAdapter, 2) - 1 $sString &= $aAdapter[$i][$j] & "|" Next $sString = StringTrimRight($sString, 1) GUICtrlCreateListViewItem($sString, $ListView1) Next GUISetState(@SW_SHOW) Func _Win32NetworkAdapter($strComputer = 'Localhost') Local $aReturn[1][12] = [[ _ 'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _ 'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _ 'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']] Local $x = 0, $objWMIService, $colItems $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\') If Not IsObj($objWMIService) Then Return SetError(1, 0, 0) $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30) If Not IsObj($colItems) Then Return SetError(2, 0, 0) For $objItem In $colItems $x += 1 ReDim $aReturn[$x + 1][12] $aReturn[$x][0] = $objItem.Manufacturer $aReturn[$x][1] = $objItem.Name $aReturn[$x][2] = $objItem.AdapterType $aReturn[$x][3] = $objItem.NetConnectionID $aReturn[$x][4] = $objItem.MACAddress $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) If IsObj($colItems2) Then For $objItem2 In $colItems2 If $objItem.Caption = $objItem2.Caption Then If $objItem2.IPEnabled = -1 Then If $objItem2.DHCPEnabled = -1 Then $aReturn[$x][5] = 'von DHCP zugewiesen' $aReturn[$x][6] = $objItem2.DHCPServer $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained) $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires) Else $aReturn[$x][5] = 'Manuell konfiguriert' EndIf $aReturn[$x][9] = $objItem2.IPAddress(0) $aReturn[$x][10] = $objItem2.IPSubnet(0) $aReturn[$x][11] = $objItem2.DefaultIPGateway(0) EndIf EndIf Next EndIf Next Return $aReturn EndFunc ;==>_Win32NetworkAdapter Func _WMIDateStringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & '/' & _ StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _ & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2)) EndFunc ;==>_WMIDateStringToDate #ce -
Ich hab ihn mehrmals darauf hingewiesen sich das Script mal anzugucken, so kompliziert ist es nicht. Da sollte man sich schnell zurechtfinden.Übrigens habe ich von ihm eine private E-Mail bekommen in der er mir die gleiche Frage gestellt hat also kannst du dir denken warum ich so einen Ton an den Tag lege.
In dem von mir geposteten Script gibt es vielleicht eine handvoll Zeilen die sich auf die Adapterinfos + ListView beziehen und das restliche Drumherum ist entweder die UDF oder das GUI-Zeugs.
Wenn ein User nicht mal so motiviert ist sich das anzuschauen was ich ihm gecodet habe, warum sollte ich mir dann die Mühe machen und es ihm häppchengerecht zu erklären und zu scripten?Er gibt sich ja nicht mal die Mühe zu erklären was er nicht versteht, sondern (und ich zitiere):
Danke dir
sry ich bin echt ein Anfänger hier und habe vielleicht einiges nicht richtig verstanden.
Habe jetzt soweit alles geschafft letzte Woche -
Die fuktion soll rein
C
Alles anzeigen#include <Array.au3> $iTimer = TimerInit() $aAdapter = _Win32NetworkAdapter() #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 1115, 167, 192, 124) $ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100) For $i = 1 To UBound($aAdapter) - 1 $sString = "" For $j = 0 To UBound($aAdapter, 2) - 1 $sString &= $aAdapter[$i][$j] & "|" Next $sString = StringTrimRight($sString, 1) GUICtrlCreateListViewItem($sString, $ListView1) Next GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _Win32NetworkAdapter($strComputer = 'Localhost') Local $aReturn[1][12] = [[ _ 'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _ 'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _ 'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']] Local $x = 0, $objWMIService, $colItems $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\') If Not IsObj($objWMIService) Then Return SetError(1, 0, 0) $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30) If Not IsObj($colItems) Then Return SetError(2, 0, 0) For $objItem In $colItems $x += 1 ReDim $aReturn[$x + 1][12] $aReturn[$x][0] = $objItem.Manufacturer $aReturn[$x][1] = $objItem.Name $aReturn[$x][2] = $objItem.AdapterType $aReturn[$x][3] = $objItem.NetConnectionID $aReturn[$x][4] = $objItem.MACAddress $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) If IsObj($colItems2) Then For $objItem2 In $colItems2 If $objItem.Caption = $objItem2.Caption Then If $objItem2.IPEnabled = -1 Then If $objItem2.DHCPEnabled = -1 Then $aReturn[$x][5] = 'von DHCP zugewiesen' $aReturn[$x][6] = $objItem2.DHCPServer $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained) $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires) Else $aReturn[$x][5] = 'Manuell konfiguriert' EndIf $aReturn[$x][9] = $objItem2.IPAddress(0) $aReturn[$x][10] = $objItem2.IPSubnet(0) $aReturn[$x][11] = $objItem2.DefaultIPGateway(0) EndIf EndIf Next EndIf Next Return $aReturn EndFunc ;==>_Win32NetworkAdapter Func _WMIDateStringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & '/' & _ StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _ & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2)) EndFunc ;==>_WMIDateStringToDate -
das ist meine GUI in der ich die Funktion haben will
Code
Alles anzeigen#Region ### START Koda GUI section ### Form=c:\users\zickert.thomas\documents\diagnose.kxf $Fenster = GUICreate("Netzwerk Diagnose", 1306, 938, 808, 240) GUISetFont(14, 400, 0, "Arial") $Gereateinfo = GUICtrlCreateGroup("Geräte Info", 24, 24, 425, 169) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $Rechnernamefrage = GUICtrlCreateLabel("Rechnername:", 40, 80, 182, 36) $Rechnernameant = GUICtrlCreateLabel(@ComputerName, 210, 80, 85, 36) $Windowsver = GUICtrlCreateLabel("Windows Version:", 40, 136, 223, 36) $winverantwort = GUICtrlCreateLabel(@OSVersion,210, 136, 85, 36) ;tab2 $Adapterinfo = GUICtrlCreateGroup("Adapter Info", 24, 224, 425, 193) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $Lan = GUICtrlCreateLabel("LAN:", 40, 288, 64, 36) $LA = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\lan_icon.ico", -1, 112, 280, 49, 49) $lanantwort = GUICtrlCreateLabel("Verbunden", 208, 288, 135, 36) $Wlanfrage = GUICtrlCreateLabel("WLAN:", 40, 344, 92, 36) $Wlan = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\wlan-icon-6.ico", -1, 136, 336, 49, 49) $wlanantwort = GUICtrlCreateLabel("Nicht Verbunden", 208, 344, 205, 36) ;tab3 $Netzwekinfo = GUICtrlCreateGroup("Netzwerkinfo", 504, 24, 777, 393) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $ipadresse = GUICtrlCreateLabel("IP Adresse:", 520, 80, 145, 36) $macadresse = GUICtrlCreateLabel("MAC Adresse:", 520, 136, 181, 36) $adresstyp = GUICtrlCreateLabel("Adresstyp:", 520, 192, 134, 36) $dhcpserver = GUICtrlCreateLabel("DHCP-Server:", 520, 248, 177, 36) $standardgateway = GUICtrlCreateLabel("Standardgateway:", 520, 304, 223, 36) $SSID = GUICtrlCreateLabel("SSID:", 520, 360, 76, 36) $ipantwort = GUICtrlCreateLabel(@IPAddress1, 765, 79, 145, 36) $macantwort = GUICtrlCreateLabel("antwort",765, 135, 144, 36) $Adapterantwort = GUICtrlCreateLabel("von DHCP zugewiesen", 765, 191, 445, 36) $dhcpantwort = GUICtrlCreateLabel(@LogonDNSDomain & @LogonServer, 765, 247, 145, 36) $standardgatewa = GUICtrlCreateLabel("gate", 765, 303, 145, 36) $ssidantwort = GUICtrlCreateLabel("IP Adresse:", 765, 359, 145, 36) ;tab4 $serverdiagnose = GUICtrlCreateGroup("Server", 24, 496, 577, 393, -1, $WS_EX_TRANSPARENT) GUICtrlSetFont($serverdiagnose, 20, 400, 0, "Arial") $DC1 = GUICtrlCreateLabel("Domain Controller 1:", 40, 552, 254, 36) $DC2 = GUICtrlCreateLabel("Domain Controller 2:", 40, 608, 254, 36) $Xserve = GUICtrlCreateLabel("XSERVE:", 40, 664, 120, 36) $Datev = GUICtrlCreateLabel("Datev Server:", 40, 720, 170, 36) $Zeus = GUICtrlCreateLabel("Zeus Server:", 40, 776, 160, 36) $Easylog = GUICtrlCreateLabel("Easylog Server:", 40, 832, 196, 36) $Dc1antwort = GUICtrlCreateLabel("erreichbar", 320, 552, 126, 36) $dc2antwort = GUICtrlCreateLabel("erreichbar", 316, 608, 126, 36) $xserveantwort = GUICtrlCreateLabel("erreichbar", 316, 664, 126, 36) $datevantwort = GUICtrlCreateLabel("erreichbar", 316, 720, 126, 36) $zeusantwort = GUICtrlCreateLabel("nicht erreichbar", 316, 776, 192, 36) $easylogantwort = GUICtrlCreateLabel("erreichbar", 316, 832, 126, 36) $Netwerkdiagnose = GUICtrlCreateLabel("Netzwerk Diagnose", 480, 448, 239, 36) ;tab5 $DNS = GUICtrlCreateGroup("DNS", 664, 496, 617, 393) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $hauptdns = GUICtrlCreateLabel("Haupt DNS Server:", 680, 552, 236, 36) $GBDCHAT = GUICtrlCreateLabel("GBD Chat:", 680, 608, 137, 36) $Goofle = GUICtrlCreateLabel("Google:", 680, 664, 99, 36) $Label1 = GUICtrlCreateLabel("antworthaupt", 944, 552, 161, 36) $gbdhactantwort = GUICtrlCreateLabel("Haupt DNS Server:", 944, 608, 236, 36) $googleantwort = GUICtrlCreateLabel("Haupt DNS Server:", 944, 664, 236, 36) ;tab6 $INFO = GUICtrlCreateGroup("", 24, 888, 1257, 41) $Label2 = GUICtrlCreateLabel("Autor: Thomas ", 48, 904, 147, 21) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Label3 = GUICtrlCreateLabel("Version 1.4", 1176, 904, 84, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
