IP-Adressen und Rechnername

1. offizieller Beitrag

    Hi,

    bin gerade drüber ein kleines Script zu basteln, dass mir aus meinem kompletten Netzwerk alle Rechner/Server anzeigt und dazu deren Namen. Das ganze am besten in einer .txt-Datei oder einer Exceltabelle. Nur hab ich ein Problem damit überhaupt etwas zum Rechnernamen zu finden bzw. mit Autoit nslookup durchzuführen und das ganze dann zu speichern. Das mit der IP hatte ich zwar schon selbst, doch hab ich hier im Forum eine schönere Variante gefunden.

    Spoiler anzeigen

    #include <Array.au3>
    #include <File.au3>

    Dim $vorhanden

    $file = FileOpen("IpListe.txt", 1)
    $check = _FileReadToArray("IpListe.txt", $vorhanden)

    For $i = 1 To 255 Step +1
    $IP = "192.168.0." & $i
    ToolTip($IP)

    If _ArraySearch($vorhanden, $IP) = -1 Then
    $erg = Ping($IP)
    If $erg > 0 Then
    FileWriteLine($file, $IP)
    EndIf

    EndIf

    Next
    FileClose($file)
    MsgBox(0, "", "Ip-Liste aktualisiert")

    Wäre nett wenn mir da jemand helfen könnte =)