Beiträge von xXIVXx
-
-
so unerfahren und dann direkt mit einem Array starten? Respekt
ja ein versuch ist es wert.
ich kann ja auch vieleicht mal vorstellen was ich überhaupt vorhabe.
es soll ein Diagnose tool werden, das einmal die hardware info weitergibt und zusätzlich verbindungen überprüft. zb ob ein gewisser server erreichbar ist oder nicht.Dann solltest du mal die Grundlagen durcharbeiten, wenn du von Arrays keine Ahnung ist. Das ist eines der elementarsten Bestandteile.
Etwa so kannst du es dann einbauen:AutoIt
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
ok :D:D:D:D ok ich versuchs
-
ok danke werde ich gleich probieren. bin halt noch sehr unerfahren
-
Moin Leute, ich bedanke mich jetzt schon mal für eure Hilfe und komme jetzt zu meiner Frage:
ich habe ein scrip gefunden (scrip im anhang), das einige funktion hat die ich gerne in meiner gui einfügen würde.
Nur leider habe ich nicht viel ahnung über array displays etc. bin neu einsteiger hier und hoffe ihr könnt mir helfen wie ich sie umwandeln kann oder änliches, falls sowas geht -
Das scrip entspricht nicht meiner vorstellung.
aber ich habe es geschaft.
also falls jemand dast tool braucht, der kann mir schreiben.Funktion :
ich gebe eine Ip adresse ein und er gibt mir die gewünschte mac addresse und kopiert sie automatisch in die zwischenablage -
Vorweg, ich bin ganz neu hier und habe erst seid gestern damit angefangen.
Mein vorhaben ist:
ein Script "Programm" zu schreiben das die Mac adressen auslesen kann von allen Netzwerkgeräten.
Nach meinen Vorschtellungen könnte das so änlich aussehen, da ich aber noch unerfahren bin kriege ich das irgenwie nicht hin.
1. Eine input box wo ich die IP adresse eingebe (am besten wäre es wen alle ip adressen automatisch aufgelistet werden durch zb.ipconfig /all
2. Dann wird die wird das gerät angepingt
3. Anschließend die Mac adresse ausliest (mit arp -a +ip)und kopiert mit ClipPut
ich bedanke mich schon jetzt, für alle die mir helfen werden