NetzwerkSkript: Ist das mit AutoIt umsetzbar und/oder habe ich was vergessen

Ice-Tee

MoinMoin,

so ich wollte mal ein privates Projekt starten. Nun hab ich mir mal eine kleine Gedächnisstütze geschrieben.
Meine Frage an euch ist: kann man das mit AutoIt umsetzen und/oder hab ich was vergessen?

Spoiler anzeigen

- Suche nach allen IP’s (IP Scan…10.0.0.1 – 10.255.255.254)
- Wurde eine IP gefunden erstelle ein neues Objekt (Kann AutoIt Objekte? Wenn nicht alternative?)
Etabliere ClientSoftware (User:DomAdmin)

;ClientSoftware sollte können…

- Frage ‚alle‘ Daten ab (MAC, Modell, Last User…)

;Wieder an Server

- Vergleiche gewonnene Daten mit evt. vorhandenen Daten auf Basis der MAC-Adresse
- Ist die MAC nicht mehr im SubNetz – kill den alten Eintrag.

Sonst aktualisiere Daten

- Frage Router/Switch nach dem Port auf dem die MAC antwortet. Füge es den zu speichernden Daten hinzu.
- Speichere die Daten in ??? (Daten verschlüsseln)(*.csv, *.txt, *.db, *.xml, *.ini)
- Hat User Email Account?

Nein ..auf Exchange einen erstellen

Und ..sonst

Richte Outlook ein
Und ..sonst
Sende Daten an Email-Adresse

- Nimm Daten und erstelle eine Grafik (von AD/DC über Switch über Router zum Client)
- Wenn auf Grafik = {Klick} interagiere mit Client

;Weiteres nicht ausgeschlossen.

----- ACHTUNG: SpeicherMeduim -> Handy,Tab u.s.w. dürfen die ausgelesen werden, wenn nicht Firma?

Ist eine Interaktion mit Cisco-ASA möglich?

**alpines**

Den IP-Scan kannste jetzt schon vergessen. Eventuell kannst du schauen ob du mit einem Broadcast Antworten von den einzelnen Clienten zurückbekommst aber bis du die ganze IP-Range durchgescannt hast dauert das Ewigkeiten, nimm lieber eine Datei oder einen Hauptserver wo sich die Clienten eintragen.

Ice-Tee

Thx für deine schnelle antwort...

Ich hatte da mal was zusammen gebastelt Ich glaube das war der letzte Code, ansonsten aufm FirmenServer

Spoiler anzeigen

#include <Array.au3>

Local $sRangeMin = "10.0.0.1"
Local $sRangeMax = "10.255.255.254"
Local $sIPAdress, $aIPRueckgabe[1]
Local $iOkt1 = 0, $iOkt2 = 0, $iOkt3 = 0, $iOkt4 = 0
Local $ms[1], $error = @error, $var
Local $aProzess = ProcessList()
Local $sGroesse = UBound($aProzess)
$aRangeMin = StringSplit($sRangeMin, ".")
$aRangeMax = StringSplit($sRangeMax, ".")

_OktettDurchlauf($aRangeMin, $aRangeMax)

;~ ; Otett Durcklauf mit gültiger IP ins Array - Rückgabe
Func _OktettDurchlauf($aRangeMin, $aRangeMax)
For $iOkt1 = $aRangeMin[1] To $aRangeMax[1]
If $aRangeMin[1] < $aRangeMax[1] Then
$aRangeMax[2] = 255
EndIf
For $iOkt2 = $aRangeMin[2] To $aRangeMax[2]
If $aRangeMin[2] < $aRangeMax[2] Then
$aRangeMax[3] = 255
EndIf
For $iOkt3 = $aRangeMin[3] To $aRangeMax[3]
If $aRangeMin[3] < $aRangeMax[3] Then
$aRangeMax[4] = 255
EndIf
For $iOkt4 = $aRangeMin[4] To $aRangeMax[4]
$sIPAdress = $iOkt1 & "." & $iOkt2 & "." & $iOkt3 & "." & $iOkt4
_Ping($sIPAdress)
#cs
Select $var
Case = 0
ToolTip(@error)
Case = 1
_ArrayAdd($aIPRueckgabe, $sIPAdress)
Case > 1
_ArrayAdd($aIPRueckgabe, $sIPAdress)

EndSelect
#ce
Next
Next
Next
Next
EndFunc ;==>_OktettDurchlauf

_ArrayDisplay($aIPRueckgabe, "Info")
_ArrayDisplay($ms, "MilliSekunden")

Func _Ping($sIPAdress)
$var = Ping($sIPAdress, 1)
;_DatenSammeln($var)
Return $var
;MsgBox(0, "Hinweis", $var & "....." & $error)
EndFunc ;==>_Ping

**BugFix**

Da würde ich auf ein fertiges Tool zurückgreifen, z.B. Advanced IP Scanner. Der ist flink, free und deckt einen Großteil deiner Wünsche ab.

Ice-Tee

MoinMoin,

ja der ist wirklich gut und schnell. Nutzte für mal einen MalEbenScan in der Firma.

Naja war erstmal ein grober Abriss was das Programm können sollte

Gruss Ice-Tee

**BugFix**

Zitat von alpines

aber bis du die ganze IP-Range durchgescannt hast dauert das Ewigkeiten

Naja, man kann es schon reduzieren. Unter der Annahme, dass ich mich in einem lokalen Netzwerk befinde, dass ordentlich verkabelt ist, kann ich die Anforderungen an Ping senken (Anzahl Pakete, Paketgröße, Wartezeit, TTL). Mit einem derart angepaßten Ping dauert ein kpl. Scan von 254 IP-Adressen etwa 3 min. Das ist immerhin schon Welten besser als ein nativer Ping.
Dieses Bsp. spuckt die lebenden IPs als Array aus:

AutoIt

$aResult = _Scan_IPRange('192.168.178.1')


_ArrayDisplay($aResult)




Func _Scan_IPRange($_sIPFullStart, $_sLastByteEnd='254', $iMaxWait=100)
	Local $sBase, $sLastByteStart, $sResult, $iDotLast = StringInStr($_sIPFullStart, '.', 0, -1)
	$sBase = StringLeft($_sIPFullstart, $iDotLast)
	$sLastByteStart = StringTrimLeft($_sIPFullStart, $iDotLast)
	Local $aPID[Int($_sLastByteEnd)+1 - Int($sLastByteStart)], $iPing = Int($sLastByteStart), $sCmd
	For $i = 0 To UBound($aPID) -1
		$sCmd = StringFormat("%s /c ping -n 1 -l 4 -i %i -w %i -4 %s%s", @ComSpec, $iMaxWait, $iMaxWait, $sBase, $iPing)
		$aPID[$i] = Run($sCmd, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
		$iPing += 1
	Next
	$iPing = Int($sLastByteStart)
	For $i = 0 To UBound($aPID) -1
		ProcessWaitClose($aPID[$i])
		If StringRegExp(StdoutRead($aPID[$i]), 'Empfangen = 1') Then $sResult &= $sBase & $iPing & '|'
		$iPing += 1
	Next
	Return StringSplit(StringTrimRight($sResult, 1), '|', 2)
EndFunc

Alles anzeigen

**alpines**

@BugFix natürlich, ich bin davon ausgegangen das er den ganzen IP-Spektrum scannen möchte und das ist in kurzer Zeit nun mal nicht zu schaffen. Aber die wohl schnellste Methode wäre eine Liste wo sich die Clienten einzeln eintragen, so hat man alles sauber und übersichtlich an einem Ort.