Zum Inhalt springen

Empfohlene Beiträge

Geschrieben

Hallo zusammen,

Zu meinem Problem,

ich soll für meine Firma eine Netzwerkverwaltungssoftware finden, entwickeln oder dergleichen, wie ich ran komme ist egal (Ob selbst programmiert oder gekauft ist also egal)

Die Software soll mehrere Informationen über verschiedene Netzwerkgeräte Speichern, unter anderem auch ihren Standort, und damit stoße ich an die grenzen von dem was ich bisher gefunden habe.

Die Software soll eine Verwaltung für (Computer, Bildschirme, Drucker, Scanner, Multifunktionsgeräte, Switche, Telefone) besitzen, sowie zumindest eine Ping Funktion um zumindest die Rechner und Switche anpingen zu können. Dafür habe ich bereits kostenlose sowie kostenpflichtige Software gefunden, z.B.:

I-Doit Hat eine Super Verwaltung für die verschiedenen Geräte, hat aber weder eine möglichkeit für Ping (zumindest habe ich keine gesehen) noch ist eine Standortanzeige für die Geräte möglich.

Nagios Hätte mit einem Plugin die fähigkeit das man die Geräte auf einer Karte eintragen lassen könnte, Ping ist soweit ich gesehen habe auch möglich ABER ist hier die Konfiguration zu aufwendig und Kompliziert um das ganze im alltagsgeschäft nutzen zu können.

Spiceworks An und für sich auch eine nette Software, allerdings hat auch diese keine Standortanzeige für die Geräte. Ping bin ich mir nicht sicher ob möglich ist.

VISIO Wäre von der Standortanzeige Ideal, hier ist im Prinzip alles vorhanden was ich möchte ABER ich kann hier keinen Ping an die Geräte schicken was aus der Software heraus möglich sein soll. (Gab es früher angeblich mal in Visio ist aber laut MS Telefonberater seit VISIO 2000 [erste MS VISIO Version] nicht mehr mit Ping fähigkeiten ausgestattet)

Ich suche mir hier schon seit Tagen im Netz die Finger wund, einzig und allein mein Spezi rausch lässt mich noch Motiviert weitersuchen :D

Allerdings kann ich mir nicht vorstellen das ich/meine Firma die einzige ist die eine solche verwaltung wünscht, irgendwo muss es sowas doch geben?

Was verwendet ihr in der Firma, gibt es dafür ein Tool?

Bin für jede Hilfe dankbar.

Würde mich auf ein paar Informationen freuen, ein paar Hinweise wonach ich suchen könnte. Anregungen etc.

Hoffe das ihr mir da ein wenig weiterhelfen könnt.

Und schonmal danke das ihr euch das alles durchgelesen habt.

Gruß

Christian

Geschrieben

wenn du visio perfekt findest..

exportiere den kram auf ne html seite und stelle diese über nen webserver, dann kannst du auch pingen (und telnetten und sshen und und und ;) ). jedenfalls wenn du vorher entsprechende links eingebunden hast.

hab ich grad mit visio 2003 und visio 2007 getestet

ob das sinnvoll ist, ist ne andere frage ;)

Geschrieben

@Freak One, das sieht gar nicht schlecht aus, habs mir mal runtergeladen, sieht aber schonmal nicht schlecht aus

@dgr243 wie meinst du das ich des dann über nen webserver stellen soll?

Kenn mich mit Viso net so aus, sry.

gruß

chris

Geschrieben

Also das WhatsupGold ist an und für sich ganz nett, erfüllt aber meine Anforderungen nicht.

Ich kann kein Hintergrundbild einbinden (vsd wäre Ideal, aber jpg oder png wären auch noch aktzeptabel) ich kann keine eigenen Attribute Hinzufügen und kann diese dementsprechend auch nicht auflisten lassen.

Das mit Visio Zeichnung als Website exportieren habe ihc gemacht, bekomme das linken aber nicht so wirklich hin (hatte ich erwähnt das ich ein Visio Noob bin? xD )

Bin gerade am schaun, Visio hatte bis zur 2000´er Version PING Eigenschaften, irgendwie muss man das doch über Plug-In Add-On oder dergleichen wieder machen können.

*weitersuch*

Freu mich auch weiterhin über Tipps/Tricks/Hilfe/Hinweise.

gruß

chris

Geschrieben

Du erstellst deine Visio Skizze..

Dann markierst du nen Router/Switch/Whatever das du anklicken können möchtest.

Einfügen --> Hyperlink und dann je nachdem was das für ne Schnittstelle ist angeben

- telnet://<IP / DNS Name>

- ssh://<IP / DNS Name)

- etc.

Dazu müssen natürlich die entsprechenden Links auf dem aufrufenden Client funktionieren. So muss mit einem ssh Link eben nen SSH Client verknüpft sein. Machen die meissten Clients die ich kenne aber automatisch bei Installation ;)

Geschrieben

Danke für alle Antworten hier, waren einige Interessante sachen dabei, wenn auch leider keine Software die mir zu 100% das gebracht hat was ich wollte.

Habe jetzt in Visio verschiedene Shapes für alle Netzwerkkomponenten zusammgebastelt und mir über VBA ein Makro geschrieben welches den Rechnernamen/die IP (abhängig davon welche Komponente verwendet wird, wird bei uns die IP statisch oder fest vergeben, daher müssen beide Befehle funktionieren) aus den Benutzerdefinierten Werten ausliest. (Liegt an 5 Stelle in den Eigenschaften, da ab 0 gezählt wird muss eine 4 angegeben werden).

Danach soll das ganze einen Ping abgeben (mit zwei Paketen) diese werden ausgewertet und er gibt mir verschiedene Meldungen aus ob die Device Online ist oder nicht.

Ist zwar vielleicht nicht unbedingt der sauberste Code, aber dafür das ich erst letzte Woche Montag das erste mal VBA genutzt habe bin ich schon ein wenig Stolz auf mich.

Für den Fall das andere auf das selbe oder ein ähnliches Problem stoßen sollten kommt gleich der Code unten an den Post ran. Könnt ihr logischerweise nutzen umbauen wie auch immer ihr lustig seid.


Sub Ping()


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''                               Ping Tool für Visio                                        '''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''' Dieses "Tool" liest aus einem Shape die Benutzerdefinierten Eigenschaften aus            '''

''' Bzw. die zweite Zeile der Benutzerdefinierten Eigenschaften.                             '''

''' Hier wird die Seriennummer der Netzgeräte eingetragen welche über DNS Auflösung gepingt  '''

''' werden kann. Als Ausgabe kommt eine MessageBox die uns verrät ob der Rechner             '''

''' On- / oder Offline ist.                                                                  '''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''                        Written bye Christian Zenker am 10.11.08                          '''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



    Dim auslesen As String                                      'Definieren der Variable auslesen

    Dim erreichbar As Integer                                   'Definieren der Variable erreichbar

    Dim ausgabe As String                                       'Definieren der Variable ausgabe

    Dim ShapeId As Visio.Shape                                  'Definieren der Variable ShapeID

    Set ShapeId = ActiveWindow.Selection.PrimaryItem                    'Wertzuweisung für die Variable ID

    Dim Adresse As String                                       'Definieren der Variable Adresse

    Dim vsoShape1 As Visio.Shape                                'Definieren der Variable vsoShape1

    Dim intPropRow2 As Integer                                  'Definieren der Variable intPropRow2

    Set vsoShape1 = Application.ActiveWindow.Page.Shapes.ItemFromID(ShapeId.ID) 'Wertzuweisung der Variable vsoShape1

                                                                                'Damit weis das Script Welche ID das

                                                                                'Sendende Shape hat.

    intPropRow2 = 4

    Adresse = vsoShape1.CellsSRC(visSectionProp, intPropRow2, visCustPropsValue).FormulaU   'Hier wird der Variable Adresse der Wert


                                                                                            'der Benutzerdefinierten Eigenschaft


                                                                                            'Seriennummer übergeben welche die zu


                                                                                            'Pingende DNS Adresse ist.

    Shell ("command.com /C ping " & Adresse & " -n 2 -w 50 >C:\ping.txt")       'Hier wird der Ping ausgeführt und das Ergebniss in


                                                                                'Die Textdatei ping.txt gespeichert.

    Dim i As Double                                                             'Definieren der Variable i

    i = Timer                                                                   'Weißt der Variable i den SekundenWert für die Aktuelle


                                                                                'Uhrzeit zu.

      Do While Timer < i + 2                                                    'Diese Schleife hält das Script für 2 Sekunden an,


       DoEvents                                                                 'dies wird benötigt damit der Ping genug Zeit zum


      Loop                                                                      'erzeugen der txt Datei hat.

    Open "C:\PING.TXT" For Input As #1                                          'Öffnet die Ping.txt um Sie auszulesen

    Do Until EOF(1)                                                             'Liest die Datei so lange Zeilenweise aus bis das Ende der Datei


                                                                                'erreicht ist.

      Input #1, auslesen                                                        'Weißt den aktuellen Zeilenwert der Variable auslesen zu


        If InStr(auslesen, "Verloren") Then                                     'Überprüft wann angegeben wird wie viele Pakete verloren gegangen sind.


          auslesen = Left(auslesen, Len(auslesen) - 13)                         'Beschneidet den String damit nur noch die Anzahl der Verlorenen


          auslesen = Right(auslesen, Len(auslesen) - 11)                        'Pakete angegeben ist.

          ausgabe = auslesen                                                    'Übergibt die Anzahl der Verlorenen Pakete an die Variable ausgabe


        End If                                                                  'da der Wert sonst nicht öffentlich zugänglich ist.


    Loop                                                                        'Beendet das Auslesen der Datei

    Close #1

    If ausgabe = "0" Then                                                       'Wenn keine Datei verloren gegangen ist, DANN


      MsgBox ("Device ist Online")                                             'Sag das der Rechner Online ist

      erreichbar = 1

    End If

    If ausgabe = "1" Then                                                       'Wenn Pakete verlorgen gegangen sind, gib aus wie viele.


      MsgBox ("Device ist Offline" & vbCrLf & "Es sind " & Left(ausgabe, Len(ausgabe) - 2) & " von 2 Paketen verloren gegangen")


      erreichbar = 1

    End If

    If ausgabe = "2" Then                                                       'Wenn Pakete verlorgen gegangen sind, gib aus wie viele.


      MsgBox ("Device ist Offline" & vbCrLf & "Es sind " & Left(ausgabe, Len(ausgabe) - 2) & " von 2 Paketen verloren gegangen")


      erreichbar = 1

    End If

    If erreichbar = 1 Then

    erreichbar = 1

    Else

      MsgBox ("Devicename im Netz nicht bekannt.")

    End If

    Kill ("C:\PING.TXT")                                                        'Löscht die TXT Datei wieder

End Sub

Danke nochmal allen für ihre Hilfe, und seid nicht zu kritisch mit meinem Code

Gruß

chris

Geschrieben

Also ich kenne mich zwar mit VBA nicht aus, aber der Codefetzen sticht mir dennoch irgendwie ins Auge. :rolleyes:

If erreichbar = 1 Then

    erreichbar = 1

    Else

      MsgBox ("Devicename im Netz nicht bekannt.")

    End If

    Kill ("C:\PING.TXT")                                           'Löscht die TXT Datei wieder

End Sub

Was soll das If erreichbar = 1 Then erreichbar = 1

Du prüfst eine Variable und belegst sie mit genau dem selben Wert wieder, nach dem du sie geprüft hast. Was hat das für einen Sinn? :confused:

Ich kenne wie gesagt die Syntax von VBA nicht, aber ein "Ungleich"-Zeichen wie != oder <> o.ä. sollte es doch auch da geben. Also einfach prüfen, obs ungleich 1 ist und direkt die Messagebox auswerfen.

Geschrieben

Jo, ist wirklich nicht super gemacht an der Stelle :old

Aber ich hatte da Problem wenn ich gar keine Anweisung drinne stehen hatte liefert er mir ne Fehlermeldung und auf die Idee auch noch nach sowas wie ungleich zu suchen bin ich net gekommen, bin froh wenn ich den Sch.. :floet: nimmer sehen muss.

Gruß

chris

  • 1 Jahr später...
Geschrieben (bearbeitet)

Hey Fachinformatiker :)

Wow, also hab mich nicht alles ganz genau durchgelesen; aber das was ich bisher gesehen hab; ist super!:uli

Klasse Tipps!

Dann werde ich wohl nicht mehr wirklich helfen können. Kann als Nachtrag auch die snwp-software empfehlen. Allgemeine Infos darüber hab ich unter url.invalid gefunden. Aber zum runterladen, würde ich auch die Seite von "Freak One" empfehlen. Klasse software!

Grüße, Haas

Bearbeitet von hades
Geschrieben
Hey sorry!

Wenn dir die Seite nicht passt, kannst du den link gerne löschen!

Dachte es hilft vielleicht.

Grüße haas

Vor 2 Jahren hätte es vielleicht jemand interessiert. :old

Gast
Dieses Thema wurde nun für weitere Antworten gesperrt.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...