Beiträge von xXIVXx

Zitat von Sonderbaar

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.

Zitat von alpines

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

#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

Alles anzeigen

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