Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Problem bei automatischem Ping

Mitglied: Time

Time (Level 1) - Jetzt verbinden

18.12.2006, aktualisiert 19.12.2006, 3200 Aufrufe, 5 Kommentare

Erstma einen schönen Guten Mittag!

Ich schreibe zur Zeit in VB.NET eine Anwendung, die in bestimmten Abständen verschiedene PCs pingen soll. Diese PCs sind alle in einer Access-Tabelle vorhanden und können über das Adminpanel auch hinzugefügt, gelöscht oder editiert werden. Das Problem ist, dass ich nicht weiß, wie ich den automatischen Ping realisieren soll, da ich die Auslesung der Daten nicht so hinbekomme, wie ich sie brauche und die Ping-Intervalle beim PC erstellen/editieren geändert werden können.

Ich habe zur Zeit folgenden Code:

Imports System.Data
Imports System.Data.OleDb

Public Class pc_int

Private con As New OleDb.OleDbConnection
Private strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Freibage\WatchGuard.mdb;" & "Jet OLEDB:database Password=xy;"
Private pcID As String
Dim WithEvents tm As Timer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x
Dim ueberwachung_bis
Dim ueberwachung_von
Dim Nextp

Try
ueberwachung_bis = "23:59"
ueberwachung_von = "00:01"
Nextp = "12:00"

Try

Dim DSPC As New DataSet

con.ConnectionString = strCon

Dim oledbadapter As OleDb.OleDbDataAdapter
oledbadapter = New OleDb.OleDbDataAdapter("SELECT * FROM pcping", con)

con.Open()

oledbadapter.Fill(DSPC, "ID")

ueberwachung_von = DSPC.Tables("ID").Rows(0).Item(2)
ueberwachung_bis = DSPC.Tables("ID").Rows(0).Item(3)
Nextp = DSPC.Tables("ID").Rows(0).Item(6)

MsgBox("Von: " + ueberwachung_von.ToString)
MsgBox("Bis: " + ueberwachung_bis.ToString)
MsgBox("Nächster: " + Nextp.ToString)

Catch ex As Exception
MsgBox("Fehler: " + ex.ToString)
Finally
con.Close()
End Try

x = Now.ToString("HH:mm")
MsgBox("Zeit: " + x.ToString)

If Nextp = x Then
MsgBox("Richtig: Nextp = x")
If ueberwachung_von <= x And ueberwachung_bis >= x Then
MsgBox("Richtig: Von <= x UND Bis >= x")
'Ping
'Schreibe History
Else
MsgBox("Falsch: Von > x ODER Bis < x")
End If
MsgBox("Falsch: Nextp <> x")
Else
End If
x = ""
Catch ex As Exception
MsgBox("Fehler: " + ex.ToString)
End Try
End Sub
End Class

Timer1_Tick wird alle 45000ms, also alle 45s ausgeführt.

Mein Problem ist, dass er mit diesem Code nur die Zeile 0 überprüft und nicht die restlichen Zeilen... Hat da wer ne Idee? Das ist so mehr oder weniger das einzige was noch fehlt, dann ist das Programm fertig...
Mitglied: DaSam
18.12.2006 um 15:36 Uhr
Hi,

01.
ueberwachung_von = DSPC.Tables("ID").Rows(0).Item(2)
02.
ueberwachung_bis = DSPC.Tables("ID").Rows(0).Item(3)
03.
Nextp = DSPC.Tables("ID").Rows(0).Item(6)
Schau Dir Deinen Code an und sag mir, warum er nur die Daten der ersten Zeile nimmt
Hint: Was heist Row auf deustch und warum steht die 0 in der Klammer *g*

Das ganze DB-rumprogrammiere hast ja auch super umständlich gemacht, warum gehst Du nicht ganz normal mit einem Cursor von oben nach unten durch den Ergebnissatz, Also zuerst einen Select, dann die Werte auslesen mit RC.Fields("Feldname") und dann einen RC.MoveNext ...

cu,
Alex
Bitte warten ..
Mitglied: Time
18.12.2006 um 15:47 Uhr
Hi,

01.
> ueberwachung_von =
02.
> DSPC.Tables("ID").Rows(0).Item(2)
03.
> ueberwachung_bis =
04.
> DSPC.Tables("ID").Rows(0).Item(3)
05.
> Nextp =
06.
> DSPC.Tables("ID").Rows(0).Item(6)
07.
> 
Schau Dir Deinen Code an und sag mir, warum
er nur die Daten der ersten Zeile nimmt
Hint: Was heist Row auf deustch und warum
steht die 0 in der Klammer *g*

Das ganze DB-rumprogrammiere hast ja auch
super umständlich gemacht, warum gehst
Du nicht ganz normal mit einem Cursor von
oben nach unten durch den Ergebnissatz, Also
zuerst einen Select, dann die Werte auslesen
mit RC.Fields("Feldname") und dann
einen RC.MoveNext ...

cu,
Alex

Schon klar, dass er nur die erste Zeile ausliest, weil da Row(0) steht ^^ Wollte ne alternative Lösung, die alle Zeilen durchgeht :-P

Das is warscheinlich alles etwas umständlich, da ich erst seit knapp 3Wochen VB.NET schreibe und mich mit Datenbanken noch nich so beschäftigt hab

Was is RC? Unter welchem Namespace find ich das?

Aber danke schonma für die Antwort
Bitte warten ..
Mitglied: DaSam
18.12.2006 um 18:17 Uhr
Hi,

RC ist eine Abkürzung für Recordset. Ich mache das immer so:

- Einen Connect zur Datenbank
- auf diese DB kann man dann mittels des Select-Statements einen Recordset öffnen
- und dann mittels while not Recordset.eof ... die Elemente durchlaufen lassen.

Ob das so ganz in VB geht, weis ich jetzt nicht auswenig, in VBScript mache ich das mit ADODB.

cu,
Alex
Bitte warten ..
Mitglied: Time
19.12.2006 um 09:34 Uhr
Danke für den Tipp, aber ich muss dir da was sagen:

Bei ADO werden die Daten im Speicher als Recordset dargestellt, bei ADO.NET als Dataset...

Ich mache das ganze ja mit DataSets

Ich muss nur rausfinden, wie ich mich mit dem Ding durch die Zeilen bewege :P
Bitte warten ..
Mitglied: DaSam
19.12.2006 um 20:39 Uhr
Hi,

prinzipiell sollte es ja mit "foreach" gehen:

foreach sRow in DataSet.Rows
...
DoPing sRow.Field("RechnerName")
next

sRow müsste halt in der Art OleDB.DataSet.Row deklariert werden

(Ist jetzt alles nur zusammengestöpselt, ich habe keine Ahnung, ob die Objekte und Klassen so passen).

cu,
Alex
Bitte warten ..
Ähnliche Inhalte
Firewall
Ping oder nicht Ping?
Erfahrungsbericht von LordGurkeFirewall10 Kommentare

Immer wieder erzählt mir jemand, dass man eine Firewall so konfigurieren soll, dass sie nicht auf ICMP-Echo-Requests ("Ping") antworten ...

Switche und Hubs
Ping Zeiten
Frage von Der.ITlerSwitche und Hubs23 Kommentare

Hallo Gemeinde. Ich habe 3 D-Link Switche. 2x D-Link DGS1210-24 1x D-Link DGS1210-10P 5 VLAN Tagged auf den LWL ...

Google Android
ANDROID - PING
gelöst Frage von MrRobot1997Google Android2 Kommentare

Hellas Leute. Habe da eine kurze Frage zu dem Betriebssystem Android. Kann man auf diesem Betriebssystem herausfinden, ob und ...

Entwicklung
Automatische Ping schleife
gelöst Frage von innovpizzaEntwicklung12 Kommentare

Hallo an alle, ich bin Auszubildender in einer Firma, in der wir gerade versuchen, vieles zu Automatisieren, so auch ...

Neue Wissensbeiträge
Windows 10

Windows 10 - Programme laufen schneller, wenn Sie mit Administratorrechten ausgeführt werden

Erfahrungsbericht von 1Werner1 vor 20 StundenWindows 107 Kommentare

Moin, das wollte ich erst nicht glauben, aber es ist so. Wenn Ihr ein Programm mit Administratorrechten unter Windows ...

Sicherheits-Tools
Putty hat heftige Bugs korrigiert!
Information von Lochkartenstanzer vor 1 TagSicherheits-Tools5 Kommentare

Moin, Wie man aus herauslesen kann, sind in den Versionen vor 0.71 gravierende Bugs, die es angeraten erscheinen lassen, ...

Off Topic
Sachen die die Welt nicht braucht - Platz 1
Tipp von brammer vor 4 TagenOff Topic21 Kommentare

Hallo, ich habs als Tipp angelegt als Erfahrungsbericht nein Danke brammer

Humor (lol)
Spirit of Health-Kongress in Berlin
Information von AnkhMorpork vor 4 TagenHumor (lol)6 Kommentare

tgif! Beim dritten Spirit of Health-Kongress trafen sich am Wochenende Alternativmediziner und Naturheilkundler im Maritim Hotel Berlin, um sich ...

Heiß diskutierte Inhalte
Hardware
Telefonanlagen - Welche gibt es
Frage von Xaero1982Hardware23 Kommentare

Nabend Zusammen, ich suche eine neue TK Anlage und mein Auftraggeber will jetzt was völlig neues - State of ...

Windows Server
Eingeschränkte Gruppen - Spezielle Benutzergruppe hinzufügen
Frage von killtecWindows Server17 Kommentare

Hallo, ich möchte gerne folgendes Realisieren: Ich habe bei mir Eingeschränkte Gruppen via GPO aktiv und möchte nun der ...

Microsoft Office
Videodateien auf Windows Server 2008 R2 öffnen schlägt fehl
Frage von SchroediMicrosoft Office15 Kommentare

Hallo zusammen, wir haben das Problem das embedded Videos in PowerPoint (O365) auf unserer Citrix Farm (6.5) nicht abgespielt ...

LAN, WAN, Wireless
Intel(R) PRO Wireless 3945ABG
gelöst Frage von Leon509LAN, WAN, Wireless15 Kommentare

Hallo, habe ein Laptop Fujitsu (Intel, 4GB, 2GHz, Windos10, Intel(R) PRO/Wireless 3945ABG ) ein O2 DSL Anschluss Home50. Leider ...