Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

Computer Online Status Pro Zeile anzeigen?

Frage Microsoft Microsoft Office

Mitglied: Cyberkey

Cyberkey (Level 1) - Jetzt verbinden

26.03.2010, aktualisiert 18.10.2012, 3321 Aufrufe, 1 Kommentar

Access VBA

Hallo,

ich habe ein Endlos Formular mit den Spalten "Computerbezichnug" und "IP"

z.b.

MSI1 192.123.123.002
MSI2 192.123.123.003
MSI3 192.123.123.004
....


Jetzt würde ich gerne über einen "Kasten" den ich je nach Variable (True/False) einfärbe (Grün/Rot) den Online Status eines jeden Pc's in meinem Formular ermitteln.
Der Zustand der angepingten Rechner soll sich nicht über einen Timer sondern über einen Button erneuern lassen z.b. "Aktualisieren"
Timer sind nicht gut da sonst zu viel Traffik entsteht...

Mit ner batch:
01.
ping -n 1 192.123.123.002 && cls && echo IP 192.123.123.002 ist on
Funktioniert die Ausgabe (als Simples beispiel...)

Jetzt zu Access:

01.
Private Sub Wake_Click() 
02.
On Error GoTo Err_Wake_Click 
03.
Dim stAppName, strIP As String 
04.
strIP = Me.[IP Adresse]     'Spaltenname in der die IP-Adresse steht 
05.
stAppName = "C:\.................\ping.exe" & " "  & "-n 1" & " " & strIP" 
06.
Call Shell(stAppName, 1) 
07.
Exit_Wake_Click: 
08.
    Exit Sub 
09.
 
10.
Err_Wake_Click: 
11.
    MsgBox Err.Description 
12.
    Resume Exit_Wake_Click 
13.
     
14.
 
15.
     
16.
End Sub
so ließe sich z.b. pro zeile ein button erstellen mit dme man Prüfen kann... fehlen natürlich noch die Auswertung und das mit der farbe...


Aber es ist blödsinn bei Hunderten von IP's jedesmal einen Button pro Zeile zu klicken... vll. gibt es irgendwie eine Möglichkeit das über einen Button im Formularkopf zu lösen.

Hat vll. jemand eine Idee?
Ähnliche Inhalte
Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(3)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (41)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
gelöst Fachzeitschriften als E-Book oder hardcoded? (11)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...