blackdevile

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

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

sry für Doppelpost, aber ich bin grad zu doof um den edit button zu sehen :old Habe jetzt die Möglichkeit gefunden zumindest Benutzerdefinierte Werte auszulesen, ist zwar großteils von VISIO kopiert (habe eine makroaufzeichnung laufen lassen und den wert den ich auslesen will bearbeitet ^^) Dim test as String 'Variable die später beim Pingen verwendet wird Dim vsoShape1 As Visio.Shape Dim intPropRow2 As Integer Set vsoShape1 = Application.ActiveWindow.Page.Shapes.ItemFromID(1) 'Das wird man denke ich ändern müssen das es das aktive Shape nimmt, so ist es ja leider statisch intProbRow2 = 1 test = vsoShape1.CellsSRC(visSectionProp, intPropRow2, visCustProbsValue).FormulaU 'was genau macht er hier? Jetzt bräuchte ich nur noch Hinweise wie ich die Statische abfrage so dynamisch gestalte das des Programm immer die Werte vom dem Shape nimmt von wo aus das Makro gestartet wird/wurde. Wenn ihr ganz fleißig sein wollt wäre ne kurze Kommentierung von dem text oben was passiert toll, vielleicht versteh ich das dann auch besser. Gruß chris

Hall zusammen, ich möchte in VBA für Visio ein Makro schreiben welches den Wert eines Shape (von dem aus es gestartet wird) ausliest und diesen Wert zum Pingen nimmt und mir daraufhin eine Meldung ausgibt ob der Rechner On oder Offline ist. Das Pingen ist überhaupt kein ding, die ausgabe werde ich denke ich auch noch hinbekommen, aber ich habe nicht die geringste Ahnung wie ich die Benutzerdefinierten Werte eines Sheets auslesen kann. Über die ShapeID darf dies jedoch nicht geschehen da ich es im Mastershape hinterlegen möchte um dann wenn es auf den Visio Dokument hinterlegt wird alle Rechner die man anlegt anpingen kann. Hoffe ihr könnt mir weiterhelfen mit googlen komm ich nicht mehr weiter und in vba bin ich einfach noch sowas von jungfräulich xD Freu mich über jeden Tipp/Hinweise/Hilfe/Lösung etc. Gruß Christian

Ich habe momentan die Aufgabe eine Eierlegende Wollmichsau zu entwickeln ;-) Mein Ausbilder möchte eine Anwendung mit der Netzwerkgeräte (Bildschirm,Drucker,Rechner,Telefon etc.) Kartografiert werden können, Inventarisiert, verwaltet und gepingt werden können. Hoffe das ich bald damit fertig werde langsam nervst -.- gruß chris

@volker81 arg, da hat wohl wieder mal mein Fehler Teufel zugeschlagen. Bin halt doch mies in Rechtschreibung gruß chris

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

Ich hatte auch von Anfang an meinen eigenen Schreibtisch mit Telefon Rechner etc. (standart Ausrüstung) nach ner Woche habe ich mir dann nen zweiten Bildschirm geholt und insgesamt auf 4 Rechner aufgestockt. Bildschirme zwischendurch mal auf 3 aufgestockt aber chef hat gemeint ich bekomme 22Zoll Widescreen wenn ich dafür nur noch zwei Monitore auf den tisch stell :floet: Nuja, lässt sich ganz gemütlich leben hier *g* gruß chris

@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

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 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

Mal geholfen!

Hi! Mitunter kann solch ein Verhalten an USB Treiberleichen liegen. Wenn Du magst, versuche mal das Programm "USB Fehlerbehebung". Link anbei. Das führt Dich Schritt für Schritt durch den Prozess und hat schon manches Mal geholfen. http://www.winboard.org/forum/attachments/windows-2000/11395d1156418792-usb-2-0-fuer-diese-geraeteinstanz-wurde-kein-geraetetreiber-usb-fehlerbehebung.zip