Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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
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, 3335 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
Exchange Server
gelöst Exchange Online Kalender Anzeige eines anderen Benutzers (4)

Frage von Hans3003 zum Thema Exchange Server ...

Batch & Shell
gelöst Bat soll in einer .dll eine Zeile suchen und Diese + 2 darunterliegende anzeigen (10)

Frage von Gangster137910 zum Thema Batch & Shell ...

Batch & Shell
gelöst Batch sucht bestimmten "text" in einer .txt datei und soll dann die Zeile anzeigen (6)

Frage von MedicalAd zum Thema Batch & Shell ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Seekrank bei Windows 10 (17)

Frage von zauberer123 zum Thema Windows 10 ...

Windows Server
gelöst Kopiervorgang schlägt fehl, weil Datei- und Ordnername zu lang sind (14)

Frage von Schroedi zum Thema Windows Server ...